anchor.diff:                             (mapcar (lambda (engine) (apply 'make-search-engine engine))
                                      *my-search-engines*)))))"))
   
  -    (:h3 "URL-dispatchers")
  -    (:p "You can configure which actions to take depending on the URL to be
  +   (:h3 "URL-dispatchers")
  +   (:p "You can configure which actions to take depending on the URL to be
   loaded.  For instance, you can configure which Torrent program to start to load
   magnet links.  See the" (:code "url-dispatching-handler") " function
   documentation.")
   
  -    (:h3 "Downloads")
  -    (:p "See the " (command-markup 'list-downloads) " command and the "
  -        (:code "download-path") " buffer slot documentation.")
  -
  -    (:h3 "Proxy and Tor")
  -    (:p "See the " (:code "proxy-mode") " documentation.")
  -
  -    (:h3 "Blocker mode")
  -    (:p "This mode blocks access to websites related to especific hosts. To see
  +   (:h3 "Downloads")
  +   (:p "See the " (command-markup 'list-downloads) " command and the "
  +       (:code "download-path") " buffer slot documentation.")
  +
  +   (:h3 "Proxy and Tor")
  +   (:p "See the " (:code "proxy-mode") " documentation.")
  +
  +   (:h3 "Blocker mode")
  +   (:p "This mode blocks access to websites related to especific hosts. To see
   all hosts being blocked, execute command " (:code "describe-variable") ", choose variable "
   (:code "NYXT/BLOCKER-MODE:*DEFAULT-HOSTLIST*") ", and read data on "
   (:code "nyxt/blocker-mode:url-body") " slot." " To customize host blocking, read the "
   (:code "blocker-mode") " documentation.")
   
  -    (:h3 "Custom commands")
  -    (:p "Creating your own invokable commands is similar to creating a Common
  +   (:h3 "Custom commands")
  +   (:p "Creating your own invokable commands is similar to creating a Common
   Lisp function, except the form is " (:code "define-command") " instead of "
   (:code "defun") ". If you want this command to be invokable outside of
           the context of a mode, use " (:code "define-command-global") ".")
  -    (:p "Example:")
  -    (:pre (:code
  -           "(define-command-global bookmark-url ()
  +   (:p "Example:")
  +   (:pre (:code
  +          "(define-command-global bookmark-url ()
     \"Query the user which URL to bookmark.\"
     (let ((url (prompt
                 :prompt \"Bookmark URL\"
                 :sources (make-instance 'prompter:raw-source))))
       (bookmark-add url)))"))
  -    (:p "See the " (:code "prompt-buffer") " class documentation for how to write
  +   (:p "See the " (:code "prompt-buffer") " class documentation for how to write
   write custom prompt-buffers.")
   
  -    (:h3 "Hooks")
  -    (:p "Hooks provide a powerful mechanism to tweak the behaviour of various
  +   (:h3 "Hooks")
  +   (:p "Hooks provide a powerful mechanism to tweak the behaviour of various
   events that occur in the context of windows, buffers, modes, etc.")
  -    (:p "A hook holds a list of " (:i "handlers") ".  Handlers are named and
  +   (:p "A hook holds a list of " (:i "handlers") ".  Handlers are named and
   typed functions.  Each hook has a dedicated handler constructor.")
  -    (:p
  -     "Hooks can be 'run', that is, their handlers are run according to
  +   (:p
  +    "Hooks can be 'run', that is, their handlers are run according to
   the " (:code "combination") " slot of the hook.  This combination is a function
   of the handlers.  Depending on the combination, a hook can run the handlers
   either in parallel, or in order until one fails, or even " (:i "compose")
  -     " them (pass the result of one as the input of the next).  The handler types
  +    " them (pass the result of one as the input of the next).  The handler types
   specify which input and output values are expected.")
  -    (:p "Many hooks are executed at different points in Nyxt, among others:
  +   (:p "Many hooks are executed at different points in Nyxt, among others:
   ")
  -    (:ul
  -     (:li "Global hooks, such as " (:code "*after-init-hook*") ".")
  -     (:li "Window- or buffer-related hooks.")
  -     (:li "Commands 'before' and 'after' hooks.")
  -     (:li "Modes 'enable' and 'disable' hooks."))
  -    (:p "For instance, if you want to force 'old.reddit.com' over 'www.reddit.com', you
  +   (:ul
  +    (:li "Global hooks, such as " (:code "*after-init-hook*") ".")
  +    (:li "Window- or buffer-related hooks.")
  +    (:li "Commands 'before' and 'after' hooks.")
  +    (:li "Modes 'enable' and 'disable' hooks."))
  +   (:p "For instance, if you want to force 'old.reddit.com' over 'www.reddit.com', you
   can set a hook like the following in your configuration file:")
  -    (:pre (:code "
  +   (:pre (:code "
   \(defun old-reddit-handler (request-data)
     (let ((url (url request-data)))
       (setf (url request-data)
  
positive.code: \(define-configuration (buffer web-buffer)
    ((default-modes (append '(my-mode) %slot-default%))))"))
  
      (:p "Bindings are subject to various translations as per "
          (:code "keymap:*translator*") ". "
          "By default if it fails to find a binding it tries again with inverted
  shifts.  For instance if " (:code "C-x C-F") " fails to match anything " (:code "C-x C-f")
          " is tried."
          "See the default value of " (:code "keymap:*translator*") " to learn how to
           custsomize it or set it to " (:code "nil") " to disable all forms of
           translation.")
  
      (:h3 "Search engines")
      (:p "See the " (:code "search-engines") " buffer slot documentation.
  Bookmarks can also be used as search engines, see the corresponding section.")
      (:p "Nyxt comes with some default search engines for "
          (:code (format nil "~{~a~^, ~}"
                         (mapcar (lambda (engine)
                                   (quri:uri-host (quri:uri (getf engine :search-url))))
                                 (rest (getf (mopu:slot-properties 'buffer 'search-engines)
                                             :initform)))))
          ". "
          "The following example shows one way to add new search engines.")
      (:pre (:code "
  \(defvar *my-search-engines*
    (list
     '(\"python3\" \"https://docs.python.org/3/search.html?q=~a\" \"https://docs.python.org/3\")\
  
negative.code:   ((search-engines (append (mapcar (lambda (engine) (apply 'make-search-engine engine))
                                     *my-search-engines*)
                             %slot-default%))))"))
     (:p "Note that the last search engine is the default one. For example, in
  order to make python3 the default, the above code can be slightly modified as
  follows.")
     (:pre (:code "
  \(defvar *my-search-engines*
    (list
     '(\"doi\" \"https://dx.doi.org/~a\" \"https://dx.doi.org/\")
  