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
|
(define-module (operationnull pages)
#:export (index-content
contact-content
e404
gold-content))
(define index-content
'(article (h2 "Welcome.")
(p "My name is Benjamin. operationnull is my personal site.")
(p "My interests often revolve around processing and manipulating text--code generation, interpreters, Norse mythology, sword and sorcery, and GNU Emacs, the ultimate text-based operating system. I graduated from CSU with a B.S. in computer science Spring 2024.")
(ul (@ (type "bullet"))
(li "I have an interest in poetry/fiction though the quality of my work is up to your interpretation ("
(a (@ (href "/gold.html"))
"gold")
").")
(li "I am working on a short sword and sorcery story about a frankensteinish werewolf, and possibly, blood.")
(li "I am currently learning (guile) scheme, and using it to design a C compiler.")
(li "A few of my personal projects can be found on my "
(a (@ (href "https://git.operationnull.com/"))
"git server")
", all of which are libre.")
(li "I host a small gemlog on the link titled 'porphyrion'."))))
(define contact-content
'(article (h2 "Contact")
(p "I am reachable by email:")
(ul (@ (type "bullet"))
(li (b "email: ") "bdunahu @ this domain"))
(ul (p (@ (style "font-size: 80%;"))
"If you know how/want to send encrypted email:")
(ul (@ (style "font-size: 80%;"))
(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 "Additionally, these accounts belong to me.")
(ul (@ (type "bullet"))
(li (b "IRC: ") "@ Isaz @ libera.chat")
(i "And: ") "@ Gondul @ libera.chat"
(li (b "matrix: ") "@bdunahu:tchncs.de"))))
(define e404
'(article (h2 "403/404 Error")
(p "The requested page does not exist, or you do not have access.")))
(define gold-content
'(article (h2 "More Worthless than Gold")
(div (@ (class "date"))
"Written on Feb 12, 2024 by bdunahu")
(br)
(div (p (@ (class "verse"))
"Wilt beneath branches bent on ill-bound hope"
(br)
"our watchful wings cast petals of shadows,"
(br)
"the fervent embrace of triple-knot rope"
(br)
"seldom slaughter those born of the gallows."
(br)
(br)
"In sacred wellspring bearing a kingdom,"
(br)
"lowly ancients bargain poison and vice."
(br)
"Our 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 "
(a (@ (href "https://norse-mythology.org/tales/odins-discovery-of-the-runes/"))
"coward's futile plight")
"."
(br)))))
|
