anchor.diff:                          (* 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)))
  
positive.code:       (let* ((entry (htree:data (htree:current (htree:owner history (id buffer))))))
          (incf (implicit-visits entry))))))
  
  (define-command delete-history-entry ()
    "Delete queried history entries."
    (with-data-access (history (history-path (current-buffer)))
      (let ((entries (prompt-minibuffer
                      :input-prompt "Delete entries"
                      :suggestion-function (history-disowned-suggestion-filter)
                      :history (minibuffer-set-url-history *browser*)
                      :multi-selection-p t)))
        (dolist (entry entries)
          (htree:delete-data history entry)))))
  
  
negative.code: 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
                        :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))))))
  