anchor.diff:  
   (defhandler :map-notify (window override-redirect-p)
     (unless override-redirect-p
  -    (focus window)))
  +    (focus (plus window))))
   
   (defhandler :unmap-notify (window) (focus (minus window)))
   
  
positive.code: 
  (defvar *display* (open-default-display))
  (defvar *root* (screen-root (display-default-screen *display*)))
  (defvar *last* nil "Last focused window.")
  (defvar *curr* nil "Current focused window.")
  (defvar *dim* nil "Dimension of current window before fullscreen.")
  
negative.code: 
  (defun finder ()
    (grab-keyboard *root*)
    (unwind-protect (recdo *windows* #'focus :key #'xclass :matcher #'in-matcher)
      (ungrab-keyboard *display*)))
  
  ;;; Mouse shorcuts
  