From 481e502918d59b3ab2a6149cc16aadee2039787f Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 24 Feb 2026 22:25:37 -0500 Subject: add music fun --- src/operationnull/pages.scm | 42 ++++++++++++++++++++++++++++++++++++++---- 1 file changed, 38 insertions(+), 4 deletions(-) (limited to 'src/operationnull/pages.scm') diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm index 69554df..53eb660 100644 --- a/src/operationnull/pages.scm +++ b/src/operationnull/pages.scm @@ -2,14 +2,18 @@ #:export (index-content contact-content e404 - gold-content)) + gold-content + music-content)) (define index-content '(article (h2 "Hello!") (div (@ (class "c")) (p "My name is Benjamin, and you have reached my personal site!") - (p "Some of my current interests include sword and sorcery, abstract syntax trees and compilers, Norse mythology, scheme programming, and metal music. " + (p "Some of my current interests include sword and sorcery, abstract syntax trees and compilers, Norse mythology, scheme programming, and " + (a (@ (href "/music.html")) + "metal music") + ". " (a (@ (href "/gold.html")) "I sometimes practice poetry") "/fiction writing.") @@ -38,6 +42,38 @@ "gemini protocol") ", which is filled with interesting 'gemlogs'. I have started my own, named 'Porphyrion'."))))) +(define music-content + '(article (h2 "Music") + (div (@ (class "c")) + (p "While it's hard to recommend music others would like, I don't use Spotify or streaming services. I am deciding to share a small pool on my own here.") + (p "I like music which tells a story. Usually this is not the kind of music you can listen to while simultaneously doing something else. I actually used to try doing this, and have stopped listening to as much music as a result.")) + (h2 "In (alphabetical) order") + (div (@ (class "c")) + (ul (li "Agalloch - She Painted Fire Across The Skyline") + "Acoustic metal. I like all 20 minutes of this, but part 2 is quite intense and emotional. If it references something, I don't know it." + (li "Ainulindale - The Parting") + "Most of my favorites here are metal, but this one isn't. The band is a reference to the Silmarilion, and seemingly underrated." + (li "Blind Guardian - Harvest Of Sorrow") + "Another Silmarilion reference, regarding the events of Túrin and Nienor. This band is quite well known; with some music in relation to Michael Moorcock's Elric of Melnibone, which is also one of the coolest S&S characters to exist." + (li "Catamenia - Coldbound") + "Black metal; the band's name has an unintentional meaning. This song gives me Tolkien vibes again, but I think this is also unintentional. I love the wolf theme." + (li "Dool - Oweynagat") + "I don't know the specific genre of metal. I like the use of vocal layering, similarly to Blind Guardian, and the fact the singer is intersex makes their music have a very captivating sound." + (li "Evanescence - Imaginary") + "Rock or metal; from a popular band." + (li "In Flames - The Puzzle") + "Maybe death metal. I just like the pace of this one, more upbeat than some of the others here." + (li "Palmreader - Hold/Release") + "Rock or metal; Lyrics have lots of emotional weight... I found this band through Conjurer and their cover of Vermilion, that one is also very good, but a bit more sinister." + (li "Sonata Arctica - Full Moon") + "Power metal. This song mostly got me into the metal genre along with Powerwolf, but I don't like the latter as much anymore. I do love the wolf theme, along with Catamenia." + (li "Suldusk - Solus Ipse") + "This song fits in a weird genre; pagan metal or folk. The deliberate mix of clean and growling vocals is beautiful, as sparing as they are. Wonderful atmosphere." + (li "The Ritual Aura - Keeing III: Dreamer's End") + "Death metal. Might give myself whiplash, and guitar may be as edgy as the lyrics, but it tends to be very poetic. May be a reference to Elder Scrolls Morrowind, which I haven't played but should." + (li "TOOL - Rosetta Stoned") + "Rock; about psychedeilc visions of alien contact and supposed purpose. Storytelling is worth the 10+ minute length.")))) + (define contact-content '(article (h2 "Messengers") (div (@ (class "c")) @@ -56,8 +92,6 @@ "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")) -- cgit v1.2.3