anchor.diff:    (remhash id (slot-value *browser* 'buffers))
     (print-status))
   
  -(defun buffer-delete-by-id (id)
  -  (buffer-delete (gethash id (slot-value *browser* 'buffers))))
  -
   (export-always 'window-list)
   (defun window-list ()
     (alex:hash-table-values (windows *browser*)))
  
positive.code: The mode instances are stored in the `modes' slot.")
     (style :accessor style :initform
            (cl-css:css
             '((h1
                :font-family "Helvetica Neue, Helvetica")
               (h2
                :font-family "Helvetica Neue, Helvetica")
  
negative.code:   (copy-to-clipboard (title (current-buffer)))
    (echo "~a copied to clipboard." (title (current-buffer))))
  
  (define-command switch-buffer (&key id)
    "Switch the active buffer in the current window."
    (if id
        (set-current-buffer (gethash id (slot-value *browser* 'buffers)))
        (with-result (buffer (read-from-minibuffer
                              (make-minibuffer
                               :input-prompt "Switch to buffer"
                               ;; For commodity, the current buffer shouldn't be the first one on the list.
                               :suggestion-function (buffer-suggestion-filter :current-is-last-p t))))
          (set-current-buffer buffer))))
  
  (define-command switch-buffer-domain (&optional (buffer (current-buffer)))
    "Switch the active buffer in the current window from the current domain."
  