anchor.diff:                    :line-height "26px"
                     :padding-left "3px"
                     :padding-right "3px")
  +                 ("#vi-mode"
  +                  :margin "2px"
  +                  :padding "1px")
  +                 (".vi-normal-mode"
  +                  :background-color "rgb(80,80,80)")
  +                 (".vi-insert-mode"
  +                  :background-color "#37a8e4")
                    ("#input"
                     :border "none"
                     :outline "none"
  
positive.code: 
  (defun prompt-render-skeleton (prompt-buffer)
    (erase-document prompt-buffer)
    (ffi-buffer-evaluate-javascript-async
     prompt-buffer
     (ps:ps (ps:chain document
                      (write
                       (ps:lisp (markup:markup
                                 (:head (:style (style prompt-buffer)))
                                 (:body
                                  (:div :id "prompt-area"
                                        (:div :id "prompt" (prompter:prompt prompt-buffer))
                                        (:div :id "prompt-extra" "[?/?]")
                                        (:div (:input :type (if (invisible-input-p prompt-buffer)
                                                                "password"
                                                                "text")
                                                      :id "input"
                                                      :value (prompter:input prompt-buffer)))
                                        (:div :id "prompt-modes" ""))
                                  (markup:raw
                                   (markup:markup*
                                    `(:div :id "suggestions"
                                           ,@(when (invisible-input-p prompt-buffer)
                                               '(:hidden "true")))))))))))))
  
  (defun prompt-render-focus (prompt-buffer)
    (ffi-buffer-evaluate-javascript-async
  
negative.code:                prompt-buffer suggestions marks
                 :multi-selection-p (some #'prompter:multi-selection-p
                                          (prompter:sources prompt-buffer)))))
         (when (ps:lisp vi-class)
           (let ((vi-indicator (ps:chain document (get-element-by-id "vi-mode"))))
             (setf (ps:chain vi-indicator |innerHTML|) (ps:lisp vi-letter))
             (setf (ps:chain vi-indicator class-name) (ps:lisp vi-class))))
         (setf (ps:chain document (get-element-by-id "prompt-modes") |innerHTML|)
               (ps:lisp
                (format nil "~{~a~^ ~}" (delete "prompt-buffer"
  