Adding doc string to add-index and making name of file parametrizable.

gigamonkey · Nov 29, 2011 · 376a737 · 376a737
1 parent 3ca1a8b
commit 376a737
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/api.lisp b/api.lisp
@@ -362,5 +362,6 @@ bits such as '..'"
              (eql (first directory) :relative)
              (every #'stringp (rest directory))))))
 
-(defun add-index (filename &optional (extension "html"))
-  (format nil "~a~@[index~*~@[.~a~]~]" filename (ends-with #\/ filename) extension))
+(defun add-index (filename &key (name "index") (extension "html"))
+  "Add an index file name to a directory filename. Defaults to index.html"
+  (format nil "~a~:[~;~a~@[.~a~]~]" filename (ends-with #\/ filename) name extension))