anchor.diff:  (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
   (defshortcut (#\n) (next *display*))
   (defshortcut (#\p) (next *display* #'1-))
  +(defshortcut (#\h) (toggle-hide))
   
   ;;; Modifier keypress avoidance code
   (defvar *mods-code* (multiple-value-call #'append (modifier-mapping *display*)))
  
positive.code: (defun next (display &optional (way #'1+))
    (when *windows*
      (let* ((cw (input-focus display))
             (ncw (position-if #'(lambda (w) (window-equal w cw)) *windows*))
             (n (length *windows*))
             (next (mod (funcall way ncw) n)))
        (unless (= next ncw)
          (focus (nth next *windows*))))))
  
  (defun focus (window)
    (setf (window-priority window) :above)
    (set-input-focus *display* window :pointer-root))
  
  ;;; User settings
  (defparameter *prefix* '(:control #\t) "Prefix for shortcuts")
  
negative.code:                   (focus window)))
                 (:destroy-notify
                  (window)
                  (setf *windows* (remove window *windows* :test #'window-equal)))))
        (ungrab-button *root* (code move) :modifiers (state move))
        (ungrab-button *root* (code resize) :modifiers (state resize))
        (ungrab-key *root* (code prefix) :modifiers (state prefix))
  