anchor.diff:      (grab-it b :inverse-p t))
     (grab-it *prefix* :inverse-p t))
   
  +(defparameter *cursor*
  +  (let* ((white (xlib:make-color :red 1.0 :green 1.0 :blue 1.0))
  +         (black (xlib:make-color :red 0.0 :green 0.0 :blue 0.0))
  +         (cursor-font (xlib:open-font *display* "cursor")))
  +    (xlib:create-glyph-cursor :source-font cursor-font
  +                              :source-char 64
  +                              :mask-font cursor-font
  +                              :mask-char 65
  +                              :foreground black
  +                              :background white)))
  +
  +(defun grab-mouse (window event-mask)
  +  "Grab pointer with a cursor change that states that we're talking to
  +the window manager."
  +    (grab-pointer window event-mask :cursor *cursor*))
  +
  +(defun ungrab-mouse () (ungrab-pointer *display*))
  +
   (defun load-rc ()
     (ungrab-all)
     (ignore-errors (load *rc*))
  
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:                                                     *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)
  