Commit 5008a379 authored by Antoine Martin's avatar Antoine Martin
Browse files

Always put index file in treated directory

parent f06975d7
......@@ -101,8 +101,8 @@
<table class=\"index-cp\" border=\"0\">
<tr><td></td><th align=\"left\">Index Entry</th></tr>~%"))
(defun build-index (path file-path)
(with-open-file (file file-path
(defun build-index (path)
(with-open-file (file (merge-pathnames "index.html" (truename path))
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
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