LISPUSER

日常的な Lisp

泥くさい例もあったほうが宣伝になるかと思い ~/bin の中から公開しても差し 使えないような 小物 Lisp プログラム を公開．

(defpackage :mkindex (:use :cl :indexer))
(in-package :mkindex)

(define-root (merge-pathnames "doc" (user-homedir-pathname)))

(define-category "Lisp Resources"
    :link '(("Common Lisp Hyper Spec" "./HyperSpec/Front/index.htm")
           ("Common Lisp The Language 2nd Edition" "./cltl/cltl2.html")
           ("Practical Common Lisp" "./web/www.gigamonkeys.com/book/index.html")
           ("Paul Graham" "./web/www.paulgraham.com/index.html")
           ("Dream Songs" "./web/www.dreamsongs.com/index.html")
           ("Pascal Contanza" "./web/p-cos.net/index.html")
           ("Structure and Interpretation of Computer Programms"
         "./web/www-mitpress.mit.edu/sicp/index.html")
           ("SICM" "web/swiss.csail.mit.edu/~gjs/6946/sicm-html/index.html")
           ))

(define-category "Other Documents"
  :link '(("PostgreSQL 8.1 (ja)" "./postgres/index.html")
         ("Statistics with R" "./web/zoonek2.free.fr/UNIX/48_R/all.html")
         ("Perl and Shift_JIS" "http://homepage1.nifty.com/nomenclator/perl/index.htm")
         ("Perl Hints" "http://www.geocities.co.jp/SiliconValley-Oakland/4080/")
         ("Perl and Unicode" "http://www.lr.pi.titech.ac.jp/~abekawa/perl/index.html")
         ))

(define-category "Maxima Documents"
    :pred (filter :directory "lisp" :filetype "pdf"))

(define-category "PDF Documents"
    :pred (filter :directory "ebook" :filetype "pdf"))

(define-category "CHM Documents"
    :pred (filter :directory "ebook" :filetype "chm"))

(generate-index)

ただ HTML 作るだけなんですねどね…。