nat/htmlgen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update home.html

Browse Source
This commit is contained in:
gnat 2024-11-03 02:50:06 -08:00
parent 79a588fa06
commit 983aa21dc2
3 changed files with 11 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/home.lisp
View File

@ -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 \"<a href=%>%</a>\" | 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<pre>' | sed '$a</pre>'")))
(section ()
(h2 () "88x31 collection")
(span () ,(exec-command "for file in ./files/88x31/*; do (file -i \"$file\" | grep -qE 'image/') && echo \"<img src=\\\"$file\\\" width=88 height=31/>\" || cat \"$file\"; done | shuf")))
(span () ,(exec-command "for file in ./files/88x31/*; do (file -i \"$file\" | grep -qE 'image/') && echo \"<img src=\\\"$file\\\" alt=\\\"88x31 $(basename ${file})\\\" width=88 height=31/>\" || 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") "<del>(No you don't --sanitization tester)</del>") "yes, it does")

14
src/html/blog/index.lisp
View File

@ -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 \"<tr><td><a href=\\\"/html/blog/posts/$file\\\">$file</a></td><td>$(stat -c %y site/html/blog/posts/$file | head -c 16)</td><td><p>$(stat -c %y site/html/blog/posts/$file | head -c 10)</p></td><td align=\\\"right\\\">$(numfmt --to=iec --suffix=B $(stat -c %s \"site/html/blog/posts/$file\"))</td></tr>\"; done | sed 's/\\\/\\\//\\\//g'")
(tr () (th (:colspan 4)))))))))

2
templates/footer.lisp
View File

@ -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") "▖▖▖▖▘▖▖▖▖▘▌▖▖▖▘"