anchor.diff:  ;;; Most simple window manager on earth. It is a fork from the lisp
   ;;; version of tinywm.
   
  -;; Load CLX and make a package
  +;;; Load CLX and make a package
   (require 'asdf)
   (asdf:load-system :clx)
   (defpackage :most.simple.wm
  
positive.code:                           last-y (seventh lst)))))
                 (:motion-notify
                  (event-window root-x root-y)
                  (cond ((= last-button *move*)
                         (let ((delta-x (- root-x last-x))
                               (delta-y (- root-y last-y)))
                           (incf (drawable-x event-window) delta-x)
                           (incf (drawable-y event-window) delta-y)
                           (incf last-x delta-x)
                           (incf last-y delta-y)))
                        ((= last-button *resize*)
                         (let ((new-w (max 1 (- root-x (drawable-x event-window))))
                               (new-h (max 1 (- root-y (drawable-y event-window)))))
                           (setf (drawable-width event-window) new-w
                                 (drawable-height event-window) new-h)))))
                 (:button-release () (ungrab-pointer *display*))
                 ((:configure-notify :exposure) () t)))
        (dolist (button (list *move* *resize*))
          (ungrab-button *root* button :modifiers *mouse-mod*))
        (ungrab-key *root* (cdr prefix) :modifiers (car prefix))
        (close-display *display*))))
  
  
negative.code:     `(let ((,sc (compile-shortcut ',key)))
         (pushnew (cons ,sc #'(lambda () ,@body)) *shortcuts* :test #'equal :key #'car))))
  
  ;;; User settings
  (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) (run-program "emacs" nil :wait nil :search t))
  (defshortcut (#\w) (run-program "xxxterm" nil :wait nil :search t))
  