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:           (body link-hint)
            (quri:url-decode (url link-hint) :lenient t)))
  
  (defmethod object-string ((button-hint button-hint))
    (body button-hint))
  
  (defmethod object-display ((button-hint button-hint))
    (format nil "~a  ~a  Button" (hint button-hint) (body button-hint)))
  
  (defmethod object-string ((input-hint input-hint))
    (hint input-hint))
  
  (defmethod object-display ((input-hint input-hint))
    (format nil "~a  Input" (hint input-hint)))
  
  (defmethod object-string ((textarea-hint textarea-hint))
    (hint textarea-hint))
  
  (defmethod object-display ((textarea-hint textarea-hint))
    (format nil "~a  Textarea" (hint textarea-hint)))
  
negative.code:          :documentation "The body of the anchor tag."))
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-class clickable-hint (hint) ())
  
  (define-class button-hint (clickable-hint) ())
  
  (define-class link-hint (hint)
    ((url ""))
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-class input-hint (hint) ())
  
  (define-class 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 ((hint hint))
    (hint hint))
  
  (defmethod object-string ((link-hint link-hint))
    (url link-hint))
  