general updates, add porphyrion link

3 files changed, 31 insertions, 30 deletions

diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm
index 319199a..d317570 100644
--- a/src/operationnull/pages.scm
+++ b/src/operationnull/pages.scm
@@ -8,22 +8,23 @@
 (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, traditional 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.")
-            (p "I've dabbled in poetry/fiction ("
-               (a (@ (href "/gold.html"))
-                  "example")
-               "), though I am still an amateur writer. I am working on another short sword and sorcery story (10,000+ words) about an outlandish werewolf named Gǫndul and her creator---the master-conjurer Gullveig. I am not sure if it will ever appear publicly or on this site.")
-            (p "A few of my personal projects can be found on my "
-               (a (@ (href "https://git.operationnull.com/"))
-                  "git server")
-               ", all of which are "
-               (a (@ (href "https://en.wikipedia.org/wiki/Free_software"))
-                  "libre")
-               ".")))
+            (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 "Contact me about the content of this site here:")
+            (p "I am reachable by email:")
             (ul (@ (type "bullet"))
                 (li (b "email: ") "bdunahu @ this domain"))
             (ul (p (@ (style "font-size: 80%;"))
@@ -33,9 +34,10 @@
                     (br)
                     "Fingerprint: "
                     (code "5550 5CA6 9DE5 D342 7F31  F9AE 5F86 6C65 2A34 C996")))
-            (p "Additionally, these accounts are/belong to me.")
+            (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
diff --git a/src/operationnull/site.scm b/src/operationnull/site.scm
index f1acfce..c6cfe31 100644
--- a/src/operationnull/site.scm
+++ b/src/operationnull/site.scm
@@ -1,11 +1,9 @@
 (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 reader skribe)
   #:use-module (haunt site)
   #:use-module (operationnull pages)
   #:use-module (operationnull static)
@@ -14,7 +12,7 @@
 
 
 (define %blog-collection
-  `(("Recent Posts" "/posts/index.html" ,posts/reverse-chronological)))
+  `(("Infrequently Updated Notes" "/posts/index.html" ,posts/reverse-chronological)))
 
 (define main-site
   (site #:title "operationnull"
@@ -23,15 +21,9 @@
         #:build-directory "target"
         #:default-metadata
         '((author . "bdunahu"))
-        #:readers (list commonmark-reader)
+        #:readers (list skribe-reader)
         #:builders (list (static-page index-content "index.html" "home")
                          (static-page contact-content "/contact.html" "contact")
-                         (blog #:theme main-theme
-                               #:prefix "/posts/"
-                               #:collections %blog-collection)
                          (static-page e404 "/404.html" "404 Error")
                          (static-page gold-content "/gold.html" "More Worthless than Gold")
-                         (atom-feed #:file-name "atom.xml"
-                                    #:subtitle "Recent Posts")
-                         ;; (atom-feeds-by-tag)
                          (static-directory "content/assets" "assets"))))
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm
index d44881a..db5a157 100644
--- a/src/operationnull/theme.scm
+++ b/src/operationnull/theme.scm
@@ -56,13 +56,13 @@
                            "UMass Amherst"))))
               (nav
                '(div (@ (class "container"))
-                     (ul (li (a (@ (href "https://git.operationnull.com/"))
+                     (ul (li (a (@ (href "gemini://porphyrion.operationnull.com/"))
+                                "porphyrion"))
+			 (li (a (@ (href "https://git.operationnull.com/"))
                                 "git"))
                          (li (a (@ (href "/contact.html"))
                                 "contact"))
-                         ;; (li (a (@ (href "/posts/"))
-                         ;;        "blog"))
-                         (li (a (@ (href "/"))
+			 (li (a (@ (href "/"))
                                 "home")))))
               ,body
               (footer (@ (class "footer"))
@@ -88,7 +88,14 @@
               (h3 (@ (class "title")),(post-ref post 'title))
               (div (@ (class "date"))
                    ,(date->string (post-date post)
-                                  "~B ~d, ~Y"))
+                                  "created: ~B ~d, ~Y"))
+              (div (@ (class "tags"))
+                   "tags:"
+                   (ul ,@(map (lambda (tag)
+                                `(li (a (@ (href ,(string-append "/feeds/tags/"
+                                                                 tag ".xml")))
+                                        ,tag)))
+                              (assq-ref (post-metadata post) 'tags))))
               (div (@ (class "post"))
                    ,(post-sxml post)))))
          #:collection-template