anchor.diff:  (defshortcut (#\b) (banish))
   (defshortcut (#\') (finder))
   (defshortcut (#\f) (fullscreen))
  +(defshortcut (#\g) (group))
  +(defshortcut (#\u) (ungroup))
   (defshortcut (:shift #\f) (fullscreen :pinned-p t))
   (defshortcut (#\.) (center))
   (defshortcut (:shift #\.) (center))
  
positive.code:   (dolist (w (get-transients-of window))
      (setf (xlib:window-priority w) :above)))
  
  (defun focus (window)
    (when window
      (let* ((grouper (grouper window))
  
negative.code:                (setf *last* *curr*
                       *curr* window))
               (xlib:set-input-focus *display* window :pointer-root)))
        (dolist (w (same-group window)) (%focus w))
        (%focus window))))
  
  (defun next (&optional (way #'1+))
  