Make header, footer, stick to top and bottom and take up full width

2 files changed, 72 insertions, 73 deletions

diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm
index a1f78ee..6993cdb 100644
--- a/src/operationnull/pages.scm
+++ b/src/operationnull/pages.scm
@@ -7,47 +7,47 @@
 
 (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, 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'."))))
+            (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 "Contact")
-	    (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%;"))
-                (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")))
-            (br)
-	    (p "I do not have any accounts open with any big-tech services. Reluctantly, I do have a discord account.")))
+  '(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")
-            (p "The requested page does not exist, or you do not have access.")))
+            (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")
+                    "Written on Feb 12, 2024 by bdunahu")
             (br)
             (div (p (@ (class "verse"))
                     "Wilt beneath branches bent on ill-bound hope"
@@ -83,6 +83,6 @@
                     (br)
                     "and thus conclude the "
                     (a (@ (href "https://norse-mythology.org/tales/odins-discovery-of-the-runes/"))
-                       "coward's futile plight")
+		       "coward's futile plight")
                     "."
                     (br)))))
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm
index 7a90a60..33e0b2a 100644
--- a/src/operationnull/theme.scm
+++ b/src/operationnull/theme.scm
@@ -41,47 +41,46 @@
               ,(stylesheet "site")
               )
              (body
+	      (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")))))))
 	      (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")
-			   ".")))))
+		   ,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