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:                  (%follow-hint-new-buffer-focus (first result))
                   (mapcar #'%follow-hint-new-buffer (rest result)))
                 :multi-selection-p t
                 :annotate-full-document annotate-full-document))
  
  (define-command copy-hint-url (&key annotate-full-document)
    "Show a set of element hints, and copy the URL of the user inputted one."
    (query-hints "Copy element URL" '%copy-hint-url
                 :annotate-full-document annotate-full-document))
  
  (define-command bookmark-hint ()
    "Show link hints on screen, and allow the user to bookmark one"
  
negative.code: 
  (in-package :nyxt/web-mode)
  
  (define-parenscript add-element-hints (&key annotate-visible-only)
    (defun qs (context selector)
      "Alias of document.querySelector"
      (ps:chain context (query-selector selector)))
  