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: (defvar *invisible-modes* '("base-mode") ; TODO: Export?
    "List of mode names to hide from the status view")
  
  (defun format-status-modes (&optional (buffer (current-buffer)))
    (format nil "~{~a~^ ~}"
            (mapcar (lambda (m) (str:replace-all "-mode" "" m))
  
negative.code:                (object-display (url buffer))
                 (title buffer)))))
  
  (export-always 'format-status-tabs)
  (defun format-status-tabs ()
    (flet ((buffer-domains ()
             (remove-duplicates
  