anchor.diff:  
   (define-class buffer-source (prompter:source)
     ((prompter:name "Buffer list")
  -   ;; For commodity, the current buffer shouldn't be the first one on the list.
  -   (prompter:constructor (buffer-initial-suggestions :current-is-last-p t))
  +   (prompter:constructor (buffer-initial-suggestions :current-is-last-p nil))
      (prompter:actions (list (make-unmapped-command set-current-buffer)))
      (prompter:follow-p t)
      (prompter:follow-delay 0.1)
  
positive.code:       (set-current-buffer (buffers-get id))
        (prompt
         :prompt "Switch to buffer"
         :sources (list (make-instance 'buffer-source)))))
  
  (define-command switch-buffer-domain (&key domain (buffer (current-buffer)))
    "Switch the active buffer in the current window from the current domain."
  
negative.code:       (prompt
         :prompt "Delete buffer(s)"
         :sources (make-instance 'buffer-source
                                 :multi-selection-p t
                                 :actions (list (make-mapped-command buffer-delete))))))
  
  