anchor.diff:  
   (serapeum:export-always 'query-hints)
   (defun query-hints (prompt function
  -                    &key multi-selection-p
  +                    &key (multi-selection-p t)
                            annotate-visible-only-p
                            (selector
                                (alex:if-let ((mode (find-submode 'web-mode)))
  
positive.code:     (query-hints "Open element with current modes in new buffer"
                   (lambda (result)
                     (mapcar (alex:rcurry #'%follow-hint-with-current-modes-new-buffer buffer)
                             result))
                   :multi-selection-p t)))
  
  (define-command copy-hint-url ()
    "Show a set of element hints, and copy the URL of the user inputted one."
    (query-hints "Copy element URL" (lambda (result)  (%copy-hint-url (first result)))
                 :selector "a, img"))
  
  (define-command bookmark-hint ()
  
negative.code:                                           (make-instance 'nyxt::tag-source
                                                           :marks (url-bookmark-tags url))))))
                       (bookmark-add url :tags tags :title (fetch-url-title url)))))
                 :selector "a, img"))
  
  (define-command download-hint-url ()
  