anchor.diff:  (defmethod win= ((a list) (b window)) (loop for w in a thereis (window-equal w b)))
   (defmethod win= ((a window) (b list)) (loop for w in b thereis (window-equal w a)))
   (defmethod win= ((a list) (b list)) (loop for w in a thereis (win= w b)))
  +
  +(defmethod mapw ((w window)) (map-window w))
  +(defmethod mapw ((w list)) (dolist (x w) (map-window x)))
  +(defmethod unmapw ((w window)) (unmap-window w))
  +(defmethod unmapw ((w list)) (dolist (x w) (unmap-window x)))
   
   (defun next (&optional (way #'1+) (window *curr*))
     (when *windows*
  
positive.code: (defvar *display* (open-default-display))
  (defvar *root* (screen-root (display-default-screen *display*)))
  (defparameter *windows* nil "List of managed and mapped windows.")
  (defparameter *last* nil "Last focused window.")
  (defparameter *curr* nil "Current focused window.")
  
  
negative.code: (defshortcut (:control #\p) (focus (next #'1-)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  (defshortcut (#\h) (toggle-hide))
  
  (defun send-prefix ()
    (let ((focus (input-focus *display*)))
  