anchor.diff:                                                      *shortcuts*))))
                                (when (functionp fn) (funcall fn)))))
                     (ungrab-keyboard *display*)
  +                  (ungrab-mouse)
                     (setf waiting-shortcut nil))))
             ((sc= *prefix* state code)
              (grab-keyboard *root*)
  +           (grab-mouse *root* nil)
              (setf waiting-shortcut t)))))
   
   (defhandler :button-press (state code child)
  
positive.code: (defvar *curr* nil "Current focused window.")
  (defvar *rc* (merge-pathnames ".wm.lisp" (user-homedir-pathname)) "User config file.")
  (defvar *shortcuts* nil "Shortcuts alist.")
  (defparameter *handlers* (make-list (length xlib::*event-key-vector*)
                                      :initial-element #'(lambda (&rest slots))))
  
  (defun argc ()
    "Return the command line argument count."
  
negative.code:                    (drawable-height event-window) new-h))))
      (setf last-motion time)))
  
  (defhandler :button-release () (ungrab-mouse))
  
  (defhandler :map-notify (window override-redirect-p)
    (unless override-redirect-p
  