anchor.diff:  ;; expose push-key-chord to server endpoint
   (import 'push-key-chord :s-xml-rpc-exports)
   
  +(defclass window ()
  +  ((id :accessor id)))
  +
   (defclass remote-interface ()
     ((host :accessor host :initform "localhost")
      (port :accessor port :initform 8082)
  -   (url :accessor url :initform "/RPC2")))
  +   (url :accessor url :initform "/RPC2")
  +   (windows :accessor windows :initform (make-hash-table)))
   
   (defmethod start-interface ((interface remote-interface))
     (s-xml-rpc:start-xml-rpc-server :port 8081))
  
positive.code:   (with-slots (host port url) interface
      (s-xml-rpc:xml-rpc-call
       (s-xml-rpc:encode-xml-rpc-call "window.switch" window)
       :host host :port port :url url)))
  
  (defmethod minibuffer-set-height ((interface remote-interface) window height)
  
negative.code:      (s-xml-rpc:encode-xml-rpc-call "buffer.make")
       :host host :port port :url url)))
  
  (defmethod buffer-delete ((interface remote-interface) buffer)
    (declare (ignore buffer)))
  
  (defmethod set-visible-buffer-for-pane ((interface remote-interface) view)
    (declare (ignore view)))
  
  (defmethod web-view-set-url ((interface remote-interface) view url)
  