anchor.diff:                                 last-y (seventh lst)))))))
                (:motion-notify
                 (event-window root-x root-y)
  -              ;; while(XCheckTypedEvent(display, MotionNotify, &ev));
                 (cond ((member last-button *move*)
                        (let ((delta-x (- root-x last-x))
                              (delta-y (- root-y last-y)))
  
positive.code: (require 'asdf)
  (asdf:oos 'asdf:load-op 'clx)
  (use-package :xlib)
  (defparameter *mods*    '(:mod-1))      ; :mod-4 for windows key
  (defparameter *move*    '(1))
  (defparameter *resize*  '(2))
  (defparameter *lower*   '(3 4))
  (defparameter *raise*   '(5))
  
  (defun main ()
    (let* ((display (open-display ""))
           (screen (first (display-roots display)))
           (root (screen-root screen)))
  
      (dolist (button (list *move* *resize* *lower* *raise*))
        (mapcar #'(lambda (b)
                    (grab-button root b '(:button-press) :modifiers *mods*))
                button))
  
      (unwind-protect
          (let (last-button last-x last-y)
  
negative.code:              (display :discard-p t)
               ;; for key-press and key-release, code is the keycode
               ;; for button-press and button-release, code is the button number
               (:key-press
                ()
                ;; Not really portable isn't it
                (sb-ext:run-program "emacs" nil :wait nil :search t))
               (:button-press 
                (code child)
                (cond ((member code *raise*)
  