anchor.diff:                                          :url (cdr (assoc :href element))))
                           ((equal "button" object-type)
                            (make-instance 'button-hint
  +                                        :identifier (cdr (assoc :identifier element))
                                           :hint (cdr (assoc :hint element))))))))
   
   (defclass hint ()
     ((hint :accessor hint :initarg :hint)
  -   (identifier :accessor identifier :initarg identifier)))
  +   (identifier :accessor identifier :initarg :identifier)))
   
   (defclass button-hint (hint) ())
   
  
positive.code: (defmethod object-string ((button-hint button-hint))
    (format nil "~a  Button" (hint button-hint)))
  
  (define-command follow-hint ()
    "Show a set of element hints, and go to the user inputted one in the
  currently active buffer."
    (query-hints "Go to element:" (selected-element)
      (set-url (url selected-element) :buffer (current-buffer) :raw-url-p t)))
  
  (define-command follow-hint-new-buffer ()
    "Show a set of element hints, and open the user inputted one in a new
  
negative.code:     (ps:let* ((rect (ps:chain element (get-bounding-client-rect)))
                (position (hint-determine-position rect))
                (element (ps:chain document (create-element "span"))))
        (setf (ps:@ element class-name) "next-hint")
        (setf (ps:@ element style) (ps:lisp (box-style (current-buffer))))
        (setf (ps:@ element style position) "absolute")
        (setf (ps:@ element style left) (+ (ps:@ position left) "px"))
  