initial commit

1 files changed, 69 insertions, 0 deletions

diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm
new file mode 100644
index 0000000..1771c8a
--- /dev/null
+++ b/src/operationnull/pages.scm
@@ -0,0 +1,69 @@
+(define-module (operationnull pages)
+  #:export (index-content
+            contact-content
+            gold-content))
+
+
+(define index-content
+  '(article (h2 "Welcome.")
+            (p "operationnull is a site created and run by me, bdunahu. My "
+               (i "real")
+               " name is Benjamin.")
+            (p "My interests often revolve around processing and manipulating text--code generation, interpreters, Norse mythology, traditional sword and sorcery, and GNU Emacs, the ultimate text-based operating system. I graduated from CSU with a B.S. in computer science in Spring 2024.")
+            (p "I've dabbled a bit in poetry/fiction ("
+               (a (@ (href "/pages/gold.html"))
+                  "example")
+               "), though I am still an amateur writer. I am working on a short sword and sorcery piece (~10,000 words) about an outlandish werewolf named Gǫndul and her creator---the master-conjurer Gullveig, though I am not sure when it is likely to see the light of day. A few of my personal project can be found on my "
+               (a (@ (href "https://git.operationnull.com/"))
+                  "git server")
+               ", all libre.")))
+
+(define contact-content
+  '(article (h2 "Contact")
+            (p "Contact me with inquiries about the content of this site here:")
+            (ul (@ (type "bullet"))
+                (li (b "email: ") "bdunahu @ this domain"))
+            (p "Additionally, these accounts are/belong to me. I am not on other platforms.")
+            (ul (@ (type "bullet"))
+                (li (b "IRC: ") "@ Isaz @ libera.chat")
+                (li (b "matrix: ") "@bdunahu:tchncs.de"))))
+
+(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 coward's futile plight."
+                    (br)))))