anchor.diff:      (set-current-buffer buffer)
       buffer))
   
  -(define-command delete-buffer ()
  +(define-command delete-buffer (&key id)
     "Delete the buffer(s) via minibuffer input."
  -  (with-result (buffers (read-from-minibuffer
  -                         (make-minibuffer
  -                          :input-prompt "Delete buffer(s)"
  -                          :multi-selection-p t
  -                          :suggestion-function (buffer-suggestion-filter))))
  -    (mapcar #'buffer-delete buffers)))
  +  (if id
  +      (buffer-delete (gethash id (slot-value *browser* 'buffers)))
  +      (with-result (buffers (read-from-minibuffer
  +                             (make-minibuffer
  +                              :input-prompt "Delete buffer(s)"
  +                              :multi-selection-p t
  +                              :suggestion-function (buffer-suggestion-filter))))
  +        (mapcar #'buffer-delete buffers))))
   
   (defun delete-buffers ()
     "Delete all buffers."
  
positive.code:   (copy-to-clipboard (title (current-buffer)))
    (echo "~a copied to clipboard." (title (current-buffer))))
  
  (define-command switch-buffer ()
    "Switch the active buffer in the current window."
    (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."
  
negative.code:   (remhash id (slot-value *browser* 'buffers))
    (print-status))
  
  (export-always 'window-list)
  (defun window-list ()
    (alex:hash-table-values (windows *browser*)))
  