anchor.diff:           :documentation "The body of the anchor tag."))
     (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
   
  +(defmethod prompter:object-properties ((hint hint))
  +  (list :hint (hint hint)
  +        :body (body hint)
  +        :url (when (slot-exists-p hint 'url) (url hint))))
  +
   (define-class clickable-hint (hint) ())
   
   (define-class focusable-hint (hint) ())
  
positive.code:                   (setf (ps:chain element style opacity) "1.0")))))
      (with-current-buffer buffer
        (toggle-transparent))))
  
  (define-command select-next-follow (&optional (minibuffer (current-minibuffer)))
    "Select next entry in minibuffer and focus the referencing hint/match
  if there is one such."
    (select-next minibuffer)
    (nyxt/web-mode::update-selection-highlight-hint :follow t :scroll t))
  
  (define-command select-previous-follow (&optional (minibuffer (current-minibuffer)))
    "Select previous entry in minibuffer and focus the referencing hint/match
  if there is one such."
    (select-previous minibuffer)
    (nyxt/web-mode::update-selection-highlight-hint :follow t :scroll t))
  
negative.code: 
  (define-class input-hint (focusable-hint)
    ((placeholder-text "" :documentation "The placeholder text of the input element.
  I.e. the grey text initially seen in it.")
     (body "Input Area"))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (define-class textarea-hint (focusable-hint)
    ((placeholder-text "" :documentation "The placeholder text of the textarea.
  I.e. the grey text initially seen in it.")
     (body "Text Area"))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (define-class image-hint (link-hint)
    ((alt "" :documentation "Alternative text for the image.")
     (body "Image"))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (defmethod %follow-hint ((link-hint link-hint))
    (buffer-load (url link-hint)))
  