anchor.diff:          (push entry bookmarks-without-url)
           (setf bookmarks bookmarks-without-url)))))
   
  -;; (export-always 'match-bookmarks)
  -;; (defun match-bookmarks (specification &optional (as-url-list-p t))
  -;;   (with-data-unsafe (bookmarks (bookmarks-path (current-buffer)))
  -;;     (let* ((input-specs (multiple-value-list
  -;;                          (parse-tag-specification
  -;;                           specification)))
  -;;            (tag-specs (first input-specs))
  -;;            (non-tags (str:downcase (str:join " " (second input-specs))))
  -;;            (validator (ignore-errors (tag-specification-validator tag-specs))))
  -;;       (when validator
  -;;         (setf bookmarks (remove-if (lambda (bookmark)
  -;;                                      (not (funcall validator
  -;;                                                    (tags bookmark))))
  -;;                                    bookmarks)))
  -;;       (if as-url-list-p
  -;;           (mapcar #'url (fuzzy-match non-tags bookmarks))
  -;;           (fuzzy-match non-tags bookmarks)))))
  -
  -
  -;; (defun bookmark-suggestion-filter ()
  -;;   (lambda (minibuffer)
  -;;     (match-bookmarks (input-buffer minibuffer) nil)))
  -
   (define-class bookmark-source (prompter:source)
     ((prompter:name "Bookmarks")
      (prompter:constructor (get-data (bookmarks-path (current-buffer))))
      (prompter:active-properties '(:url :title :tags))))
   
  -(defun tag-suggestions ()
  +(defun tag-suggestions (&key extra-tags)
     (with-data-unsafe (bookmarks (bookmarks-path (current-buffer)))
       (let ((tags (sort (append extra-tags
                                 (mapcar (lambda (name) (make-tag :name name))
  
positive.code:                           :multi-selection-p t
                            :actions (list 'bookmark-current-page))))
  
  (define-command bookmark-url (&key url)
    "Allow the user to bookmark a URL via minibuffer input."
    (let ((url (or url
                   (prompt
  
negative.code:            bookmarks
             (list (make-instance 'bookmark-entry :url (quri:uri url)))
             :test #'equals))))
  
  (define-command set-url-from-bookmark ()
    "Set the URL for the current buffer from a bookmark.
  