anchor.diff:    (if (url buffer)
         (with-result (tags (read-from-minibuffer
                             (make-instance 'minibuffer
  -                                         :input-prompt "Tag(s):"
  +                                         :input-prompt "Space-separated tag(s):"
                                            :multi-selection-p t
                                            :completion-function (tag-completion-filter)
                                            ;; TODO: Can we query both new and existings tags?
                                            :empty-complete-immediate t)))
  +        (when tags
  +          ;; Turn tags with spaces into multiple tags.
  +          (setf tags (alexandria:flatten
  +                      (mapcar (lambda (tag)
  +                                (str:split " " tag :omit-nulls t))
  +                              tags))))
           (bookmark-add (url buffer)
                          :title (title buffer)
                          :tags tags)
  
positive.code:                                           :direction :input
                                            :if-does-not-exist nil)
                        (when file
                          ;; We need to make sure current package is :next so that
                          ;; symbols a printed with consistent namespaces.
                          (let (;; (*print-case* :downcase) ; TODO: Wait until prevalence fully supports it.
                                (*package* *package*))
                            (in-package :next)
                            (s-serialization:deserialize-sexp file))))))
            (when data
              (echo "Loading ~a bookmarks." (length data))
              (setf (slot-value *interface* 'bookmarks-data) data)))
  
negative.code:         :initform "")
     (title :initarg :title
            :accessor title
            :type string
            :initform "")
     (annotation :initarg :annotation
                 :accessor annotation
                 :type string
                 :initform "")
     (date :initarg :date
           :accessor date
           :type local-time:timestamp
           :initform (local-time:now))
     (tags :initarg :tags
           :accessor tags
           :type list
           :initform nil
           :documentation "A list of strings.")
     (shortcut :initarg :shortcut ; TODO: Add support for shortcuts in `parse-url'.
               :accessor shortcut
               :type string
               :initform ""
               :documentation "
  This allows the following URL queries from the minibuffer:
  
  