anchor.diff:                                      :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))))
  -       (when ,symbol
  -         ,@body))))
  +            (,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
  
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:     (ps:dolist (el (qsa document ".next-link-hint"))
        (ps:chain el (remove))))
    (hints-remove-all))
  
  ;; TODO: It seems to work on duckduckgo.com, but not on a search result page.
  ;; Does not work on github, google...
  (define-parenscript focus-hint (input-id)
    (let ((input ((ps:@ document get-element-by-id) (ps:lisp input-id))))
      (ps:chain ((ps:@ input focus)))
      (ps:chain ((ps:@ input select)))))
  
  (defun remove-link-hints ()
    (%remove-link-hints
  