anchor.diff:                                     :margin "0")
                                     (li :padding "2px")
                                     (.selected :background-color "gray"
  -                                   :color "white")))
  +                                             :color "white")
  +                                  ;; Make sure .selected and .marked can stack
  +                                  ;; since the candidate can be both marked on
  +                                  ;; selected.
  +                                  (.marked :background-color "darkgray"
  +                                           :font-weight "bold"
  +                                           :color "white")))
                        :documentation "The CSS applied to a minibuffer when it is set-up.")))
   
   (defmethod content ((minibuffer minibuffer))
  
positive.code: 
  (define-command return-input (&optional (minibuffer (current-minibuffer)))
    "Return with minibuffer selection."
    (with-slots (callback empty-complete-immediate completions completion-cursor)
        minibuffer
      (match (and completions
                  (nth completion-cursor completions))
        ((guard completion completion)
         ;; Note that "immediate input" is also in completions, so it's caught here.
         (setf completion (if (stringp completion)
                              (str:replace-all " " " " completion)
                              completion))
         (funcall callback completion))))
    (quit-minibuffer minibuffer))
  
  (define-command return-immediate (&optional (minibuffer (current-minibuffer)))
  
negative.code:                                             :test #'equal)))))
  
  (define-command minibuffer-history (&optional (minibuffer (current-minibuffer)))
    "Choose a minibuffer input history entry to insert as input."
    (when (history minibuffer)
      (with-result (input (read-from-minibuffer
                           (make-instance 'minibuffer
  