anchor.diff:                   :style "background-color:rgb(120,120,120)" "")
              (:div :id "modes"
                    :title (list-modes buffer)
  -                 (format-status-modes buffer))))))
  +                 (format-status-modes buffer window))))))
  
positive.code:    (:a :class "button" :title "Buffers" :href (lisp-url '(nyxt::list-buffers)) "≡")))
  
  (export-always 'format-status-load-status)
  (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: " ""))))
  
  (export-always 'format-status-url)
  (defun format-status-url (&optional (buffer (current-buffer)))
    (markup:markup
     (:a :class "button"
         :href (lisp-url '(nyxt:set-url))
  
negative.code: 
  (in-package :nyxt)
  
  (export-always 'format-status-modes)
  (defun format-status-modes (buffer window)
    (format nil "~:[~;⚠ nosave ~]~{~a~^ ~}"
            (nosave-buffer-p buffer)
            (if (glyph-mode-presentation-p (status-buffer window))
                (loop for mode in (modes buffer)
                      when (visible-in-status-p mode)
                      collect (glyph mode))
                (loop for mode in (modes buffer)
                      when (visible-in-status-p mode)
                      collect (format-mode mode)))))
  
  (defun list-modes (buffer)
    (format nil "~{~a~^ ~}" (mapcar #'format-mode (modes buffer))))
  
  (export-always 'format-status-buttons)
  (defun format-status-buttons ()
  