anchor.diff:  (export-always 'format-status-buttons)
   (defun format-status-buttons ()
     (spinneret:with-html-string
  -    (:button :type "button"
  +    (:button :type "button" :class "button"
                :title "Backwards"
                :onclick (ps:ps (nyxt/ps:lisp-eval '(nyxt/web-mode:history-backwards))) "«")
  -    (:button :type "button"
  +    (:button :type "button" :class "button"
                :title "Reload"
                :onclick (ps:ps (nyxt/ps:lisp-eval '(nyxt:reload-current-buffer))) "↺")
  -    (:button :type "button"
  +    (:button :type "button" :class "button"
                :title "Forwards"
                :onclick (ps:ps (nyxt/ps:lisp-eval '(nyxt/web-mode:history-forwards))) "»")
  -    (:button :type "button"
  +    (:button :type "button" :class "button"
                :title "Execute"
                :onclick (ps:ps (nyxt/ps:lisp-eval '(nyxt:execute-command))) "≡")))
   
  
positive.code: This leverages `mode-status' which can be specialized for individual modes."
    (spinneret:with-html-string
      (when (nosave-buffer-p buffer) (:span "⚠ nosave"))
      (:button :type "button"
               :onclick (ps:ps (nyxt/ps:lisp-eval '(nyxt:toggle-modes)))
               :title (str:concat "Enabled modes: " (list-modes buffer)) "✚")
      (loop for mode in (sera:filter (alex:conjoin #'enabled-p #'visible-in-status-p)
  
negative.code:                          (sera:filter-map #'quri:uri-domain
                                            (mapcar #'url (sort-by-time (buffer-list))))
                           :test #'equal)
            collect (:button :type "tab" :class "button"
                             :onclick (ps:ps (nyxt/ps:lisp-eval
                                              `(nyxt::switch-buffer-or-query-domain ,domain)))
                             domain))))
  