anchor.diff:      (buffer (str:concat "*Help-" (symbol-name variable) "*")
               'nyxt/help-mode:help-mode)
     "Inspect a variable and show it in a help buffer."
  -  (spinneret:with-html-string
  -    (:style (style buffer))
  -    (:h1 (format nil "~s" variable)) ; Use FORMAT to keep package prefix.
  -    (:raw (resolve-backtick-quote-links (documentation variable 'variable) variable))
  -    (:h2 "Current Value:")
  -    (:p (:raw (value->html (symbol-value variable))))))
  +  (let ((*print-case* :downcase))
  +    (spinneret:with-html-string
  +      (:style (style buffer))
  +      (:h1 (format nil "~s" variable)) ; Use FORMAT to keep package prefix.
  +      (:raw (resolve-backtick-quote-links (documentation variable 'variable) variable))
  +      (:h2 "Current Value:")
  +      (:p (:raw (value->html (symbol-value variable)))))))
   
   (define-internal-page-command-global describe-function
       (&key (function (prompt1
  
positive.code:          (source-file
             (alex:when-let ((location (getf (swank:find-definition-for-thing (fn command))
                                             :location)))
               (alex:last-elt location))))
      (spinneret:with-html-string
        (:style (style buffer))
        (:h1 (symbol-name (name command))
  
negative.code:   "Create the HTML that represents a slot."
    ;; TODO: Adapt HTML sections / lists to describe-slot and describe-class.
    ;; TODO: Parse docstrings and highlight code samples.
    (let ((props (mopu:slot-properties (find-class class) slot))
          (*print-case* :downcase))
      (spinneret:with-html-string
        (:ul
         (:li (symbol-name slot))
  