anchor.diff:                                                       :with-empty-tag t
                                                        :extra-tags (make-tags (extract-keywords body 5)))
                                  :empty-complete-immediate t))))
  -          (when tags
  -            ;; Turn tags with spaces into multiple tags.
  -            (setf tags (alex:flatten
  -                        (mapcar (lambda (tag)
  -                                  (str:split " " tag :omit-nulls t))
  -                                tags))))
             (bookmark-add (url buffer)
                           :title (title buffer)
                           :tags tags)
  
positive.code: 
  (define-command bookmark-hint ()
    "Show link hints on screen, and allow the user to bookmark one"
    (with-result* ((links-json (add-element-hints))
                   (selected-hint (read-from-minibuffer
                                   (make-minibuffer
                                    :input-prompt "Bookmark hint"
                                    :cleanup-function #'remove-element-hints))))
      (let* ((link-hints (cl-json:decode-json-from-string links-json))
             (selected-link (cadr (assoc selected-hint link-hints :test #'equalp))))
        (when selected-link
          (bookmark-add selected-link)))))
  
  (define-command set-url-from-bookmark ()
    "Set the URL for the current buffer from a bookmark."
  
negative.code:                                    :url url)))
        (unless (str:emptyp title)
          (setf (title entry) title))
        (setf tags (alex:flatten
                    (mapcar (lambda (tag)
                              (if (tag-p tag)
                                  (tag-name tag)
                                  ;; If TAG is the minibuffer input, it may be a
                                  ;; space-separated string.
                                  (str:split " " tag :omit-nulls t)))
                            tags)))
        (setf tags (delete-duplicates (append (tags entry) tags)
                                      :test #'string=))
        (setf (tags entry) (sort tags #'string<))
  