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 \"\" || 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") "
$(stat -c %y site/html/blog/posts/$file | head -c 10)