anchor.diff:  (defshortcut (:mod-1 #\e) (run-program "envi" nil :wait nil :search t))
   (defshortcut (#\n) (focus (next)))
   (defshortcut (:control #\n) (focus (next)))
  +(defshortcut (#\p) (focus (next #'1-)))
  +(defshortcut (:control #\p) (focus (next #'1-)))
   (defshortcut (:control #\t) (focus *last*))
   (defshortcut (#\a) (app))
   (defshortcut (#\f) (fullscreen))
  
positive.code:             *curr* window)
        (display-finish-output *display*))))
  
  (defun next ()
    (let* ((windows (windows))
           (nw (or (position *curr* windows :test #'win=) 0))
           (n (length windows)))
      (unless (zerop n)
        (nth (mod (1+ nw) n) windows))))
  
  (defun minus (window)
    "House keeping when window is unmapped. Returns the window to be
  
negative.code:   (labels ((ok-win-p (window)
               (and (eql (window-map-state window) :viewable)
                    (eql (window-override-redirect window) :off))))
      (sort (loop for w in (query-tree *root*)
                  when (ok-win-p w) collect w) #'< :key #'drawable-id)))
  
  (defun grouper (window)
    "Get the grouper function of a window if there is one."
    (find-if #'(lambda (f) (funcall f window)) *groupers*))
  
  (defun focus (window)
    (unless (null window)
  