anchor.diff:  (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)))
  -
  -(defmethod %follow-hint ((textarea-hint textarea-hint))
  -  (focus-element :nyxt-identifier (identifier textarea-hint)))
  +(defmethod %follow-hint ((focusable-hint focusable-hint))
  +  (focus-element :nyxt-identifier (identifier focusable-hint)))
   
   (defmethod %follow-hint-new-buffer-focus ((link-hint link-hint))
     (make-buffer-focus :url (url link-hint)))
  
positive.code:           ((equal "IMG" (ps:@ element tag-name))
             (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"
  
negative.code: 
  (define-class clickable-hint (hint) ())
  
  (define-class focusable-hint (hint) ())
  
  (define-class button-hint (clickable-hint) ())
  
  (define-class link-hint (hint)
    ((url ""))
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-class input-hint (focusable-hint) ())
  
  (define-class textarea-hint (focusable-hint) ())
  
  (define-class image-hint (link-hint)
    ((alt "" :documentation "Alternative text for the image."))
  