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)))))))))

5
src/html/site-info.lisp
View File

@ -22,7 +22,10 @@
(section ()
(h2 () "/^natalieee.net/")
(p () "the root domain of this website, which you are currently observing, is running sludge. "
"the colors of both the light and dark mode are based off of the colorscheme of my laptop."))
"the colors of both the light and dark mode are based off of the colorscheme of my laptop.")
(p ()
"the html for this website is generated using <a href=\"https://git.natalieee.net/nat/htmlgen\">htmlgen</a>."
"if you are curious as to why, please see the posts from 2024-08-21 and 2024-09-01 <a href=\"/html/random-thoughts.html\">here</a>.))
(section ()
(h2 () "sludge")
(h3 () "what is a sludge?")