anchor.diff:  When called over many or all buffers, it may free many history entries which
   then become available for deletion with `delete-history-entry'."
     (let ((buffers (or (alex:ensure-list buffer)
  -                     (prompt-minibuffer
  -                      :input-prompt "Reset histories of buffer(s)"
  -                      :multi-selection-p t
  -                      :suggestion-function (buffer-suggestion-filter)))))
  +                     (prompt
  +                      :prompt "Reset histories of buffer(s)"
  +                      :sources (list (make-instance 'buffer-source
  +                                                    :actions '()))))))
       (with-data-access (history (history-path (current-buffer)))
         (dolist (buffer buffers)
           (htree:reset-owner history (id buffer))))))
  
positive.code:                         (* 60 60)))))
             0))))
  
  (defun history-suggestion-filter (&key prefix-urls)
    "Include prefix-urls in front of the history.
  This can be useful to, say, prefix the history with the current URL.  At the
  moment the PREFIX-URLS are inserted as is, not a `history-entry' objects since
  it would not be very useful."
    (with-data-unsafe (hist (history-path (current-buffer)))
      (let* ((all-history-entries (when hist
                                    (mapcar #'htree:data
                                            (sort (alex:hash-table-keys (htree:entries hist))
                                                  (lambda (x y)
                                                    (> (score-history-entry x)
                                                       (score-history-entry y)))))))
             (prefix-urls (delete-if #'uiop:emptyp prefix-urls)))
        (when prefix-urls
          (setf all-history-entries (append (mapcar #'quri:url-decode prefix-urls)
                                            all-history-entries)))
        (lambda (minibuffer)
          (fuzzy-match (input-buffer minibuffer) all-history-entries)))))
  
  (defun history-initial-suggestions (&key prefix-urls) ; TODO: Rename?  Make this a preprocessor so that it runs in the background?
    "TODO: Complete me!"
    (with-data-unsafe (hist (history-path (current-buffer)))
  
negative.code:                   (not (string-equal "lisp" type)))))
             (uiop:directory-files (dirname (history-path buffer))))))
  
  (define-class history-name-source (prompter:source)
    ((prompter:name "Histories")
     (prompter:must-match-p t)
     (prompter:constructor (histories-list))))
  
  (define-command store-history-by-name ()
    "Store the history data in the file named by user input.
  Useful for session snapshots, as `restore-history-bu-name' will restore opened buffers."
    (with-data-access (history (history-path (current-buffer)))
      (sera:and-let* ((name (first (prompt
                                    :input-prompt "The name to store history with"
                                    :sources (list (make-instance 'prompter:raw-source)
                                                   (make-instance 'history-name-source)))))
                      (path (make-instance 'history-data-path
                                           :dirname (dirname (history-path (current-buffer)))
                                           :basename name)))
  