anchor.diff:                                       ((eq fn 'quit) (loop-finish))))))
                            (ungrab-keyboard *display*)
                            (setf waiting-shortcut nil)))
  -                      ((and (= state (state prefix)) (= code (code prefix)))
  +                      ((and (= state (state *prefix*)) (= code (code *prefix*)))
                          (grab-keyboard *root*)
                          (setf waiting-shortcut t))))
                  (:button-press
                   (code state child)
                   (when (and child (eql (window-override-redirect child) :off))
  -                  (cond ((and (= code (code kill))
  -                              (= state (state kill)))
  +                  (cond ((and (= code (code *kill*))
  +                              (= state (state *kill*)))
                            (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)))
  +                         (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*))))
  
positive.code: (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")
  
  ;;; Key shortcuts
  (defparameter *prefix* '(:control #\t) "Prefix for shortcuts")
  (defshortcut (#\c) (run-program "xterm" nil :wait nil :search t))
  (defshortcut (#\e) (emacs))
  (defshortcut (#\w) (xxxterm))
  
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)
  