Commit d3235ba7 authored by Antoine Martin's avatar Antoine Martin
Browse files

Default to ~/quickref for build-index

parent 6f4d7b66
......@@ -66,4 +66,4 @@
(ql:update-client :prompt nil)
(build-releases)
(build-texis (quicklisp-software) makeinfo-path)
(build-index "quickref"))
(build-index))
......@@ -88,30 +88,31 @@
<table class=\"index-cp\" border=\"0\">
<tr><td></td><th align=\"left\">Index Entry</th></tr>~%"))
(defun build-index (path)
(with-open-file (file (merge-pathnames "index.html" (truename path))
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(print-index-header file)
(let* ((dir-list (sort (get-directory-list path) #'string<
:key #'remove-cl-prefix))
(current-letter (get-first-letter (first dir-list)))
(length 0)
(pos dir-list))
(loop until (endp pos)
do (if (letter-has-not-changed current-letter (get-first-letter (car pos)))
(progn (setq length (+ length 1))
(setq pos (cdr pos)))
(progn
(print-index-letter current-letter file)
(print-columns dir-list length file)
(setq length 0)
(setq dir-list pos)
(setq current-letter (get-first-letter (car pos))))))
(print-index-letter current-letter file)
(print-columns dir-list length file))
(format file "</body>~%")))
(defun build-index ()
(let ((quickref-dir (merge-pathnames "quickref/" (user-homedir-pathname))))
(with-open-file (file (merge-pathnames "index.html" quickref-dir)
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(print-index-header file)
(let* ((dir-list (sort (get-directory-list quickref-dir) #'string<
:key #'remove-cl-prefix))
(current-letter (get-first-letter (first dir-list)))
(length 0)
(pos dir-list))
(loop until (endp pos)
do (if (letter-has-not-changed current-letter (get-first-letter (car pos)))
(progn (setq length (+ length 1))
(setq pos (cdr pos)))
(progn
(print-index-letter current-letter file)
(print-columns dir-list length file)
(setq length 0)
(setq dir-list pos)
(setq current-letter (get-first-letter (car pos))))))
(print-index-letter current-letter file)
(print-columns dir-list length file))
(format file "</body>~%"))))
(defun log-texi-error (err texi)
(with-open-file (file (format nil "texi-logfiles/~A.logfile"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment