anchor.diff:    (make-buffer-focus :url (url history-suggestion)))
   
   (defun new-nosave-buffer-load-from-history (history-suggestion)
  -  "Load a URL in a new nosave buffer (from history)."
  +  "Load a URL in a new buffer (from history)."
     (make-buffer-focus :url (url history-suggestion)))
  -
  -(defun buffer-load-from-bookmark (bookmark)
  -  (buffer-load (url bookmark)))
  -
  -(defun new-buffer-load-from-bookmark (bookmark)
  -  "Load a URL in a new buffer (from bookmark)."
  -  (make-buffer-focus :url (url bookmark)))
  -
  -(defun new-nosave-buffer-load-from-bookmark (bookmark)
  -  "Load a URL in a new nosave buffer (from bookmark)."
  -  (make-buffer-focus :url (url bookmark)))
   
   (define-class global-history-source (prompter:source)
     ((prompter:name "Global history")
  
positive.code:   "Load INPUT-URL in BUFFER.
  If INPUT-URL is a string, it's transformed to a `quri:uri' by `parse-url'.
  URL is then transformed by BUFFER's `buffer-load-hook'."
    (unless (internal-buffer-p buffer)
      (let* ((url (typecase input-url
                    (string
                     (parse-url input-url))
                    (history-entry
                     (url input-url))
                    (t
                     input-url)))
             (new-url
               (handler-case
                   (hooks:run-hook (slot-value buffer 'buffer-load-hook) url)
                 (error (c)
                   (log:error "In `buffer-load-hook': ~a" c)
                   nil))))
        (when new-url
          (check-type new-url quri:uri)
          (setf url new-url)
  
negative.code:      :history history
       :sources (list (make-instance 'prompter:raw-source
                                     :name "New URL"
                                     :actions (list (make-unmapped-command buffer-load)
                                                    (make-unmapped-command new-buffer-load)))
                      (make-instance 'global-history-source
                                     ;; TODO: Multi-selection?
                                     :actions (list (make-unmapped-command buffer-load)
                                                    (make-unmapped-command new-buffer-load-from-history)))
                      (make-instance 'bookmark-source
                                     ;; TODO: New buffer?
                                     :multi-selection-p t)))))
  
  (define-command set-url-new-buffer (&key (prefill-current-url-p t))
    "Prompt for a URL and set it in a new focused buffer."
  