summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/operationnull/pages.scm83
-rw-r--r--src/operationnull/site.scm3
-rw-r--r--src/operationnull/theme.scm77
3 files changed, 86 insertions, 77 deletions
diff --git a/src/operationnull/pages.scm b/src/operationnull/pages.scm
index d317570..9bf9d5a 100644
--- a/src/operationnull/pages.scm
+++ b/src/operationnull/pages.scm
@@ -6,48 +6,63 @@
(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 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'."))))
+ '(article (h2 "Hello!")
+ (div (@ (class "c"))
+ (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 "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 "Contact")
- (p "I am reachable by email:")
- (ul (@ (type "bullet"))
- (li (b "email: ") "bdunahu @ this domain"))
- (ul (p (@ (style "font-size: 80%;"))
- "If you know how/want to send encrypted email:")
- (ul (@ (style "font-size: 80%;"))
- (code "curl -sL https://operationnull.com/assets/bdunahu.pub | gpg --import")
- (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"))))
+ '(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 +98,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/site.scm b/src/operationnull/site.scm
index c6cfe31..1fad264 100644
--- a/src/operationnull/site.scm
+++ b/src/operationnull/site.scm
@@ -11,9 +11,6 @@
#:export (main-site))
-(define %blog-collection
- `(("Infrequently Updated Notes" "/posts/index.html" ,posts/reverse-chronological)))
-
(define main-site
(site #:title "operationnull"
#:domain "operationnull.com"
diff --git a/src/operationnull/theme.scm b/src/operationnull/theme.scm
index db5a157..88e04c0 100644
--- a/src/operationnull/theme.scm
+++ b/src/operationnull/theme.scm
@@ -38,50 +38,47 @@
(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 "/atom.xml")))
- ,(stylesheet "site")
- )
+ ,(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 © 2024 bdunahu"
- (br)
- "Site content available under the " ,%cc-by-sa-link " license "
- (a (@ (href "https://git.operationnull.com/operationnull.git/"))
+ (intro
+ (div (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"))
+ ,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"))
+ "."
+ (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"))
+ " and "
+ (a (@ (href "https://gnu.org/software/guile"))
"Guile Scheme")
- "."))))
+ "."))))
#:post-template
(lambda (post)
`((article
generated by cgit v1.2.3 (git 2.39.1) at 2025-12-15 04:06:57 +0000