anchor.diff:      `(defun ,command ()
          (let* ((,cmdstr (string-downcase (string ',command)))
                 (,win (find-if #'(lambda (w) (string-equal ,cmdstr (xclass w)))
  -                             (windows))))
  +                             *windows*)))
            (if ,win
                (focus ,win)
                (run ,cmdstr))))))
  
positive.code: 
  (defhandler :map-notify (window override-redirect-p)
    (unless override-redirect-p
      (focus window)))
  
  (defhandler :unmap-notify (window) (focus (minus window)))
  
  
negative.code: 
  (defun finder ()
    (grab-keyboard *root*)
    (unwind-protect (recdo *windows* #'focus :key #'xclass :matcher #'in-matcher)
      (ungrab-keyboard *display*)))
  
  ;;; Mouse shorcuts
  