(define-module (operationnull pages)
  #:export (index-content
            contact-content
            e404
            gold-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. "
		    (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 "Similar sites:")
	    (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")
			 ", a unique search engine which indexes only personal blogs. The all-knowing "
			 (a (@ (href "https://searxng.org/"))
			    "searxng")
			 " can 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 contact-content
  '(article (h2 "Matrix and IRC")
	    (div (@ (class "c"))
		 (b "IRC: ") "@ bdunahu @ libera.chat or @ Gondul @ libera.chat"
		 (br)
		 (b "matrix: ") "@bdunahu:tchncs.de")
	    (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 "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)))))