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