;; SPDX-License-Identifier: CC-BY-4.0 ;; Copyright 2026 bdunahu (define-module (operationnull pages) #:export (index-content contact-content e404 gold-content recommend-content)) (define index-content '(article (h1 "Hello!") (div (@ (class "c")) (p "My name is Benjamin (often 'bdunahu'), and this is my personal site!") (p "I am currently attending my final semester at the " (a (@ (href "https://www.cics.umass.edu/")) "University of Massachusetts Amherst") ", where I am studying computer science. I am part of the " (a (@ (href "https://github.com/umacabal/umaring")) "umass webring") ". Try it and pretend the majority of the internet doesn't exist!")) (h1 "Some stuff I do:") (div (@ (class "c")) (p "Some programming, of course; I like experimenting with and building tools for existing software.") (p "I recently did some independent work at the UMass Plasma lab related to a specialized python asyncio profiler. In the case of asyncio, developers are in charge of having their tasks share resources. If you make a mistake (i.e., by having a task not yield to other tasks), traditional profilers may not find it, because they are concerned with ranking code by total execution time, not considering the delicate timing between all tasks competing to run on the same thread. My profiler 'Nemesis', would randomly select synchronous logic to speedup during execution similar to the " (a (@ (href "https://github.com/plasma-umass/coz")) "Coz profiler") " and measure the average latency changes of all other tasks to report on real optimization impacts. This worked okay, but was limited in usefulness since it required a constant workload across the experiments to have actionable results. It was still a great learning experience!") (p "I previously worked on my own C compiler after working on a from-scratch compiler in coursework. I used this second compiler to learn the basics of guile scheme. This website is written in scheme; and my computing environments are similarly configured using " (a (@ (href "https://guix.gnu.org/")) "GuixSD") ". I recently started contributing patches and packages. I have a little experience with Arch (Parabola) and Debian in maintaining this server. Someday, I may host my web, mail, IRC bouncer, etc. with scheme and Guix too, but that requires downtime and a lot of work on top of the work already put in.") (p "I write, sometimes technical papers for research and classwork, but also enjoy creative writing. I do " (a (@ (href "/gold.html")) "poetry") " occasionally. Though I prefer plot and character design (likely cultivated from many hours playing dungeons and dragons), and am currently focused on a series of short stories featuring a timeline in which the goddess Freya is spiteful in the aftermath of the " (a (@ (href "https://en.wikipedia.org/wiki/%C3%86sir%E2%80%93Vanir_War")) "Aesir-Vanir war") ". It's been suggested she's the same seer who was mistreated (if that's how you should call burned to death three times) by the Aesir due to envy. Since she is essentially traded as a hostage to the Aesir in the aftermath of the war, why shouldn't she be using her seer magic venomously behind their backs? It's currently set in Midgard, Jotunheim, and the passages in-between, following her shamelessly unhelpful servants.") (p "I also read a lot of Sword and Sorcery. My favorite series is the Morlock Ambrosius series by James Enge; but you can read more about things I find cool " (a (@ (href "/recommend.html")) "here") ". While the protagonists in these stories are capable enough of saving the world, what makes it interesting is the lack of heroism and the reality that they are their own worst enemy, (" (a (@ (href "https://www.oldmoonpublishing.com/evil-honey")) "if not the secondary antagonist") ").")))) (define recommend-content '(article (h1 "Cool Stuff in Categories") (p "Limited to 10 or less per category. Ordered alphabetically, to make the process easier. Descriptions of items are not provided.") (h2 "Languages") (div (@ (class "c")) (ul (li "Aeolian Tones") (li "C++") (li "Cave Scrawlings") (li "Common Lisp") (li "Primordial") (li "Python") (li "Scheme") (li "Thieves' Cant"))) (h2 "Books & Series") (div (@ (class "c")) (ul (li "Bram Stoker - Dracula") (li "Christopher Tolkien - The Saga of King Heidrek the Wise") (li "James Enge - Morlock Ambrosius Series") (li "John Bellairs - The Face in the Frost") (li "M.D. Lachlan - The Wolfsangel Cycle") (li "Michael Moorcock - Elric Saga") (li "Poul Anderson - Operation Chaos") (li "Robert E. Howard - The God in the Bowl") (li "Roger Zelazny - Jack of Shadows") (li "Sam Sykes - Bring Down Heaven") ;; (li "Stephen King - The Shining") )) (h2 "Music") (div (@ (class "c")) (ul ;; (li "Agalloch - She Painted Fire Across The Skyline (Part 2)") (li "Blind Guardian - Harvest Of Sorrow") (li "Catamenia - Coldbound") (li "Dool - Oweynagat") ;; (li "Empyrium - The Franconian Woods In Winter's Silence") (li "Enshine - Dual Existance") (li "Eternal Tears of Sorrow - Prophetian") (li "Evanescence - Imaginary") ;; (li "In Flames - Pinball Map") ;; (li "Moonspell - Wolfshade") (li "Palmreader - Hold/Release") (li "Suldusk - Solus Ipse") (li "TOOL - Rosetta Stoned") (li "Vylet Pony - The Wallflower Equation"))) (h2 "Software") (div (@ (class "c")) (ul (li "bitchx") (li "emacs") (li "gimp") (li "guix") (li "gnus (mail client)") (li "mpv (media player)") (li "nsxiv (image viewer)") (li "tor") (li "yt-dlp") (li "zathura (pdf viewer)"))))) (define contact-content '(article (h1 "Messengers") (div (@ (class "c")) (b "IRC: ") "@ bdunahu @ libera.chat" (br) (b "matrix: ") "@bdunahu:tchncs.de" (br) (b "signal: ") "bdunahu.29") (h1 "Email") (div (@ (class "c")) "bdunahu @ this domain" (ul (@ (style "font-size: 80%;")) (p "If you know how/want to send encrypted email:") (ul (code "curl -sL https://operationnull.com/assets/bdunahu.pub | gpg --import") (br) "Fingerprint: " (code "5550 5CA6 9DE5 D342 7F31 F9AE 5F86 6C65 2A34 C996")))))) (define e404 '(article (h1 "403/404 Error") (div (@ (class "c")) (p "The requested page does not exist, or you do not have access.")))) (define gold-content '(article (h1 "Shape God") (div (@ (class "date")) "Written on Feb 12, 2024, updated June 30th, 2025 by bdunahu") (br) (div (p (@ (class "verse")) "An abiding ash snares its feathered lord;" (br) "the first bears shelter, the second shadow." (br) "Darkness thrashes in envy, a callous cord;" (br) "life seldom slaughters the serf of gallows." (br) (br) "In sacred wellspring bearing a kingdom," (br) "lowly ancients bargain poison and vice." (br) "A madman need savor his wisdom;" (br) "to take lore for sight is a witless price." (br) (br) "Wanderer impaled by most faithless knife" (br) "tarnished talons adrift the bleeding red," (br) "from the icy fibers of self-suffered life" (br) "our king --- " (i "war-maker! all-hater!") " --- has fed." (br) (br) "In burst fetters terror comes to bite," (br) "and thus conclude the coward's futile plight." (br)))))