anchor.diff:                           ;; TODO: sleep should NOT be necessary to avoid breaking download
                            do (download buffer (url link))
                               (sleep 0.25)))
  -                 :multi-selection-p t
  -                 :annotate-visible-only-p annotate-visible-only-p)))
  +                 :multi-selection-p t)))
  
positive.code:       (declare (ignore source))
        (multiple-value-bind (matching-hints other-hints)
            (sera:partition
             (lambda (hint)
               (str:starts-with-p input (hint hint) :ignore-case t))
             suggestions
             :key #'prompter:value)
          (append matching-hints other-hints))))
     (prompter:follow-mode-functions (lambda (suggestion)
                                       (highlight-selected-hint :link-hint suggestion)))))
  
  (serapeum:export-always 'query-hints)
  (defun query-hints (prompt function &key multi-selection-p annotate-visible-only-p)
    (let* ((buffer (current-buffer)))
      (let ((result (prompt
                     :prompt prompt
  
negative.code:     "Creates a DOM element to be used as a hint"
      (ps:let* ((rect (ps:chain element (get-bounding-client-rect)))
                (position (hint-determine-position rect))
                (element (ps:chain document (create-element "span")))
                (hint (ps:lisp hint)))
        (setf (ps:@ element class-name) "nyxt-hint")
        (setf (ps:@ element style position) "absolute")
        (setf (ps:@ element style left) (+ (ps:@ position left) "px"))
  