anchor.diff:  (defvar *windows* nil "List of managed windows.")
   (defvar *last* nil "Last focused window.")
   (defvar *curr* nil "Current focused window.")
  +(defvar *mosaic-p* nil)
   (defparameter *handlers* (make-list (length xlib::*event-key-vector*)
                                       :initial-element #'(lambda (&rest slots))))
   
  
positive.code: (defshortcut (#\f) (fullscreen))
  (defshortcut (#\.) (center))
  (defshortcut (:shift #\.) (center))
  
  (defun send-prefix ()
    (let ((focus (input-focus *display*)))
  
negative.code:     (setf (drawable-x window) x (drawable-y window) y
            (drawable-width window) w (drawable-height window) h)))
  
  (defun memove (window &optional x y w h)
    "Memory Move a window (i.e. toggle between current position and the
  given one). Without a given new position reset position or does
  nothing."
    (let ((dim (getf (window-plist window) 'original-dimension)))
      (cond (dim
             (apply #'move window dim)
             (remf (window-plist window) 'original-dimension))
            (t (when (and x y w h)
                 (setf (getf (window-plist window) 'original-dimension)
                       (list (drawable-x window) (drawable-y window)
                             (drawable-width window) (drawable-height window)))
                 (move window x y w h))))))
  
  (defun win= (a b)
    (and (typep a 'window) (typep b 'window) (window-equal a b)))
  
  