anchor.diff:                    (focus (add-window window))))
                  (:destroy-notify
                   (window)
  -                (setf *windows* (rrem window *windows* :test #'window-equal)))))
  -                ;; (if (win= window *last*)
  -                ;;     (setf *last* nil)
  -                ;;     (focus *last*)))))
  +                (setf *windows* (rrem window *windows* :test #'window-equal))
  +                (if (win= window *last*)
  +                    (setf *last* nil)
  +                    (focus *last*)))))
         (ungrab-button *root* (code move) :modifiers (state move))
         (ungrab-button *root* (code resize) :modifiers (state resize))
         (ungrab-key *root* (code prefix) :modifiers (state prefix))
  
positive.code: (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
  (defshortcut (#\n) (next))
  (defshortcut (#\p) (next #'1-))
  ;;(defshortcut (:control #\t) (flast))
  ;;(defshortcut (#\h) (toggle-hide))
  (defparameter *groupers* (list 
                            #'(lambda (w) 
  
negative.code: (defun flast ()
    (if *last*
        (focus *last*)
        (setf *last* (have-focus))))
  
  (defun toggle-hide ()
    (dolist (w *windows*)
  