Commit 45b349a6 authored by Antoine Martin's avatar Antoine Martin
Browse files

Default to quicklisp's software directory

parent d3235ba7
......@@ -16,9 +16,9 @@
(loop for dir in (directory (all-directories path))
collect (car (last (pathname-directory dir)))))
(defun all-texis (path)
(merge-pathnames "*/*.texi" (truename path)))
(defun all-texis ()
(merge-pathnames "*/*.texi" (quicklisp-software)))
(defun get-texi-pathnames (path)
(loop for texi in (directory (all-texis path))
(defun get-texi-pathnames ()
(loop for texi in (directory (all-texis))
collect texi))
......@@ -65,5 +65,5 @@
(ql:update-all-dists :prompt nil)
(ql:update-client :prompt nil)
(build-texis (quicklisp-software) makeinfo-path)
(build-texis makeinfo-path)
......@@ -137,11 +137,11 @@
(when (not (string= out ""))
(log-texi-error out texi))))
(defun build-texis (path-to-texis makeinfo-path)
(defun build-texis (makeinfo-path)
(let ((quickref-dir (from-homedir "quickref/")))
(if (probe-file quickref-dir)
(clean-directory quickref-dir)
(ensure-directories-exist quickref-dir)))
(let ((texis (get-texi-pathnames path-to-texis)))
(let ((texis (get-texi-pathnames)))
(dolist (texi texis)
(build-texi texi makeinfo-path))))
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