anchor.diff:                                   (cl-markup:markup
                                     (:li :class (cond
                                                   ((= i cursor-index) "selected")
  +                                                ((member completion (marked-completions minibuffer)) "marked")
                                                   ((= i (completion-head minibuffer)) "head"))
                                          :id (cond
                                                ((= i cursor-index) "selected")
  +                                             ((member completion (marked-completions minibuffer)) "marked")
                                                ((= i (completion-head minibuffer)) "head"))
                                          (object-string completion))))))))
   
  
positive.code:          (object-string (nth completion-cursor completions)))))
  
  (define-command copy-candidate (&optional (minibuffer (current-minibuffer)))
    "Paste clipboard text to input."
    (let ((candidate (get-candidate minibuffer)))
      (when candidate
        (trivial-clipboard:text candidate))))
  
negative.code: @export
  @export-accessors
  (defclass minibuffer (buffer)
    ((default-modes :initarg :default-modes
                    :initform '(minibuffer-mode))
     (completion-function :initarg :completion-function :accessor completion-function
                          :initform nil
                          :documentation "Function that takes the user input
  string and returns a list of candidate strings")
     (callback :initarg :callback :accessor callback
               :initform nil
               :documentation "Function to call over the selected candidate.")
     (callback-buffer :initarg :callback-buffer
                      :accessor callback-buffer
                      :initform (when *interface* (current-buffer))
                      :documentation "The active buffer when the minibuffer was
  brought up.  This can be useful to know which was the original buffer in the
  `callback' in case the buffer was changed.")
     (setup-function :initarg :setup-function :accessor setup-function
                     :initform #'setup-default
                     :documentation "Function of no argument that fills the
  `content' on when the minibuffer is created.  Called only once.")
     (cleanup-function :initarg :cleanup-function :accessor cleanup-function
                       :initform nil
                       :documentation "Function run after a completion has been selected.
  This should not rely on the minibuffer's content.")
     (empty-complete-immediate :initarg :empty-complete-immediate :accessor empty-complete-immediate ; TODO: Rename?
  