anchor.diff:  (in-package :nyxt)
   
   (defmacro command-markup (fn &key (modes nil explicit-modes-p))
  -  "Print FN in HTML followed its bindings in parentheses."
  +  "Print FN in HTML followed by its keybinding in parentheses."
     `(let ((spinneret:*suppress-inserted-spaces* t))
        (spinneret:with-html (:span
                              (:a :href (nyxt-url 'describe-command :command ,fn)
  
positive.code:           (:p "Edit user configuration and other files in external text editor.")))))
  
  (define-command print-bindings-cheatsheet ()
    "Print the buffer with the list of all known bindings for the current buffer
  optimizing the use of space."
    (nyxt::html-set-style (theme:themed-css (theme *browser*)
                            (h3
                             :font-size "10px"
  
negative.code:        (error "~a is not a function." ,fn)))
  
  (defmacro command-information (fn)
    "Print FN keybinding and first docstring sentence in HTML."
    `(spinneret:with-html (:li (command-markup ,fn) ": " (command-docstring-first-sentence ,fn))))
  
  (defun list-command-information (fns)
  