(define-module (operationnull pages)
  #:export (index-content
            contact-content
            e404
            gold-content))


(define index-content
  '(article (h2 "Welcome.")
            (div (@ (class "c"))
		 (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 sometimes practice poetry/fiction writing ("
			 (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")
			 ".")
                     (li "I host a small gemlog on the link titled '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)))))