From d3c3ae47a2937bf0ace994a4bc9928cd2f3605de Mon Sep 17 00:00:00 2001 From: Charles Cabergs Date: Mon, 11 Jan 2021 18:18:48 +0100 Subject: Added make-index builtin --- builtin.lisp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 builtin.lisp (limited to 'builtin.lisp') diff --git a/builtin.lisp b/builtin.lisp new file mode 100644 index 0000000..3da200e --- /dev/null +++ b/builtin.lisp @@ -0,0 +1,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" + surrounding-tag + (format nil "~{~A~%~}" + (mapcar #'(lambda (filepath) + (let* ((filename (file-namestring filepath)) + (name filename)) + (format nil "<~A>~A" item-tag dirname filename name item-tag))) + filepaths)) + surrounding-tag)) + +; (uiop:run-program (list "seq" "10" "20") :output t) -- cgit