anchor.diff:  (define-command describe-function ()
     "Inspect a function and show it in a help buffer.
   For generic functions, describe all the methods."
  -  (let ((input (prompt-minibuffer
  -                :input-prompt "Describe function"
  -                :suggestion-function (function-suggestion-filter))))
  +  (let ((input (prompt
  +                :prompt "Describe function"
  +                :sources (make-instance 'function-source))))
       (setf input (function-suggestion-name input))
       (flet ((method-desc (method)
                (markup:markup
  
positive.code: (define-command describe-class ()
    "Inspect a class and show it in a help buffer."
    (let* ((input (class-suggestion-name
                   (prompt-minibuffer
                    :input-prompt "Describe class"
                    :suggestion-function (class-suggestion-filter)))))
      (with-current-html-buffer (buffer
                                 (str:concat "*Help-" (symbol-name input) "*")
                                 'nyxt/help-mode:help-mode)
  
negative.code: (defmethod object-display ((class class-suggestion))
    (object-string class))
  
  (define-class function-source (prompter:source)
    ((prompter:name "Functions")
     (prompter:must-match-p t)
     (prompter:initial-suggestions
      (mapcar (lambda (v) (make-function-suggestion :name v))
              (package-functions)))))
  
  (define-class class-source (prompter:source)
    ((prompter:name "Classes")
     (prompter:must-match-p t)
     (prompter:initial-suggestions
      (mapcar (lambda (v) (make-class-suggestion :name v))
              (package-classes)))))
  
  (define-class slot-source (prompter:source)
    ((prompter:name "Slots")
     (prompter:must-match-p t)
     (prompter:initial-suggestions (package-slots))))
  
  (define-class variable-source (prompter:source)
    ((prompter:name "Variables")
     (prompter:must-match-p t)
     (prompter:initial-suggestions (mapcar (lambda (v) (make-variable-suggestion :name v))
                                           (package-variables)))))
  
  (define-command describe-variable ()
    "Inspect a variable and show it in a help buffer."
    (let* ((input (variable-suggestion-name
                   (prompt
                    :prompt "Describe variable:"
                    :sources (make-instance 'variable-source)))))
      (with-current-html-buffer (buffer
                                 (str:concat "*Help-" (symbol-name input) "*")
                                 'nyxt/help-mode:help-mode)
  