anchor.diff:                                     :color "white")))
                        :documentation "The CSS applied to a minibuffer when it is set-up.")))
   
  +(defmethod content ((minibuffer minibuffer))
  +  (slot-value minibuffer 'content))
  +
  +(defmethod (setf content) (html-content minibuffer)
  +  "Set the `content' of the MINIBUFFER to HTML-CONTENT.
  +This runs a call"
  +  (setf (slot-value minibuffer 'content) html-content)
  +  (rpc-minibuffer-evaluate-javascript
  +   *interface* (last-active-window *interface*)
  +   (ps:ps (ps:chain document
  +                    (write (ps:lisp (content minibuffer)))))))
  +
   (defmethod initialize-instance :after ((minibuffer minibuffer) &key)
     ;; We don't want to show the input in the candidate list when invisible.
     (setf (empty-complete-immediate minibuffer)
  
positive.code:   (setf (input-buffer-cursor minibuffer) 0)
    (setf (content minibuffer) ""))
  
  ;; TODO: Move `erase-document' into the `show' function.
  (defmethod erase-document ((minibuffer minibuffer))
    (evaluate-script minibuffer
                     (ps:ps
  
negative.code:          (:body
            (:div :id "container"
                  (:div :id "input" (:span :id "prompt" "") (:span :id "input-buffer" ""))
                  (:div :id "completions" ""))))))
  
  (defmethod evaluate-script ((minibuffer minibuffer) script)
    "Evaluate SCRIPT into MINIBUFFER's webview.
  The new webview HTML content it set as the MINIBUFFER's `content'."
    (let ((active-window (rpc-window-active *interface*)))
      (when minibuffer
        (with-result (new-content (rpc-minibuffer-evaluate-javascript
                                   *interface* active-window
                                   (str:concat
                                    script
                                    ;; Return the new HTML body.
                                    (ps:ps (ps:chain document body |outerHTML|)))))
          ;; Since the script may have changed the content on the platform port,
          ;; we need to update the slot's value.
          (setf (slot-value minibuffer 'content) new-content)))))
  
  (defmethod show ((interface remote-interface) &key
                                                  (minibuffer (first (active-minibuffers
  