anchor.diff:  (defshortcut (:control #\p) (focus (next #'1-)))
   (defshortcut (:control #\t) (focus *last*))
   (defshortcut (#\a) (app))
  -(defshortcut (#\f) (finder))
  -(defshortcut (#\h) (toggle-hide))
  +(defshortcut (#\f) (fullscreen))
   
   (defun send-prefix ()
     (let ((focus (input-focus *display*)))
  
positive.code: (defparameter *handlers* (make-list (length xlib::*event-key-vector*)
                                      :initial-element #'(lambda (&rest slots))))
  (defparameter *windows* nil "List of managed and mapped windows.")
  (defparameter *hidden* nil "List of hidden windows.")
  (defparameter *last* nil "Last focused window.")
  (defparameter *curr* nil "Current focused window.")
  
  (defmacro defhandler (event keys &body body)
    (let ((fn-name (gensym))
  
negative.code:        (setf *shortcuts* (remove ,sc *shortcuts* :test #'equal :key #'car))
         (push (cons ,sc #'(lambda () ,@body)) *shortcuts*))))
  
  (defun move (window x y w h)
    "Move a window."
    (with-state (window)
      (setf (drawable-x window) x (drawable-y window) y
            (drawable-width window) w (drawable-height window) h)))
  
  (defgeneric focus (window))
  
  (defmethod focus :before (window)
    (unless (null window)
      (unless (win= window *curr*)
        (setf *last* *curr*)
        (when *dim*
          (apply #'move *curr* *dim*)
          (setf *dim* nil)))
      (setf *curr* window)))
  
  (defmethod focus ((window window))
  