diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/operationnull/pages.scm | 39 | ||||
| -rw-r--r-- | src/operationnull/site.scm | 2 |
2 files changed, 21 insertions, 20 deletions
diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm index 9bf9d5a..69554df 100644 --- a/src/operationnull/pages.scm +++ b/src/operationnull/pages.scm @@ -22,28 +22,30 @@ (a (@ (href "https://github.com/plasma-umass/scalene")) "SCALENE") "."))) - (h2 "Similar sites:") + (h2 "Other sites and protocols:") (div (@ (class "c")) (p "The web is currently being overrun with AI generated content. Even before then, search engines prioritized commercial pages over personalized sites or blogs. I have come across three solutions:") (ol - (li "webrings! The footer of this site contains links to the sites of my peers'.") + (li "webrings! The footer of this site contains links to the sites of my peers.") (li (a (@ (href "https://wiby.me")) "wiby.me") - ", a unique search engine which indexes only personal blogs. The all-knowing " + " works as a search engine and indexes only personal blogs. The all-knowing " (a (@ (href "https://searxng.org/")) "searxng") - " can be configured to index this engine while simultaneously accessing google or duckduckgo.") + " can also be configured to index this engine while simultaneously accessing google or duckduckgo.") (li "try the " (a (@ (href "https://geminiprotocol.net/")) "gemini protocol") ", which is filled with interesting 'gemlogs'. I have started my own, named 'Porphyrion'."))))) (define contact-content - '(article (h2 "Matrix and IRC") + '(article (h2 "Messengers") (div (@ (class "c")) - (b "IRC: ") "@ bdunahu @ libera.chat or @ Gondul @ libera.chat" + (b "IRC: ") "@ bdunahu @ libera.chat" (br) - (b "matrix: ") "@bdunahu:tchncs.de") + (b "matrix: ") "@bdunahu:tchncs.de" + (br) + (b "signal: ") "bdunahu.29") (h2 "Email") (div (@ (class "c")) "bdunahu @ this domain" @@ -54,31 +56,33 @@ "Fingerprint: " (code "5550 5CA6 9DE5 D342 7F31 F9AE 5F86 6C65 2A34 C996")))))) +(define about-content) + (define e404 '(article (h2 "403/404 Error") (div (@ (class "c")) (p "The requested page does not exist, or you do not have access.")))) (define gold-content - '(article (h2 "More Worthless than Gold") + '(article (h2 "Shape God") (div (@ (class "date")) - "Written on Feb 12, 2024 by bdunahu") + "Written on Feb 12, 2024, updated June 30th, 2025 by bdunahu") (br) (div (p (@ (class "verse")) - "Wilt beneath branches bent on ill-bound hope" + "An abiding ash snares its feathered lord;" (br) - "our watchful wings cast petals of shadows," + "the first bears shelter, the second shadow." (br) - "the fervent embrace of triple-knot rope" + "Darkness thrashes in envy, a callous cord;" (br) - "seldom slaughter those born of the gallows." + "life seldom slaughters the serf of gallows." (br) (br) "In sacred wellspring bearing a kingdom," (br) "lowly ancients bargain poison and vice." (br) - "Our madman need savor his wisdom;" + "A madman need savor his wisdom;" (br) "to take lore for sight is a witless price." (br) @@ -96,8 +100,5 @@ (br) "In burst fetters terror comes to bite," (br) - "and thus conclude the " - (a (@ (href "https://norse-mythology.org/tales/odins-discovery-of-the-runes/")) - "coward's futile plight") - "." - (br))))) + "and thus conclude the coward's futile plight." + (br))))) diff --git a/src/operationnull/site.scm b/src/operationnull/site.scm index 1fad264..53a36c0 100644 --- a/src/operationnull/site.scm +++ b/src/operationnull/site.scm @@ -22,5 +22,5 @@ #:builders (list (static-page index-content "index.html" "home") (static-page contact-content "/contact.html" "contact") (static-page e404 "/404.html" "404 Error") - (static-page gold-content "/gold.html" "More Worthless than Gold") + (static-page gold-content "/gold.html" "Shape God") (static-directory "content/assets" "assets")))) |