nat/natalieee.net
1
0
Fork 1
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix liv.town 88x31 entry; minor revisions to home.hy

Browse Source
This commit is contained in:
natalie roentgen connolly
2025-06-23 03:55:51 -07:00
parent 21d28f9b5f
commit 6fcb674165
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
www/src/data/88x31s.yaml
View File

@ -56,8 +56,8 @@ specific:
src: //fungal.locahlo.st/medias/88x31/fungal.locahlo.st.png
alt: fungal's 88x31 stamp
- host: //liv.town/
src: //liv.town/assets/img/livtown-button.gif"
- host: https://liv.town/
src: https://liv.town/assets/img/livtown-button.gif"
alt: liv.town's animated 88x31 button
- host: //tasiaiso.vulpecula.zone/

12
www/src/pages/home.hy
View File

@ -9,7 +9,7 @@
"including the static site generator and the http server. as such, there will be discontinuities with the prior iteration of the site. "
"the historically minded are encouraged to look at the archive.org page for this website prior to early may 2025.")
(p "if $READER is confused, interested or any adjective, frankly about information found herein, they are encouraged to e-mail natalie. its contact information may be found on " ~(link "/html/about-natalie.html") " or below."))
(p "if $READER is confused, interested or any adjective, frankly about information found herein, they are encouraged to e-mail natalie. its contact information may be found on " ~(link "/html/about-natalie.html") "."))
(section
(h2 "site info" ~(run "make-footnote \"as of last build\""))
@ -19,8 +19,7 @@
(details
(summary "file tree of the site on the server")
(pre ~(run "tree . | sed 's/^\\./site/; s/─/-/g; s/├/|/g; s/└/\\\\/g; s/│/|/g'")))
~(run "put-footnotes"))
(pre ~(run "tree . | sed 's/^\\./site/; s/─/-/g; s/├/|/g; s/└/\\\\/g; s/│/|/g'"))))
(section
(h2 "88x31s")
@ -33,7 +32,7 @@
(with [f (open "data/88x31s.yaml" "r")]
(setv 88x31s (safe-load f)))
(.join "" (lfor form [
(hy.models.Expression [
`(p (:style "margin-bottom: 4px;") "entities or organizations:")
#* (lfor button (get 88x31s "specific")
(cond
@ -47,9 +46,10 @@
(or (in "src" button) (in "alt" button))
`(img (:src ~(get button "src") :alt ~(get button "alt")))
True ""))
] (form->html form)))))
])))
(p "the reader may request their button be displayed here by e-mailing their domain, button, and alt-text for the button to the following e-mail: "
(p "the reader may request their button be displayed here by e-mailing their domain, button url, and alt-text for the button to the following address: "
(a (:href "mailto:natalieee.net+88x31@8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa") "natalieee.net+88x31@8.f.9.e.0.7.4.0.1.0.0.2.ip6.arpa")))
~(run "put-footnotes")
~(comments "/")))