-(defaction call-auto-complete ((self t) auto-complete-id value index)
- (let ((auto-complete (get-session-value (intern auto-complete-id))))
- (if auto-complete
- (if index
- (select-value auto-complete index)
- (call-auto-complete-from-output auto-complete auto-complete-id value self))
- (call 'empty-page :message (error "Cannot find")))))
-
-(defaction call-auto-complete-from-output ((auto-complete auto-complete) auto-complete-id value output)
- (setf (client-value auto-complete) value)
- (let ((self output))
- (call (output-component-name auto-complete) :auto-complete auto-complete)
- (call 'empty-page :message (error "ASD"))))
-
-(defaction select-value ((self auto-complete) index)
- (let ((index (when (< 0 (length index))
- (parse-integer index))))
- (setf (index self) index)
- (setf (value self) (nth index (list-of-values self)))))