anchor.diff:                       (loop :until ready))))
       (setf *server* (jsonrpc:make-server))
       (jsonrpc:expose *server* "ready"
  -                    (lambda (args)
  -                      (declare (ignore args))
  +                    (lambda (params)
  +                      (resize params)
                         (setf ready t)
                         (params "width" *display-width*
                                 "height" *display-height*)))
       (jsonrpc:expose *server* "input" 'input-callback)
  -    (dbg "server-listen")
  +    ;(dbg "server-listen")
       (jsonrpc:server-listen *server* :mode :stdio)))
   
   (defmethod lem::interface-display-background-mode ((implementation (eql :jsonrpc)))
  
positive.code:                  (dolist (char keys)
                     (send-event char))))
                ((= kind +resize+)
                 (let ((width (gethash "width" value))
                       (height (gethash "height" value)))
                   (setf *display-width* width)
                   (setf *display-height* height)
                   (send-event :resize)))
                (t
                 (error "unexpected kind: ~D" kind))))
      (error (e)
  
negative.code:             (meta (gethash "meta" e))
              ;(super (gethash "super" e))
              )
          ;(dbg (format nil "key: ~A~%" key))
          (when (or meta (string= key "Escape"))
            (push (keyname->keychar "escape") keys))
          (let ((char (key-to-char key)))
  