anchor.diff:  (defvar *display* (open-default-display))
   (defvar *root* (screen-root (display-default-screen *display*)))
   (defparameter *windows* nil "List of managed and mapped windows.")
  +(defparameter *hidden* nil "List of hidden windows.")
   (defparameter *last* nil "Last focused window.")
   (defparameter *curr* nil "Current focused window.")
   
  
positive.code: 
  (defun app ()
    (grab-keyboard *root*)
    (unwind-protect 
         (recdo 0 *apps* #'(lambda (app) (run-program app nil :wait nil :search t)))
      (ungrab-keyboard *display*)))
  
  
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*)))
  