elisp-lookup.lisp

(defpackage :elisp-lookup (:use :cl)
            (:export :populate-table :symbol-lookup))
(in-package :elisp-lookup)

(defparameter *elisp-root* "http://www.gnu.org/software/emacs/elisp-manual/html_node/")

(defparameter *elisp-file*
  (merge-pathnames "elisp-symbols.lisp-expr"
		   (or #.*compile-file-truename* *default-pathname-defaults*)))

(defvar *table* nil)

(defvar *populated-p* nil)

(defun populate-table ()
  (unless *populated-p*
    (with-open-file (r *elisp-file* :direction :input)
      (setf *table* (make-hash-table :test #'equalp))
      (let ((s (read r)))
        (loop for i in s do (setf (gethash (car i) *table*) (cdr i))))
      'done)
    (setf *populated-p* t)))

(defun symbol-lookup (symbol)
  (unless *populated-p*
    (populate-table))
  (multiple-value-bind (val found)
      (gethash symbol *table*)
    (if found
        (concatenate 'string *elisp-root*
                     val))))