anchor.diff:    (intern-atom *display* :_motif_wm_hints)
     (setf (window-event-mask *root*) '(:substructure-notify))
   
  +  (setf *last* (setf *curr* (find-if #'ok-win-p (query-tree *root*))))
  +
     (unwind-protect (evloop)
       (dolist (b (list *move* *resize* *close*))
         (ungrab-button *root* (code b) :modifiers (state b)))
  
positive.code:   (and (eql (window-map-state window) :viewable)
         (eql (window-override-redirect window) :off)))
  
  (defun focus (window)
    (unless (null window)
      (unless (window-equal window *curr*)
        (setf *last* *curr*)
        (when *dim*
          (apply #'move *curr* *dim*)
  
negative.code: (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
  (defshortcut (:mod-1 #\e) (run-program "envi" nil :wait nil :search t))
  (defshortcut (#\n) (focus (next)))
  (defshortcut (:control #\n) (focus (next)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  (defshortcut (#\f) (fullscreen))
  
  (defun send-prefix ()
    (let ((focus (input-focus *display*)))
      (when (win= focus *curr*)
        (send-event focus :key-press (make-event-mask :key-press)
                          :window focus
                          :code (code *prefix*)
  