anchor.diff:  (define-class variable-source (prompter:source)
     ((prompter:name "Variables")
      (prompter:constructor (package-variables))))
  +
  +(define-class package-source (prompter:source)
  +  ((prompter:name "Packages")
  +   (prompter:constructor (mapcar (alex:compose #'intern #'package-name) (list-all-packages)))))
   
   (define-command describe-any ()
     "Inspect anything and show it in a help buffer."
  
positive.code:                               (nyxt-url 'describe-class :class symbol))
                               ((member type '(defun defmethod defgeneric))
                                (nyxt-url 'describe-function :function symbol))
                               (t nil)))))
               (spinneret:with-html-string
                 (if url
  
negative.code:         (spinneret:with-html-string
            (:code (:raw (ppcre:regex-replace-all "`[^'\\s]+'" string #'resolve-regex))))
          "")))
  
  (define-internal-page-command-global describe-package
      (&key (package
             (prompt1
               :prompt "Describe package:"
               :sources (make-instance 'package-source))))
      (buffer (str:concat "*Help-" (package-name package) "*")
              'nyxt/help-mode:help-mode)
    "Inspect a package and show it in a help buffer."
    (let ((total-symbols (package-defined-symbols nil (list package)))
          (external-symbols (package-defined-symbols (list package))))
      (flet ((package-markup (package)
               (spinneret:with-html
                 (:a :href (nyxt-url 'describe-package :package (package-name package))
                     (package-name package)))))
        (spinneret:with-html-string
          (:style (style buffer))
          (:h1 (package-name package))
          (:raw (resolve-backtick-quote-links (documentation (find-package package) t) package))
          (:h2 "Symbols:")
          (:ul
           (:li "External: " (length external-symbols))
           (:li "Internal: " (- (length total-symbols) (length external-symbols)))
           (:li "Total: " (length total-symbols)))
          (:h2 "Use list:")
          (:ul
           (dolist (use (package-use-list package))
             (:li (package-markup use))))
          (:h2 "Used by list:")
          (:ul
           (dolist (use (package-used-by-list package))
             (:li (package-markup use))))))))
  
  (define-internal-page-command-global describe-variable
      (&key (variable
  