anchor.diff:                     *invisible-modes*
                      :test #'string=))))
   
  +(export-always 'format-status-buttons)
   (defun format-status-buttons ()
     (markup:markup
      (:a :class "button" :title "Backwards" :href (lisp-url '(nyxt/web-mode:history-backwards)) "←")
  
positive.code:    (:a :class "button" :title "Execute" :href (lisp-url '(nyxt:execute-command)) "⚙")
     (:a :class "button" :title "Buffers" :href (lisp-url '(nyxt::list-buffers)) "≡")))
  
  (defun format-status-load-status (&optional (buffer (current-buffer)))
    (markup:markup
     (:span (if (and (web-buffer-p buffer)
                     (eq (slot-value buffer 'load-status) :loading))
                "Loading: " ""))))
  
  (defun format-status-url (&optional (buffer (current-buffer)))
    (markup:markup
     (:a :class "button"
  
negative.code: (defvar *invisible-modes* '("base-mode") ; TODO: Export?
    "List of mode names to hide from the status view")
  
  (export-always 'format-status-modes)
  (defun format-status-modes (&optional (buffer (current-buffer)))
    (format nil "~{~a~^ ~}"
            (mapcar (lambda (m) (str:replace-all "-mode" "" m))
  