anchor.diff:      (ps:dolist (e old-elements)
         (setf (ps:@ e class-name) "nyxt-hint"))))
   
  -(defun query-hints (prompt function &key multi-selection-p annotate-full-document)
  +(defun query-hints (prompt function &key multi-selection-p annotate-visible-only)
     (let* ((buffer (current-buffer))
            minibuffer)
  -    (with-result (elements-json (add-element-hints :annotate-full-document annotate-full-document))
  +    (with-result (elements-json (add-element-hints :annotate-visible-only annotate-visible-only))
         (setf minibuffer (make-minibuffer
                           :input-prompt prompt
                           :default-modes '(element-hint-mode minibuffer-mode)
  
positive.code:     (when result
        (bookmark-add (quri:uri (url result)) :tags tags))))
  
  (define-command download-hint-url (&key annotate-full-document)
    "Download the file under the URL(s) hinted by the user."
    (query-hints "Download link URL"
                 (lambda (selected-links)
  
negative.code:                                  (element-in-view-port-p (elt elements i)))
                         do (hint-add (elt elements i) (elt hints i))
                         when (or (and (element-drawable-p (elt elements i))
                                       (not (ps:lisp annotate-visible-only)))
                                  (and (element-drawable-p (elt elements i))
                                       (element-in-view-port-p (elt elements i))))
                         collect (object-create (elt elements i) (elt hints i)))))))
  