anchor.diff:     (prompter:constructor (lambda (source)
                              (tag-suggestions :extra-tags (extra-tags source)))))
     (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  -
  -;; (define-command insert-tag (&optional (minibuffer (current-prompt-buffer)))
  -;;   "Replace current word with selected tag."
  -;;   (let ((selection (get-suggestion minibuffer)))
  -;;     (unless (uiop:emptyp selection)
  -;;       (text-buffer::replace-word-at-cursor (input-cursor minibuffer) (str:concat selection " "))
  -;;       (update-display minibuffer))))
  -
  -;; (define-mode set-tag-mode (nyxt/minibuffer-mode:minibuffer-mode)
  -;;   "Minibuffer mode for setting the tag of a bookmark."
  -;;   ((keymap-scheme
  -;;     (define-scheme "set-tag"
  -;;       scheme:cua
  -;;       (list "tab" 'insert-tag
  -;;             ;; TODO: RETURN
  -;;             )))))
   
   (define-command list-bookmarks ()
     "List all bookmarks in a new buffer."
  
positive.code:                                      :url url)))
          (unless (str:emptyp title)
            (setf (title entry) title))
          (delete "" tags :test #'string=)
          (setf tags (delete-duplicates tags :test #'string=))
          (setf (tags entry) (sort tags #'string<))
          (when date
  
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.
  