anchor.diff:                 (:button-press
                   (code state child)
                   (when (and child (eql (window-override-redirect child) :off))
  -                  (setf last-button code)
  -                  (grab-pointer child '(:pointer-motion :button-release))
  -                  (when (and (= code (code resize))
  -                             (= state (state resize)))
  -                    (warp-pointer child (drawable-width child) 
  -                                  (drawable-height child)))
  -                  (let ((lst (multiple-value-list (query-pointer *root*))))
  -                    (setf last-x (sixth lst)
  -                          last-y (seventh lst)))))
  +                  (cond ((and (= code (code close))
  +                              (= state (state close)))
  +                         (kill-client *display* (window-id child)))
  +                        (t
  +                         (setf last-button code)
  +                         (grab-pointer child '(:pointer-motion :button-release))
  +                         (when (and (= code (code resize))
  +                                    (= state (state resize)))
  +                           (warp-pointer child (drawable-width child)
  +                                         (drawable-height child)))
  +                         (let ((lst (multiple-value-list (query-pointer *root*))))
  +                           (setf last-x (sixth lst)
  +                                 last-y (seventh lst)))))))
                  (:motion-notify
                   (event-window root-x root-y)
                   (cond ((= last-button (cdr move))
  
positive.code:         (focus emacs)
          (run-program "emacs" nil :wait nil :search t))))
  
  ;;; User shortcuts
  (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) (emacs))
  (defshortcut (:mod-1 #\e) (run-program "envi" nil :wait nil :search t))
  
negative.code: (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
  (defshortcut (#\n) (next))
  (defshortcut (#\p) (next #'1-))
  (defshortcut (:control #\n) (next))
  (defshortcut (:control #\p) (next #'1-))
  (defshortcut (:control #\t) (flast))
  
  ;;; Modifier keypress avoidance code
  