burtonsamograd / med Goto Github PK

Instead of defining commands purely with defun it might make sense to use a define-command macro similar to CLIM. For example, instead of

(defun forward-char-command ()
  (move-char (current-buffer *editor)))

(set-key #\C-F 'forward-char-command key-map)

one might write

(define-editor-command (forward-char-command :keystroke #\C-F)
  (move-char (current-buffer *editor*)))

making it easier to add new commands to the editor.

It would also make a handy single place to modify when adding commands that can be invoked by human-equivalent name (rather than by Lisp function name) as in ZMACS, and commands that can prompt for arguments when used interactively as well.