anchor.diff:      `(let ((,sc (compile-shortcut ',key)))
          (pushnew (cons ,sc #'(lambda () ,@body)) *shortcuts* :test #'equal :key #'car))))
   
  +;;; User settings
  +(defparameter *prefix* '(:control #\t) "Prefix for shortcuts")
  +(defparameter *move* '(:mod-1 1) "Mouse button to move a window")
  +(defparameter *resize* '(:mod-1 3) "Mouse button to resize a window")
   (defshortcut (#\c) (run-program "xterm" nil :wait nil :search t))
   (defshortcut (#\e) (run-program "emacs" nil :wait nil :search t))
   (defshortcut (#\w) (run-program "xxxterm" nil :wait nil :search t))
  
positive.code: 
  (defvar *display* (open-default-display))
  (defvar *root* (screen-root (display-default-screen *display*)))
  (defparameter *mouse-mod* '(:mod-1) "Modifier for mouse control")
  (defparameter *move* 1 "Mouse button to move a window")
  (defparameter *resize* 3 "Mouse button to resize a window")
  (defparameter *prefix* '(:control #\t) "Prefix for shortcuts")
  
  (defun mods (l) (butlast l))
  (defun kchar (l) (car (last l)))
  (defun compile-shortcut (l)
    "Compile a shortcut into a (state . code) form. For
  example: (compile-shortcut '(:control #\t)) -> (4 . 44)"
    (let ((c (keysym->keycodes *display* (car (character->keysyms (kchar l))))))
      (cons (apply #'make-state-mask (mods l)) c)))
  
  (defparameter *shortcuts* 
    (list (cons (compile-shortcut '(:shift #\q)) 'quit))
  
negative.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
                                 (drawable-height event-window) new-h)))))
                 (:button-release () (ungrab-pointer *display*))
                 ((:configure-notify :exposure) () t)))
        (ungrab-button *root* (cdr move) :modifiers (car move))
        (ungrab-button *root* (cdr resize) :modifiers (car resize))
        (ungrab-key *root* (cdr prefix) :modifiers (car prefix))
        (close-display *display*))))
  
  