fix error in site-info

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

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

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