anchor.diff:    "Return non-nil if keycode is a modifier"
     (find keycode *mods-code* :test #'eql))
   
  -;;; App launcher
  +;;; App launcher, class finder, etc.
   (defparameter *abort* (compile-shortcut :control #\g))
   (defparameter *this* (compile-shortcut #\Return)
  -  "Validate THIS app even if it is a prefix of more than one.")
  -
  -(defun single (list) (and (consp list) (null (cdr list))))
  +  "Validate THIS value even if it is ambiguous on more than one.")
  +
  +(defun single-p (list) (and (consp list) (null (cdr list))))
   
   (defun one-char ()
     "Get one char from the user. The keyboard should be grabbed before call."
  
positive.code: don't contain `sofar'."
    #'(lambda (str) (search sofar str :test #'char-equal)))
  
  (defun recdo-1 (sofar list fn matcher key)
    (cond ((null list))
          ((single list)
           (funcall fn (car list)))
          (t (let ((char (one-char)))
               (etypecase char
                 (character
                  (vector-push-extend char sofar)
                  (recdo-1 sofar (remove-if-not (funcall matcher sofar) list :key key)
                           fn matcher key))
                 (symbol
                  (cond ((eql char 'abort))
                        ((eql char 'this) (funcall fn (car list))))))))))
  
  (defun recdo (list fn &key (matcher #'pre-matcher) (key #'identity))
    (let ((sofar (make-array 0 :element-type 'character :fill-pointer t :adjustable t)))
      (recdo-1 sofar list fn matcher key)))
  
  (defun app ()
    (grab-keyboard *root*)
    (unwind-protect
         (recdo *apps* #'(lambda (app) (run app)))
      (ungrab-keyboard *display*)))
  
  (defun finder ()
    (grab-keyboard *root*)
    (unwind-protect (recdo *windows* #'focus :key #'xclass :matcher #'in-matcher)
      (ungrab-keyboard *display*)))
  
  ;;; Mouse shorcuts
  
negative.code: (defshortcut (:control #\p) (focus (next #'1-)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  (defshortcut (#\s) (ssh))
  (defshortcut (#\') (finder))
  (defshortcut (#\f) (fullscreen))
  (defshortcut (#\.) (center))
  (defshortcut (:shift #\.) (center))
  
  (defun send-prefix (window)
    (send-event window :key-press (make-event-mask :key-press)
                       :window window
                       :code (code *prefix*)
                       :state (state *prefix*)))
  (defshortcut (#\t) (send-prefix *curr*))
  
  (defvar last-button nil)
  (defvar last-x nil)
  