anchor.diff:  (defror xxxterm)
   
   ;;; Mouse shorcuts
  -(defparameter *move* '(:mod-1 1) "Mouse button to move a window")
  -(defparameter *resize* '(:mod-1 3) "Mouse button to resize a window")
  -(defparameter *kill* '(:control :mod-1 2) "Mouse button to kill a window")
  +(defparameter *move* (compile-shortcut '(:mod-1 1)) "Mouse button to move a window")
  +(defparameter *resize* (compile-shortcut '(:mod-1 3)) "Mouse button to resize a window")
  +(defparameter *kill* (compile-shortcut '(:control :mod-1 2))
  +  "Mouse button to kill a window")
   
   ;;; Key shortcuts
  -(defparameter *prefix* '(:control #\t) "Prefix for shortcuts")
  +(defparameter *prefix* (compile-shortcut '(:control #\t)) "Prefix for shortcuts")
   (defshortcut (#\c) (run-program "xterm" nil :wait nil :search t))
   (defshortcut (#\e) (emacs))
   (defshortcut (#\w) (xxxterm))
  
positive.code:                                  last-y (seventh lst)))))))
                 (:motion-notify
                  (event-window root-x root-y)
                  (cond ((= last-button (cdr move))
                         (let ((delta-x (- root-x last-x))
                               (delta-y (- root-y last-y)))
                           (incf (drawable-x event-window) delta-x)
                           (incf (drawable-y event-window) delta-y)
                           (incf last-x delta-x)
                           (incf last-y delta-y)))
                        ((= last-button (cdr resize))
                         (let ((new-w (max 1 (- root-x (drawable-x event-window))))
                               (new-h (max 1 (- root-y (drawable-y event-window)))))
                           (setf (drawable-width event-window) new-w
  
negative.code:                   (when (win= window *last*)
                      (setf *last* (when (listp *last*)
                                     (rrem window *last* :test #'window-equal))))))))
        (ungrab-button *root* (code *move*) :modifiers (state *move*))
        (ungrab-button *root* (code *resize*) :modifiers (state *resize*))
        (ungrab-button *root* (code *kill*) :modifiers (state *kill*))
        (ungrab-key *root* (code *prefix*) :modifiers (state *prefix*))
        (close-display *display*))))
  
  (main)
  