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
Show Stats 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?")

16
templates/footer.lisp
View File

@ -1,6 +1,12 @@
(defun footer ()
`(footer ()
"page rendered at $[date +%s]"
(br)
"page compiled at " ,(exec-command "date +%s")
,(exec-command "include files/88x31/natalieee.net.html")))
`(footer ()
(div ()
"page rendered at $[date +%s]"
(br)
"page compiled at " ,(exec-command "date +%s"))
,(exec-command "include files/88x31/natalieee.net.html")
(div ()
(footnote (:style "margin-top: 5px") "all content, with the exception of 88x31 buttons or unless otherwise noted is created by me and is licensed under a CC BY-NC-SA 4.0 license."))
(a (:href "https://creativecommons.org/licenses/by-nc-sa/4.0/deed.en")
(img (:src "/files/by-nc-sa.png" :alt "license 88x31" :width "88" :height "31")))))