anchor.diff:  (defshortcut (:control #\p) (focus (next #'1-)))
   (defshortcut (:control #\t) (focus *last*))
   (defshortcut (#\a) (app))
  +(defshortcut (#\s) (ssh))
   (defshortcut (#\') (finder))
   (defshortcut (#\f) (fullscreen))
   (defshortcut (#\.) (center))
   (defshortcut (:shift #\.) (center))
   
  -(defun send-prefix ()
  -  (let ((focus (input-focus *display*)))
  -    (when (win= focus *curr*)
  -      (send-event focus :key-press (make-event-mask :key-press)
  -                        :window focus
  -                        :code (code *prefix*)
  -                        :state (state *prefix*)))))
  -(defshortcut (#\t) (send-prefix))
  +(defun send-prefix (window)
  +  (send-event window :key-press (make-event-mask :key-press)
  +                     :window window
  +                     :code (code *prefix*)
  +                     :state (state *prefix*)))
  +(defshortcut (#\t) (send-prefix *curr*))
   
   (defvar last-button nil)
   (defvar last-x nil)
  
positive.code:   "Return non-nil if keycode is a modifier"
    (find keycode *mods-code* :test #'eql))
  
  ;;; App launcher
  (defparameter *abort* (compile-shortcut :control #\g))
  (defparameter *this* (compile-shortcut #\Return)
    "Validate THIS app even if it is a prefix of more than one.")
  
  (defun single (list) (and (consp list) (null (cdr list))))
  
  (defun one-char ()
    "Get one char from the user. The keyboard should be grabbed before call."
  
negative.code:     (memove *curr* (- (truncate sw 2) (truncate w 2))
              (- (truncate sh 2) (truncate h 2)) w h)))
  
  (defun split-string (string &optional (character #\Space))
    "Returns a list of substrings of string
  divided by ONE space each.
  Note: Two consecutive spaces will be seen as
  if there were an empty string between them."
    (loop for i = 0 then (1+ j)
          as j = (position character string :start i)
          collect (subseq string i j)
          while j))
  
  (defun run (command)
    (let ((com (split-string command)))
      #+clisp (ext:run-program (first com) :arguments (rest com) :wait nil)
      #+sbcl (sb-ext:run-program (first com) (rest com) :wait nil :search t)))
  
  (defmacro defror (command)
    "Define a raise or run command."
  