Created
January 20, 2015 13:09
-
-
Save ralt/f711d457055ef8720dbb to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment