summaryrefslogtreecommitdiff
path: root/src/operationnull/pages.scm
blob: d2e446276c5bcaa6d7161e531f48db250f69659d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
(define-module (operationnull pages)
  #:export (index-content
            contact-content
            e404
            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 "
                    (a (@ (href "/music.html"))
                       "metal music")
                    ". "
		    (a (@ (href "/gold.html"))
		       "I sometimes practice poetry")
		    "/fiction writing.")
		 (br)
		 (h3 "Some stuff I am currently doing:")
		 (ul (@ (type "bullet"))
                     (li "learning (guile) scheme, and using it to design a C compiler.")
		     (li "working on a short sword and sorcery story about a frankensteinish werewolf, and possibly, blood.")
		     (li "learning how to profile asynchronous code using sampling for the purpose of contributing it to "
			 (a (@ (href "https://github.com/plasma-umass/scalene"))
			    "SCALENE")
			 ".")))
	    (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 (a (@ (href "https://wiby.me"))
			    "wiby.me")
			 " works as a search engine and indexes only personal blogs. The all-knowing "
			 (a (@ (href "https://searxng.org/"))
			    "searxng")
			 " 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 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 charged. 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, the the lyrics are usually dialogue from the same."
                     (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."
                     (li "Palmreader - Hold/Release")
                     "Rock or metal; 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."
                     (li "The Ritual Aura - Keening 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."
                     (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"))
		 (b "IRC: ") "@ bdunahu @ libera.chat"
		 (br)
		 (b "matrix: ") "@bdunahu:tchncs.de"
                 (br)
                 (b "signal: ") "bdunahu.29")
	    (h2 "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 (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 "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)))))