anchor.diff:                   (.selected :background-color "gray"
                               :color "white")))
       :documentation "The CSS applied to a minibuffer when it is set-up.")
  +   (user-style
  +    :accessor user-style
  +    :initform ""
  +    :documentation "User CSS that is applied after the
  +minibuffer-style. This can be used to override any styles in the
  +minibuffer-style.")
      (override-map :accessor override-map
                    :initform (let ((map (make-keymap "overide-map")))
                                (define-key map
  
positive.code:   (update-candidates minibuffer)
    (setf (content minibuffer)
          (markup:markup
           (:head (:style (minibuffer-style minibuffer)))
           (:body
            (:div :id "container"
                  (:div :id "input" (:span :id "prompt" "") (:span :id "input-buffer" ""))
  
negative.code:      show-completion-count-p
       max-lines
       minibuffer-style
       user-style
       override-map)))
  
  (defclass minibuffer (buffer)
  