anchor.diff:                                     :scroll scroll)
             (remove-focus)))))
   
  -(define-command follow-hint ()
  +(define-command follow-hint (&key annotate-full-document)
     "Show a set of element hints, and go to the user inputted one in the
   currently active buffer."
  -  (query-hints "Go to element:" '%follow-hint))
  -
  -(define-command follow-hint-new-buffer ()
  +  (query-hints "Go to element:" '%follow-hint
  +               :annotate-full-document annotate-full-document))
  +
  +(define-command follow-hint-new-buffer (&key annotate-full-document)
     "Show a set of element hints, and open the user inputted one in a new
   buffer (not set to visible active buffer)."
  -  (query-hints "Open element in new buffer:" '%follow-hint-new-buffer))
  -
  -(define-command follow-hint-new-buffer-focus ()
  +  (query-hints "Open element in new buffer:" '%follow-hint-new-buffer
  +               :annotate-full-document annotate-full-document))
  +
  +(define-command follow-hint-new-buffer-focus (&key annotate-full-document)
     "Show a set of element hints, and open the user inputted one in a new
   visible active buffer."
  -  (query-hints "Go to element in new buffer:" '%follow-hint-new-buffer-focus))
  -
  -(define-command copy-hint-url ()
  +  (query-hints "Go to element in new buffer:" '%follow-hint-new-buffer-focus
  +               :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)) 
  +  (query-hints "Copy element URL:" '%copy-hint-url
  +               :annotate-full-document annotate-full-document))
  
positive.code: 
  (in-package :next)
  
  (define-parenscript add-element-hints ()
    (defun qs (context selector)
      "Alias of document.querySelector"
      (ps:chain context (query-selector selector)))
  
negative.code:     (ps:dolist (e old-elements)
        (setf (ps:@ e class-name) "next-hint"))))
  
  (defun query-hints (prompt function &key annotate-full-document)
    (unless annotate-full-document
      (print "ANNOTATE"))
    (let* ((buffer (current-buffer))
           minibuffer)
      (with-result (elements-json (add-element-hints))
  