anchor.diff:  
       ;; Grab mouse buttons
       (dolist (button (list *move* *resize*))
  -      (grab-button root button '(:button-press) :modifiers *mods*))
  +      (grab-button root button '(:button-press) :modifiers *mouse-mod*))
   
       ;; Grab keyboard shortcuts
       (dolist (key (list *term* *web* *quit* *circulate* *hide*))
         (grab-key root (keysym->keycodes display (car (character->keysyms key)))
  -                :modifiers *mods*))
  +                :modifiers *key-mod*))
   
       (unwind-protect
           (let (last-button last-x last-y hidden)
  
positive.code:              (:button-release () (ungrab-pointer display))
               ((:configure-notify :exposure) () t))))
        (dolist (button (list *move* *resize*))
          (ungrab-button root button :modifiers *mods*))
        (dolist (key (list *term* *quit* *circulate*))
          (ungrab-key root (keysym->keycodes display key) :modifiers *mods*))
        (close-display display))))
  
  (main)
  
negative.code: (in-package :most.simple.wm)
  
  ;; Global parameters
  (defparameter *key-mod* '(:control :mod-1) "Modifier for keyboard shortcuts")
  (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 *term* #\Return "Key to launch a terminal")
  (defparameter *web* #\w "Key to launch web browser")
  (defparameter *quit* #\q "Key to quit")
  