Move contact, blog to index. Rewrite index, structural changes.HEADmaster

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)))))