nat/htmlgen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add license; port dir_index to lisp; minor edits to site-info

Browse Source
This commit is contained in:
gnat
2024-09-07 11:29:01 -07:00
parent 550c318db6
commit 7655e3e24f
3 changed files with 25 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/dir_index.lisp Normal file
View File

@ -0,0 +1,10 @@
(defun html ()
(page "index of {path}"
'((section ()
(h1 () "index of {path}")
(table ()
(tbody ()
(tr () (th () (p () "name"))(th () (p () "last modified"))(th () (p () "creation date"))(th () (p () "size")))
(tr () (th (:colspan "4") (hr)))
"$[for file in $(ls {path}); do echo \"<tr><td><a href=/{path}/$file>$file</a></td><td>$(stat -c %y {path}/$file | head -c 16)</td><td><p>$(stat -c %y {path}/$file | head -c 10)</p></td><td align=right>$(numfmt --to=iec --suffix=B $(stat -c %s {path}/$file))</td></tr>\"; done | sed 's/\\/\\//\\//g']"
(tr () (th (:colspan "4") (hr)))))))))