anchor.diff:  	(setf (ps:@ position left) (+ (ps:@ position left) 20)))
         (when (< (ps:@ position top) 0)
   	(setf (ps:@ position top) (+ (ps:@ position top) 20)))
  -      (setf (ps:@ el class-name) "lispkit-link-hints")
  +      (setf (ps:@ el class-name) "next-link-hint")
         (setf (ps:@ el style background) "yellow")
         (setf (ps:@ el style border) "1px solid #ccc")
         (setf (ps:@ el style position) "absolute")
  
positive.code: 				  (ps:@ document document-element client-height)))
         (<= (ps:@ rect right) (or (ps:@ window inner-width)
  				 (ps:@ document document-element client-width))))))
    (ps:defun hint-determine-position (rect)
      "Determines the position of a hint according to the link"
      (ps:create :top  (ps:@ rect top)
  	       :left (- (ps:@ rect left) 20)))
    (ps:defun hint-create-element (link hint)
      "Creates a DOM element to be used as a hint"
      (ps:let* ((rect (ps:chain link (get-bounding-client-rect)))
  	      (position (hint-determine-position rect))
  
negative.code:   (interface:web-view-execute (view *active-buffer*) add-link-hints))
  
  (defparen remove-link-hints
    (defun qsa (context selector)
      "Alias of document.querySelectorAll"
      (ps:chain context (query-selector-all selector)))
    (defun hints-remove-all ()
      "Removes all the links"
      (ps:dolist (el (qsa document ".next-link-hint"))
        (ps:chain el (remove))))
    (hints-remove-all))
  
  