initial commit

4 files changed, 253 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)))))
diff --git a/src/operationnull/site.scm b/src/operationnull/site.scm
new file mode 100644
index 0000000..084bf1b
--- /dev/null
+++ b/src/operationnull/site.scm
@@ -0,0 +1,35 @@
+(define-module (operationnull site)
+  #:use-module (haunt builder assets)
+  #:use-module (haunt builder atom)
+  #:use-module (haunt builder blog)
+  #:use-module (haunt html)
+  #:use-module (haunt post)
+  #:use-module (haunt reader)
+  #:use-module (haunt reader commonmark)
+  #:use-module (haunt site)
+  #:use-module (operationnull pages)
+  #:use-module (operationnull static)
+  #:use-module (operationnull theme)
+  #:export (main-site))
+
+
+(define %blog-collection
+  `(("Posts" "/posts/index.html" ,posts/reverse-chronological)))
+
+(define main-site
+  (site #:title "operationnull"
+	#:domain "operationnull.com"
+	#:posts-directory "content/posts"
+	#:build-directory "target"
+	#:default-metadata
+	'((author . "bdunahu"))
+	#:readers (list commonmark-reader)
+	#:builders (list (static-page index-content "index.html" "home")
+			 (static-page contact-content "pages/contact.html" "contact")
+			 (blog #:theme main-theme
+                               #:prefix "/posts/"
+                               #:collections %blog-collection)
+			 (static-page gold-content "pages/gold.html" "More Worthless than Gold")
+			 (atom-feed)
+			 (atom-feeds-by-tag)
+			 (static-directory "content/assets" "assets"))))
diff --git a/src/operationnull/static.scm b/src/operationnull/static.scm
new file mode 100644
index 0000000..25f35e2
--- /dev/null
+++ b/src/operationnull/static.scm
@@ -0,0 +1,24 @@
+(define-module (operationnull static)
+  #:use-module (haunt artifact)
+  #:use-module (haunt reader commonmark)
+  #:use-module (haunt html)
+  #:use-module (haunt builder blog)
+  #:use-module (operationnull theme)
+  #:export (static-page))
+
+
+(define* (static-page page destination title
+                      #:key
+                      (theme main-theme)
+                      (reader commonmark-reader))
+  "Return a builder procedure that reads FILE into SXML, adjusts it
+according to the THEME and serialize to HTML and put it to
+build-directory of the site.  DESTINATION is a relative resulting file
+path."
+  (lambda (site posts)
+    (list
+     (serialized-artifact
+      destination
+      (with-layout theme site title page)
+      sxml->html))))
+
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm
new file mode 100644
index 0000000..3129203
--- /dev/null
+++ b/src/operationnull/theme.scm
@@ -0,0 +1,125 @@
+(define-module (operationnull theme)
+  #:use-module (haunt artifact)
+  #:use-module (haunt builder blog)
+  #:use-module (haunt html)
+  #:use-module (haunt post)
+  #:use-module (haunt site)
+  #:use-module (ice-9 match)
+  #:use-module (srfi srfi-19)
+  #:export (main-theme))
+
+(define %cc-by-sa-link
+  '(a (@ (href "https://creativecommons.org/licenses/by-sa/4.0/"))
+      "CC-BY-SA 4.0"))
+
+(define (first-paragraph post)
+  (let loop ((sxml (post-sxml post)))
+    (match sxml
+      (() '())
+      (((and paragraph ('p . _)) . _)
+       (list paragraph))
+      ((head . tail)
+       (cons head (loop tail))))))
+
+(define (stylesheet name)
+  `(link (@ (rel "stylesheet")
+            (href ,(string-append "/assets/" name ".css")))))
+
+(define main-theme
+  (theme #:name "bdunahu"
+         #:layout
+         (lambda (site title body)
+           `((doctype "html")
+             (head
+              (meta (@ (charset "utf-8")))
+              (meta (@ (name "viewport")
+                       (content "width=device-width, initial-scale=1")))
+              (link (@ (rel "icon")
+                       (type "image/x-icon")
+                       (href "/assets/favicon.ico")))
+              (title ,(string-append title " — " (site-title site)))
+              (link (@ (rel "alternate")
+                       (type "application/atom+xml")
+                       (title "Atom feed")
+                       (href "/feed.xml")))
+              ,(stylesheet "site")
+              )
+             (body
+              (intro
+               '(div (@ (class "container"))
+                     (img (@ (alt "raven") (class "no-border")
+                             (src "/assets/raven.png")))
+                     (h1 (span (@ (class "white")) bdunahu))
+                     (p "cs graduate student @ "
+                        (a (@ (href "https://www.cics.umass.edu/"))
+                           "UMass Amherst"))))
+              (nav
+               '(div (@ (class "container"))
+                     (ul (li (a (@ (href "https://git.operationnull.com/"))
+                                "git"))
+                         (li (a (@ (href "/pages/contact.html"))
+                                "contact"))
+                         (li (a (@ (href "/posts/"))
+                                "rand"))
+                         (li (a (@ (href "/"))
+                                "home")))))
+              ,body
+              (footer (@ (class "footer"))
+                      "Copyright © 2024 bdunahu"
+                      (br)
+                      "Site content available under the " ,%cc-by-sa-link " license "
+                      (a (@ (href "https://git.operationnull.com/operationnull.git/"))
+                         "here")
+                      "."
+                      (br)
+                      "Last updated on "
+                      ,(date->string (current-date) "~b ~d, ~Y")
+                      ". Generated with "
+                      (a (@ (href "https://dthompson.us/projects/haunt.html"))
+                         "Haunt")
+                      " and "
+                      (a (@ (href "https://gnu.org/software/guile"))
+                         "Guile Scheme")
+                      "."))))
+         #:post-template
+         (lambda (post)
+           `((article
+              (h3 (@ (class "title")),(post-ref post 'title))
+              (div (@ (class "date"))
+                   ,(date->string (post-date post)
+                                  "~B ~d, ~Y"))
+              (div (@ (class "post"))
+                   ,(post-sxml post)))))
+         #:collection-template
+         (lambda (site title posts prefix)
+           (define (post-uri post)
+             (string-append prefix "/" (site-post-slug site post) ".html"))
+
+           `(article (h2 ,title
+                         (a (@ (href "/feed.xml"))
+                            (img (@ (class "feed-icon") (src "/assets/feed.png")))))
+                     ,(map (lambda (post)
+                             (let ((uri (post-uri post)))
+                               `(article (@ (class "summary"))
+                                         (h3 (a (@ (href ,uri))
+                                                ,(post-ref post 'title)))
+                                         (div (@ (class "date"))
+                                              ,(date->string (post-date post)
+                                                             "~B ~d, ~Y"))
+                                         (div (@ (class "post"))
+                                              ,(first-paragraph post))
+                                         (a (@ (href ,uri)) "more..."))))
+                           posts)))
+         #:pagination-template
+         (lambda (site body previous-page next-page)
+           `(,@body
+             (div (@ (class "paginator"))
+                  ,(if previous-page
+                       `(a (@ (class "paginator-prev") (href ,previous-page))
+                           "← Newer")
+                       '())
+                  ,(if next-page
+                       `(a (@ (class "paginator-next") (href ,next-page))
+                           "Older →")
+                       '()))))
+         ))