anchor.diff:  (defparameter *prefix* (compile-shortcut :control #\t) "Prefix for shortcuts")
   (defparameter *quit* (compile-shortcut :shift #\q) "Shortcut to quit")
   (defparameter *move* (compile-shortcut :mod-1 1) "Mouse button to move a window")
  +(defparameter *center-resize* (compile-shortcut :mod-1 2) "Mouse button to resize a window from its center")
   (defparameter *resize* (compile-shortcut :mod-1 3) "Mouse button to resize a window")
   (defparameter *close* (compile-shortcut :mod-1 :control :shift 2) "Mouse button to close a window")
   
  
positive.code: 		   (incf last-x dx)
  		   (incf last-y dy)))
  		((= last-button (code *resize*))
  		 (move window :width delta-x :height delta-y))))
  	(setf last-motion time)))))
  
  (defhandler :button-release () (ungrab-mouse))
  
negative.code: (defvar last-button nil)
  (defvar last-x nil)
  (defvar last-y nil)
  (defvar last-center nil)
  (defvar last-motion nil)
  (defvar waiting-shortcut nil)
  
  