(in-package :climi) (define-presentation-type frame-layout ()) (define-presentation-method accept ((type frame-layout) stream view &key) (climi::accept-using-completion 'frame-layout stream #'(lambda (input-string mode) (complete-from-possibilities input-string (mapcar (lambda (x) (list (symbol-name x) x)) (frame-all-layouts *application-frame*)) nil :action mode)))) (define-command (com-frame-quit :name t :command-table global-command-table) () (frame-exit *application-frame*)) (define-command (com-frame-select-layout :name t :command-table global-command-table) ((layout 'frame-layout :default (car (frame-all-layouts *application-frame*)))) (setf (frame-current-layout *application-frame*) layout) (layout-frame *application-frame*)) (define-command (com-interactor-clear :name t :command-table global-command-table) () (window-clear *query-io*))