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

Fix website dir for build-index

parent b3376c89
......@@ -77,7 +77,7 @@ The resulting file is written at ~/quickref/index.html"
:if-exists :supersede
:if-does-not-exist :create)
(print-index-header file)
(let* ((dir-list (sort (get-file-list (quickref-dir)) #'string<
(let* ((dir-list (sort (get-file-list (from-quickref-dir "website/")) #'string<
:key #'remove-cl-prefix))
(current-letter (get-first-letter (first dir-list)))
(length 0)
......
Markdown is supported
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