diff --git a/src/dir_index.lisp b/src/dir_index.lisp new file mode 100644 index 0000000..c321c13 --- /dev/null +++ b/src/dir_index.lisp @@ -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 \"$file$(stat -c %y {path}/$file | head -c 16)

$(stat -c %y {path}/$file | head -c 10)

$(numfmt --to=iec --suffix=B $(stat -c %s {path}/$file))\"; done | sed 's/\\/\\//\\//g']" + (tr () (th (:colspan "4") (hr))))))))) diff --git a/src/html/site-info.lisp b/src/html/site-info.lisp index 32bd8b6..e6b7a8a 100644 --- a/src/html/site-info.lisp +++ b/src/html/site-info.lisp @@ -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 htmlgen." + "if you are curious as to why, please see the posts from 2024-08-21 and 2024-09-01 here.)) (section () (h2 () "sludge") (h3 () "what is a sludge?") diff --git a/templates/footer.lisp b/templates/footer.lisp index f1fa3b4..dd5d02b 100644 --- a/templates/footer.lisp +++ b/templates/footer.lisp @@ -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"))))) +