anchor.diff:               (rplacd ,asc #',fn)
                (push (cons ,sc #',fn) *shortcuts*))))))
   
  -(defun pinned-p (window) (getf (xlib:window-plist window) 'pinned))
  -(defun pin (window) (setf (getf (xlib:window-plist window) 'pinned) t))
  -(defun unpin (window) (remf (xlib:window-plist window) 'pinned))
  -(defun toggle-pin ()
  -  "Toggles the pin of the current window. A pinned window is unmovable."
  -  (if (pinned-p *curr*) (unpin *curr*) (pin *curr*)))
  +(defun on-p (switch window) (getf (xlib:window-plist window) switch))
  +(defun on (switch window) (setf (getf (xlib:window-plist window) switch) t))
  +(defun off (switch window) (remf (xlib:window-plist window) switch))
  +(defun toggle (switch window)
  +  (if (on-p switch window) (off switch window) (on switch window)))
   
   (defun correct-size (window &optional x y width height dx dy dw dh)
     "Correct a window's dimensions with its sizehints."
  
positive.code:                       (incf y new-h)
                        (setf height (abs new-h)))
                       (t (setf height new-h)))))
      (unless (pinned-p window)
        (xlib:with-state (window)
          (setf (xlib:drawable-x window) x
                (xlib:drawable-y window) y
                (xlib:drawable-width window) width
                (xlib:drawable-height window) height)))
      (values x y width height dx dy dw dh)))
  
  (defun win= (a b)
  
negative.code: (defshortcut (#\f) (fullscreen))
  (defshortcut (:shift #\f) (fullscreen :pinned-p t))
  (defshortcut (#\.) (center))
  (defshortcut (:shift #\.) (center :stay-centered-p t))
  (defshortcut (:shift #\p) (toggle :pinned *curr*))
  
  (defvar last-button nil)
  (defvar last-x nil)
  