anchor.diff:      (let ((input-text (if (invisible-input-p minibuffer)
                             (generate-input-html-invisible input-buffer input-buffer-cursor)
                             (generate-input-html input-buffer input-buffer-cursor)))
  -          (completion-html (generate-completion-html completions completion-cursor)))
  +          (completion-html (generate-completion-html completions completion-cursor minibuffer)))
         (evaluate-script minibuffer
                          (ps:ps
                            (setf (ps:chain document (get-element-by-id "prompt") |innerHTML|)
  
positive.code:                                (:span :id "cursor" (subseq input-buffer-password cursor-index (+ 1 cursor-index)))
                                 (:span (subseq input-buffer-password (+ 1  cursor-index))))))))
  
  (defun generate-completion-html (completions cursor-index)
    (cl-markup:markup (:ul (loop for i from 0 for completion in completions
                                 collect
                                 (cl-markup:markup
                                  (:li :class (when (equal i cursor-index) "selected")
                                       :id (when (equal i cursor-index) "selected")
                                       (object-string completion)))))))
  
  @export
  (defmethod update-display ((minibuffer minibuffer))
    (with-slots (input-buffer input-buffer-cursor completion-function
                 completions completion-cursor empty-complete-immediate)
        minibuffer
      (if completion-function
          (setf completions (funcall completion-function input-buffer))
  
negative.code:                                   ;; content) (html (minibuffer minibuffer))),
                                    ;; there'd be no need for this measure, at the
                                    ;; cost of more Javascript evaluations.
                                    ;; (ps:ps (ps:chain document
                                    ;;                  (write (ps:lisp (content minibuffer)))))
                                    script
                                    ;; Return the new HTML body.
                                    (ps:ps (ps:chain document body |outerHTML|)))))
  