anchor.diff:        (setf *last* (next #'1+ *curr*)))
       *curr*))
   
  -(defun toggle-hide ()
  -  "Hide or show every managed window."
  -  (cond (*hidden*
  -         (dolist (w *hidden*) (mapw w))
  -         (setf *hidden* nil))
  -        (t
  -         (setf *hidden* (copy-tree *windows*))
  -         (dolist (w *windows*) (unmapw w)))))
  +(defun fullscreen ()
  +  "Toggle fullscreen state of the current window."
  +  (unless (listp *curr*)
  +    (cond (*dim*
  +           (apply #'move *curr* *dim*)
  +           (setf *dim* nil))
  +          (t (let* ((screen (display-default-screen *display*))
  +                    (sw (screen-width screen))
  +                    (sh (screen-height screen)))
  +               (setf *dim* (list (drawable-x *curr*) (drawable-y *curr*)
  +                                 (drawable-width *curr*) (drawable-height *curr*)))
  +               (move *curr* 0 0 sw sh))))))
   
   (defmacro defror (command)
     "Define a raise or run command."
  
positive.code:        (setf *shortcuts* (remove ,sc *shortcuts* :test #'equal :key #'car))
         (push (cons ,sc #'(lambda () ,@body)) *shortcuts*))))
  
  (defgeneric focus (window))
  
  (defmethod focus :before (window)
    (unless (null window)
      (unless (win= window *curr*) (setf *last* *curr*))
      (setf *curr* window)))
  
  (defmethod focus ((window window))
  
negative.code: (defshortcut (:control #\p) (focus (next #'1-)))
  (defshortcut (:control #\t) (focus *last*))
  (defshortcut (#\a) (app))
  (defshortcut (#\f) (fullscreen))
  
  (defun send-prefix ()
    (let ((focus (input-focus *display*)))
  