blob: 3da200e8b494abc9b398cb7d60b68473f3262017 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(load "/home/charles/.clisprc.lisp")
(ql:quickload "uiop")
(defun make-index (dirname &key (item-tag "li") (surrounding-tag "ul") (include-date nil))
(setf filepaths (uiop:directory-files dirname))
; (when test (delete-if #'(lambda (x) (not (test x))) filenames))
(format nil "<~A>~A</~A>"
surrounding-tag
(format nil "~{~A~%~}"
(mapcar #'(lambda (filepath)
(let* ((filename (file-namestring filepath))
(name filename))
(format nil "<~A><a href=\"~A/~A\">~A</a></~A>" item-tag dirname filename name item-tag)))
filepaths))
surrounding-tag))
; (uiop:run-program (list "seq" "10" "20") :output t)
|
