anchor.diff:             (code-char (+ 65
                            (rem n 26))))
           ""))
  -  (hints-add (links-find window document)))
  +  (hints-add (links-find window document))
  +  (hints-add (inputs-find window document)))
   
   (define-parenscript %remove-link-hints ()
     (defun qsa (context selector)
  
positive.code:   (defun hints-add (links)
      "Adds hints on links"
      (ps:let* ((links-length (length links))
             (hints (hints-generate links-length)))
        (ps:chain -j-s-o-n
                  (stringify
                   (loop for i from 0 to (- links-length 1)
                      collect (list
                               (ps:@ (hint-add (elt links i) (elt hints i)) inner-text)
                               (ps:@ (elt links i) href)))))))
    (defun hints-determine-chars-length (length)
      "Finds out how many chars long the hints must be"
      (ps:let ((i 1))
  
negative.code:                                     :input-prompt ,prompt
                                      :cleanup-function #'remove-link-hints)))
       (let* ((link-hints (cl-json:decode-json-from-string links-json))
              (,symbol (cadr (assoc selected-anchor link-hints :test #'equalp)))
              (type (caddr (assoc selected-anchor link-hints :test #'equalp))))
         (log:debug "Anchor" (assoc selected-anchor link-hints :test #'equalp))
         (log:debug "Anchor symbol" ,symbol "type" type)
         (cond
           ((string= type "input")
            (log:debug "Focus on input" ,symbol)
            (focus-hint :input-id ,symbol))
           (,symbol
             ,@body)))))
  
  (define-command go-anchor ()
    "Show a set of link hints, and go to the user inputted one in the
  