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:                                     :identifier (alex:assoc-value element :identifier)
                                      :url (alex:assoc-value element :src)
                                      :alt (alex:assoc-value element :alt)
                                      :hint (alex:assoc-value element :hint)))))))
  
  (define-class hint ()
    ((hint "")
  
negative.code:           (body link-hint)
            (quri:url-decode (url link-hint) :lenient t)))
  
  (defmethod object-string ((clickable-hint clickable-hint))
    (body clickable-hint))
  
  (defmethod object-display ((clickable-hint clickable-hint))
    (format nil "~a  ~a  Clickable" (hint clickable-hint) (body clickable-hint)))
  
  (defmethod object-display ((button-hint button-hint))
    (format nil "~a  ~a  Button" (hint button-hint) (body button-hint)))
  
  (defmethod object-display ((input-hint input-hint))
    (format nil "~a  Input" (hint input-hint)))
  
  (defmethod object-display ((textarea-hint textarea-hint))
    (format nil "~a  Textarea" (hint textarea-hint)))
  