anchor.diff:                        (incf y new-h)
                         (setf height (abs new-h)))
                        (t (setf height new-h)))))
  -    (unless (on-p :pinned window)
  +    (unless (pinned-p window)
         (setf (xlib:drawable-x window) x
   	    (xlib:drawable-y window) y
   	    (xlib:drawable-width window) width
  
positive.code: 		   :y (- (truncate sh 2) (truncate h 2))))))
  
  (defun wash-sticky-position ()
    (off :pinned *curr*))
  
  (defun split-string (string &optional (character #\Space))
    "Returns a list of substrings of string
  
negative.code: (defshortcut (:shift #\f) (fullscreen :pinned-p t))
  (defshortcut (#\.) (center))
  (defshortcut (:shift #\.) (center))
  (defshortcut (:shift #\p) (toggle-pin))
  (defshortcut (:shift #\w) (wash-sticky-position))
  
  (defvar last-button nil)
  