anchor.diff:  (defmethod %copy-hint-url ((hint hint))
     (echo "Unsupported operation for hint: can't copy URL."))
   
  -(defun update-selection-highlight-hint (&key suggestions scroll follow
  -                                          (minibuffer (current-minibuffer))
  -                                          (buffer (current-buffer)))
  -  (let ((hint (flet ((hintp (hint-suggestion)
  -                       (if (typep hint-suggestion '(or link-hint button-hint match))
  -                           hint-suggestion
  -                           nil)))
  -                (if suggestions
  -                    (hintp (first suggestions))
  -                    (when minibuffer
  -                      (let ((hint-suggestion (nth (nyxt::suggestion-cursor minibuffer)
  -                                                 (nyxt::suggestions minibuffer))))
  -                        (hintp hint-suggestion)))))))
  -    (when hint
  -      (when (and follow
  -                 (slot-exists-p hint 'buffer)
  -                 (not (equal (buffer hint) buffer)))
  -        (set-current-buffer (buffer hint))
  -        (setf buffer (buffer hint)))
  -      (if (or
  -           (not (slot-exists-p hint 'buffer))
  -           (and (slot-exists-p hint 'buffer)
  -                (equal (buffer hint) buffer)))
  -          (with-current-buffer buffer
  -            (highlight-selected-hint :link-hint hint
  -                                     :scroll scroll))
  -          (remove-focus)))))
  -
  -;; TODO: Replace `update-selection-highlight-hint' with
  -;; `prompt-buffer-selection-highlight-hint' when prompt-buffer becomes the
  -;; default.
   (defun prompt-buffer-selection-highlight-hint (&key suggestions scroll follow
                                                    (prompt-buffer (current-prompt-buffer))
                                                    (buffer (current-buffer)))
  
positive.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."))
    (: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."))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (define-class image-hint (link-hint)
    ((alt "" :documentation "Alternative text for the image."))
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (defmethod object-string ((hint hint))
    (hint hint))
  
  (defmethod object-string ((link-hint link-hint))
    (url link-hint))
  
  (defmethod object-display ((link-hint link-hint))
    (format nil "~a  ~a  ~a"
            (hint link-hint)
            (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 ((focusable-hint focusable-hint))
    (format nil "~a  Focusable" (hint focusable-hint)))
  
  (defmethod object-display ((input-hint input-hint))
    (format nil "~a  ~:[~a  ~;~]Input"
            (hint input-hint)
            (str:emptyp (placeholder-text input-hint))
            (placeholder-text input-hint)))
  
  (defmethod object-display ((textarea-hint textarea-hint))
    (format nil "~a  ~:[~a  ~;~]Textarea"
            (hint textarea-hint)
            (str:emptyp (placeholder-text textarea-hint))
            (placeholder-text textarea-hint)))
  
  (defmethod object-display ((image-hint image-hint))
    (format nil "~a  ~a  ~a"
            (hint image-hint)
            (alt image-hint)
            (quri:url-decode (url image-hint) :lenient t)))
  
  (defmethod %follow-hint ((link-hint link-hint))
    (buffer-load (url link-hint)))
  
negative.code:                  :multi-selection-p t
                   :annotate-visible-only-p annotate-visible-only-p)))
  
  (define-command toggle-hints-transparency (&key (buffer (current-buffer)))
    "Toggle the on-screen element hints transparency."
    (pflet ((toggle-transparent ()
  