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

Automate texi builds in Lisp

parent 651d9933
......@@ -43,6 +43,16 @@
(loop for dir in (directory (format-dir-path path))
collect (car (last (pathname-directory dir)))))
(defun format-texi-path (path)
(if (char= (char path (- (length path) 1))
(concatenate 'string path "*/*.texi")
(concatenate 'string path "/*/*.texi")))
(defun get-texi-pathnames (path)
(loop for texi in (directory (format-texi-path path))
collect texi))
(defun get-first-letter (sequence)
(subseq (remove-cl-prefix sequence) 0 1))
......@@ -120,3 +130,14 @@
(print-index-letter first-letter file)
(print-columns dir-list length file))
(format file "</body>~%")))
(defun build-texis (path-to-texis texinfo-path)
(sb-ext:run-program "/bin/mkdir" '("quickref"))
(let ((texis (get-texi-pathnames path-to-texis)))
(dolist (texi texis)
(sb-ext:run-program texinfo-path
(list "--html" (namestring texi)
"-o" (format nil "quickref/~A"
(pathname-name texi))
"--css-ref" ""
"-c" "TOP_NODE_UP_URL=/")))))
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