diff --git a/www/src/data/88x31s.yaml b/www/src/data/88x31s.yaml index 67a6e4d..a1a1e1d 100644 --- a/www/src/data/88x31s.yaml +++ b/www/src/data/88x31s.yaml @@ -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/ diff --git a/www/src/pages/home.hy b/www/src/pages/home.hy index 339e79a..f4082a5 100644 --- a/www/src/pages/home.hy +++ b/www/src/pages/home.hy @@ -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 "/")))