anchor.diff:        (ps:chain element (remove))))
     (hints-remove-all))
   
  -(define-parenscript click-button (&key nyxt-identifier)
  +(define-parenscript click-element (&key nyxt-identifier)
     (defun qs (context selector)
       "Alias of document.querySelector"
       (ps:chain context (query-selector selector)))
  
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:           ((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:@ element onclick)
             (ps:create "type" "clickable" "hint" hint "identifier" hint "body" (ps:@ element |innerHTML|)))))
  
    (defun hints-add (elements)
      "Adds hints on elements"
  