Fix header layout, rewrite home page

2 files changed, 31 insertions, 18 deletions

diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm
index 6993cdb..9bf9d5a 100644
--- a/src/operationnull/pages.scm
+++ b/src/operationnull/pages.scm
@@ -6,22 +6,37 @@
 
 
 (define index-content
-  '(article (h2 "Welcome.")
+  '(article (h2 "Hello!")
             (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.")
+		 (p "My name is Benjamin, and you have reached my personal site!")
+		 (p "Some of my current interests include sword and sorcery, abstract syntax trees and compilers, Norse mythology, scheme programming, and metal music. "
+		    (a (@ (href "/gold.html"))
+		       "I sometimes practice poetry")
+		    "/fiction writing.")
+		 (br)
+		 (h3 "Some stuff I am currently doing:")
 		 (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'.")))))
+                     (li "learning (guile) scheme, and using it to design a C compiler.")
+		     (li "working on a short sword and sorcery story about a frankensteinish werewolf, and possibly, blood.")
+		     (li "learning how to profile asynchronous code using sampling for the purpose of contributing it to "
+			 (a (@ (href "https://github.com/plasma-umass/scalene"))
+			    "SCALENE")
+			 ".")))
+	    (h2 "Similar sites:")
+	    (div (@ (class "c"))
+		 (p "The web is currently being overrun with AI generated content. Even before then, search engines prioritized commercial pages over personalized sites or blogs. I have come across three solutions:")
+		 (ol
+                     (li "webrings! The footer of this site contains links to the sites of my peers'.")
+		     (li (a (@ (href "https://wiby.me"))
+			    "wiby.me")
+			 ", a unique search engine which indexes only personal blogs. The all-knowing "
+			 (a (@ (href "https://searxng.org/"))
+			    "searxng")
+			 " can be configured to index this engine while simultaneously accessing google or duckduckgo.")
+		     (li "try the "
+			 (a (@ (href "https://geminiprotocol.net/"))
+			    "gemini protocol")
+			 ", which is filled with interesting 'gemlogs'. I have started my own, named 'Porphyrion'.")))))
 
 (define contact-content
   '(article (h2 "Matrix and IRC")
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm
index 33e0b2a..88e04c0 100644
--- a/src/operationnull/theme.scm
+++ b/src/operationnull/theme.scm
@@ -38,12 +38,10 @@
                        (type "image/x-icon")
                        (href "/assets/favicon.ico")))
               (title ,(string-append title " — " (site-title site)))
-              ,(stylesheet "site")
-              )
+              ,(stylesheet "site"))
              (body
 	      (intro
-	       (div (@ (style "contain: size; justify-self: end;"))
-		    (img (@ (alt "raven") (class "no-border")
+	       (div (img (@ (alt "raven") (class "no-border")
 			    (src "/assets/raven.png"))))
 	       (div (@ (style "text-align: left;"))
 		    (h1 (span (@ (class "white")) bdunahu))