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 src: //fungal.locahlo.st/medias/88x31/fungal.locahlo.st.png
alt: fungal's 88x31 stamp alt: fungal's 88x31 stamp
- host: //liv.town/ - host: https://liv.town/
src: //liv.town/assets/img/livtown-button.gif" src: https://liv.town/assets/img/livtown-button.gif"
alt: liv.town's animated 88x31 button alt: liv.town's animated 88x31 button
- host: //tasiaiso.vulpecula.zone/ - 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. " "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.") "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 (section
(h2 "site info" ~(run "make-footnote \"as of last build\"")) (h2 "site info" ~(run "make-footnote \"as of last build\""))
@ -19,8 +19,7 @@
(details (details
(summary "file tree of the site on the server") (summary "file tree of the site on the server")
(pre ~(run "tree . | sed 's/^\\./site/; s/─/-/g; s/├/|/g; s/└/\\\\/g; s/│/|/g'"))) (pre ~(run "tree . | sed 's/^\\./site/; s/─/-/g; s/├/|/g; s/└/\\\\/g; s/│/|/g'"))))
~(run "put-footnotes"))
(section (section
(h2 "88x31s") (h2 "88x31s")
@ -33,7 +32,7 @@
(with [f (open "data/88x31s.yaml" "r")] (with [f (open "data/88x31s.yaml" "r")]
(setv 88x31s (safe-load f))) (setv 88x31s (safe-load f)))
(.join "" (lfor form [ (hy.models.Expression [
`(p (:style "margin-bottom: 4px;") "entities or organizations:") `(p (:style "margin-bottom: 4px;") "entities or organizations:")
#* (lfor button (get 88x31s "specific") #* (lfor button (get 88x31s "specific")
(cond (cond
@ -47,9 +46,10 @@
(or (in "src" button) (in "alt" button)) (or (in "src" button) (in "alt" button))
`(img (:src ~(get button "src") :alt ~(get button "alt"))) `(img (:src ~(get button "src") :alt ~(get button "alt")))
True "")) 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"))) (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 "/"))) ~(comments "/")))