anchor.diff:                            (input-prompt nil explicit-input-prompt)
                             (input-buffer nil explicit-input-buffer)
                             (invisible-input-p nil explicit-invisible-input-p)
  +                          (show-current-choices-nb t explicit-show-current-choices-nb)
                             (history nil explicit-history)
                             (multi-selection-p nil explicit-multi-selection-p))
     "See the `minibuffer' class for the argument documentation."
  
positive.code:                                (ps:lisp
                                  (format nil "~a~a"
                                          (input-prompt minibuffer)
                                          (if completions
                                              (if marked-completions
                                                  (format nil "[~a/~a]:"
                                                          (length marked-completions)
                                                          (length completions))
                                                  (format nil "[~a]:"
                                                          (length completions)))
                                              ""))))
                           (setf (ps:chain document (get-element-by-id "input-buffer") |innerHTML|)
                                 (ps:lisp input-text))
                           (setf (ps:chain document (get-element-by-id "completions") |innerHTML|)
  
negative.code: candidates.")
     (completions :accessor completions :initform nil)
     (marked-completions :accessor marked-completions :initform nil)
     (show-current-choices-nb :accessor show-current-choices-nb
                              :initarg :show-current-choices-nb :initform t
                              :type boolean
                              :documentation "Show the number of chosen candidates inside brackets. In the case of yes/no questions, there is no need for it.")
     (completion-head :accessor completion-head :initform 0)
     (completion-cursor :accessor completion-cursor :initform 0) ; TODO: Rename to completion-index?
     (content :initform "" :type string
  