link-hints.ps

(defpackage #:lispkit.link-hints
  (:use :parenscript))

(in-package #:lispkit.link-hints)

(defun find-links (window document)
  "Finds all the links within the viewport"
  nil)

(defun add-hints (links)
  "Adds hints on links"
  (mapcar #'add-hint links))

(defun add-hint (link)
  "Adds a hint on a single link"
  nil)

(defun add-hints-handler (window hints)
  "Adds a global handler to select to correct hint"
  nil)

(defun init ()
  "Initializes the link hints"
  (add-hints-handler window (add-hints (find-links window document))))

(init)