Partial rework of theme+css

2 files changed, 50 insertions, 45 deletions

diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm
index fe90925..a1f78ee 100644
--- a/src/operationnull/pages.scm
+++ b/src/operationnull/pages.scm
@@ -10,7 +10,7 @@
             (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 have an interest in poetry/fiction though the quality of my work is up to your interpretation ("
+                (li "I sometimes practice poetry/fiction writing ("
                    (a (@ (href "/gold.html"))
                       "gold")
                    ").")
@@ -19,12 +19,16 @@
                 (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 "I am reachable by email:")
+	    (p "I am on Matrix and IRC:")
+            (ul (@ (type "bullet"))
+                (li (b "IRC: ") "@ bdunahu @ libera.chat or @ Gondul @ libera.chat")
+                (li (b "matrix: ") "@bdunahu:tchncs.de"))
+            (p "If you don't use those:")
             (ul (@ (type "bullet"))
                 (li (b "email: ") "bdunahu @ this domain"))
             (ul (@ (style "font-size: 80%;"))
@@ -33,11 +37,8 @@
                     (br)
                     "Fingerprint: "
                     (code "5550 5CA6 9DE5 D342 7F31  F9AE 5F86 6C65 2A34 C996")))
-            (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"))))
+            (br)
+	    (p "I do not have any accounts open with any big-tech services. Reluctantly, I do have a discord account.")))
 
 (define e404
   '(article (h2 "403/404 Error")
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm
index 70e81e6..7a90a60 100644
--- a/src/operationnull/theme.scm
+++ b/src/operationnull/theme.scm
@@ -41,43 +41,47 @@
               ,(stylesheet "site")
               )
              (body
-              (intro
-               (br)
-               '(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 "gemini://porphyrion.operationnull.com/"))
-                                "porphyrion"))
-                         (li (a (@ (href "https://git.operationnull.com/"))
-                                "git"))
-                         (li (a (@ (href "/contact.html"))
-                                "contact"))
-                         (li (a (@ (href "/"))
-                                "home")))))
-              ,body
-              (footer (@ (class "footer"))
-                      "Copyright © 2025 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")
-                      "."))))
+	      (div (@ (class "container"))
+		   (intro
+		    (div (@ (style "contain: size; justify-self: end;"))
+			 (img (@ (alt "raven") (class "no-border")
+				 (src "/assets/raven.png"))))
+		    (div (@ (style "text-align: left;"))
+			 (h1 (span (@ (class "white")) bdunahu))
+			 (p "cs graduate student @ "
+			    (a (@ (href "https://www.cics.umass.edu/"))
+			       "UMass Amherst"))))
+	       	   (nav
+		    (div
+		     (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 "/"))
+				"home")))))
+		   ,body
+		   (footer (@ (class "footer"))
+			   (script (@ (id "umaring_js")
+                                      (src "https://umaring.mkr.cx/ring.js?id=bdunahu")))
+			   (div (@ (id "umaring")))
+			   "Copyright © 2025 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