diff options
Diffstat (limited to 'src/operationnull/pages.scm')
| -rw-r--r-- | src/operationnull/pages.scm | 161 |
1 files changed, 15 insertions, 146 deletions
diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm index dbb7c64..8a1bfe8 100644 --- a/src/operationnull/pages.scm +++ b/src/operationnull/pages.scm @@ -1,89 +1,13 @@ ;; SPDX-License-Identifier: CC-BY-SA-4.0 ;; Copyright 2026 bdunahu <bdunahu@operationnull.com> (define-module (operationnull pages) - #:export (index-content - contact-content - e404 - gold-content + #:use-module (operationnull utils) + #:export (e404 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, and ordered alphabetically, -to make the process easier.") + (p "Things I use and recommend.") (h2 "Books & Series") (div (@ (class "c")) (ul (li "Bram Stoker - Dracula") @@ -100,19 +24,19 @@ to make the process easier.") )) (h2 "Music") (div (@ (class "c")) - (ul ;; (li "Agalloch - She Painted Fire Across The Skyline (Part 2)") - (li "Blind Guardian - Harvest Of Sorrow") + (ul ; + (li "Blind Guardian - Fly") (li "Catamenia - Coldbound") (li "Dool - Oweynagat") - ;; (li "Empyrium - The Franconian Woods In Winter's Silence") - (li "Enshine - Dual Existance") + (li "Empyrium - The Franconian Woods In Winter's Silence") + ;; (li "Enshine - Dual Existance") (li "Eternal Tears of Sorrow - The River Flows Frozen") (li "Evanescence - Imaginary") - ;; (li "In Flames - Pinball Map") - ;; (li "Moonspell - Wolfshade") + (li "Lunatic Soul - Monsters") (li "Palmreader - Hold/Release") - (li "Suldusk - Solus Ipse") - (li "TOOL - Rosetta Stoned") + ;; (li "Osi and the Jupiter - Much Wisdom is Such Grief") + (li "Suldusk - Anthesis") + ;; (li "TOOL - Rosetta Stoned") (li "Vylet Pony - The Wallflower Equation"))) (h2 "Software") (div (@ (class "c")) @@ -122,71 +46,16 @@ to make the process easier.") (li "guix") (li "mpv (media player)") (li "nsxiv (image viewer)") - (li "rcirc") + (li "rcirc (irc client)") (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") + (li "zathura (pdf viewer)"))) + (h2 "Favorite LLM Client?") (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")))))) + (p "no. no no no no")))) (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))))) |