From 983aa21dc2fb3f0ffe7a9b244ffb4489ef172578 Mon Sep 17 00:00:00 2001 From: gnat Date: Sun, 3 Nov 2024 02:50:06 -0800 Subject: [PATCH] update home.html --- src/home.lisp | 17 ++++++++++------- src/html/blog/index.lisp | 14 -------------- templates/footer.lisp | 2 +- 3 files changed, 11 insertions(+), 22 deletions(-) delete mode 100644 src/html/blog/index.lisp diff --git a/src/home.lisp b/src/home.lisp index 4c01685..5e97850 100644 --- a/src/home.lisp +++ b/src/home.lisp @@ -10,29 +10,32 @@ "website homepage visit-counter: $[echo visit >> files/home_visit_counter; cat files/home_visit_counter | wc -l]" (br) (br) - "if you are here, it is rather curious as to why. it encourages you to use the post arbitrary data section of this page to tell it how you found this site.")) + "it is curious as to how things find its site. it encourages the reader to use the post arbitrary data section of this page to tell it how you found this site.")) (section () (h2 () "particularly notable pages") (a (:href "/html/site-info.html") "information about this website") (a (:href "/html/natalie-info.html") "information about this natalie") - (a (:href "/html/blog/index.html") "there is a [currently broken] blog. it does not frequently use it.") - (a (:href "/html/random-thoughts.html") "arbitrary natalie thoughts. they are interesting, sometimes") - (a (:href "/html/cool-sites.html") "other webloci")) + (span () (a (:href "/html/view-thought.html") "arbitrary natalie thoughts. they are interesting, sometimes"),(exec-command "make-footnote 'basically a blog at this point'")) + (a (:href "/html/cool-sites.html") "other webloci") + (a (:href "/stats") "random natalie data") + ,(exec-command "put-footnotes")) (section () (h2 () "directories") (span () ,(exec-command "find -maxdepth 1 -type d | sed 1d | sed 's/\\.\\///g' | xargs -I% echo \"%\" | grep -v pycache | grep -v .git"))) (section () (h2 () "changelog") - (pre () ,(exec-command "cat changelog"))) + (details () + (summary () "changelog collapsed for brevity") + (pre () ,(exec-command "cat changelog")))) (section () (h2 () "site file tree") (p () "(as of last build)") (details () - (summary () "file tree hidden for brevity") + (summary () "file tree collapsed for brevity") ,(exec-command "tree . | sed 's/^\\./site/; s/─/-/g; s/├/|/g; s/└/\\\\/g; s/│/|/g' | sed '1i
' | sed '$a
'"))) (section () (h2 () "88x31 collection") - (span () ,(exec-command "for file in ./files/88x31/*; do (file -i \"$file\" | grep -qE 'image/') && echo \"\" || cat \"$file\"; done | shuf"))) + (span () ,(exec-command "for file in ./files/88x31/*; do (file -i \"$file\" | grep -qE 'image/') && echo \"\\\"88x31\" || cat \"$file\"; done | shuf"))) (section () (h2 () "post arbitrary data to be displayed here") "yes, it does sanitize this" (a (:href "/html/unnamed-friend-entity-hack-1.html") "(No you don't --sanitization tester)") "yes, it does") diff --git a/src/html/blog/index.lisp b/src/html/blog/index.lisp deleted file mode 100644 index 6ebc306..0000000 --- a/src/html/blog/index.lisp +++ /dev/null @@ -1,14 +0,0 @@ -(defun html () - (page "blogosphere" - `((section () - (h1 () "natalie's subunit of the blogosphere") - (h2 () "this is currently broken because it is a fool") - "it does not know if it will use this, but it was bored and thus have made a blog system") - (section () - (h2 () "posts") - (table () - (tbody () - (tr () (th () (p () "title")) (th () (p () "editted")) (th () (p () "posted")) (th () (p () "size"))) - (tr () (th (:colspan 4) (hr))) - ,(exec-command "for file in $(ls ./site/html/blog/posts --time=creation); do echo \"$file$(stat -c %y site/html/blog/posts/$file | head -c 16)

$(stat -c %y site/html/blog/posts/$file | head -c 10)

$(numfmt --to=iec --suffix=B $(stat -c %s \"site/html/blog/posts/$file\"))\"; done | sed 's/\\\/\\\//\\\//g'") - (tr () (th (:colspan 4))))))))) diff --git a/templates/footer.lisp b/templates/footer.lisp index 9c9d571..6d8a542 100644 --- a/templates/footer.lisp +++ b/templates/footer.lisp @@ -6,7 +6,7 @@ "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.")) + (footnote (:style "margin-top: 5px") "all content, with the exception of 88x31 buttons or unless otherwise noted is created by natalie 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"))) (footnote (:style "margin-top: 5px") "▖▖▖▖▘▖▖▖▖▘▌▖▖▖▘"