anchor.diff:            ((equal "TEXTAREA" (ps:@ element tag-name))
              (ps:create "type" "textarea" "hint" hint "identifier" hint))
             ((equal "IMG" (ps:@ element tag-name))
  -           (ps:create "type" "img" "hint" hint "identifier" hint "src" (ps:@ element src) "alt" (ps:@ element alt)))))
  +           (ps:create "type" "img" "hint" hint "identifier" hint "src" (ps:@ element src) "alt" (ps:@ element alt)))
  +          ((ps:@ element onclick)
  +           (ps:create "type" "clickable" "hint" hint "identifier" hint "body" (ps:@ element |innerHTML|)))))
   
     (defun hints-add (elements)
       "Adds hints on elements"
  
positive.code:          :documentation "The body of the anchor tag."))
    (:accessor-name-transformer #'class*:name-identity))
  
  (defclass button-hint (hint) ())
  
  (define-class link-hint (hint)
    ((url ""))
    (:accessor-name-transformer #'class*:name-identity))
  
  (defclass input-hint (hint) ())
  
  (defclass textarea-hint (hint) ())
  
  (define-class image-hint (link-hint)
    ((alt "" :documentation "Alternative text for the image."))
    (:accessor-name-transformer #'class*:name-identity))
  
  (defmethod object-string ((link-hint link-hint))
    (url link-hint))
  
negative.code: (defmethod %follow-hint ((link-hint link-hint))
    (buffer-load (url link-hint)))
  
  (defmethod %follow-hint ((clickable-hint clickable-hint))
    (click-element :nyxt-identifier (identifier clickable-hint)))
  
  (defmethod %follow-hint ((input-hint input-hint))
    (focus-element :nyxt-identifier (identifier input-hint)))
  