anchor.diff:  ;;; Main
   (defun main ()
     (let ((prefix (compile-shortcut *prefix*))
  +        (move (compile-shortcut *move*))
  +        (resize (compile-shortcut *resize*))
           last-button last-x last-y waiting-shortcut)
   
  -    ;; Grab mouse buttons
  -    (dolist (button (list *move* *resize*))
  -      (grab-button *root* button '(:button-press) :modifiers *mouse-mod*))
  -
  -    ;; Grab prefix
  +    ;; Grab prefix and mouse buttons on root
       (grab-key *root* (cdr prefix) :modifiers (car prefix))
  +    (grab-button *root* (cdr move) '(:button-press) :modifiers (car move))
  +    (grab-button *root* (cdr resize) '(:button-press) :modifiers (car resize))
   
       (unwind-protect
            (loop named eventloop do
  
positive.code: ;;; Most simple window manager on earth. It is a fork from the lisp
  ;;; version of tinywm.
  
  ;; Load CLX and make a package
  (require 'asdf)
  (asdf:load-system :clx)
  (defpackage :most.simple.wm
  
negative.code:                        (grab-keyboard *root*)
                         (setf waiting-shortcut t))))
                 (:button-press
                  (code state child)
                  (when child        ; do nothing if we're not over a window
                    (setf last-button code)
                    (grab-pointer child '(:pointer-motion :button-release))
                    (when (and (= code (cdr resize))
                               (= state (car resize)))
                      (warp-pointer child (drawable-width child) 
                                    (drawable-height child)))
                    (let ((lst (multiple-value-list (query-pointer *root*))))
  