anchor.diff:             (remf (window-plist window) 'original-dimension))
             (t (when (and x y w h)
                  (setf (getf (window-plist window) 'original-dimension)
  -                     (list (drawable-x window) (drawable-y window)
  -                           (drawable-width window) (drawable-height window)))
  -               (move window x y w h))))))
  +                     (list :x (drawable-x window) :y (drawable-y window)
  +                           :width (drawable-width window) :height (drawable-height window)))
  +               (move window :x x :y y :width w :height h))))))
   
   (defun win= (a b)
     (and (typep a 'window) (typep b 'window) (window-equal a b)))
  
positive.code: 
  (defhandler :map-notify (window override-redirect-p)
    (unless override-redirect-p
      (focus (plus window))))
  
  (defhandler :unmap-notify (window)
    (when (managed-p window)
      (focus (minus window))))
  
  ;;; Restart function
  (defun skip-window-or-ignore-async (c)
  
negative.code:              (rplacd ,asc #',fn)
               (push (cons ,sc #',fn) *shortcuts*))))))
  
  (defun move (window &key x y width height)
    "Move a window."
    (with-state (window)
      (when x (setf (drawable-x window) x))
      (when y (setf (drawable-y window) y))
      (when width (setf (drawable-width window) width))
      (when height (setf (drawable-height window) height))))
  
  (defun memove (window &optional x y w h)
    "Memory Move a window (i.e. toggle between current position and the
  