summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--content/assets/site.css12
-rw-r--r--content/posts/hello-world.md7
-rw-r--r--src/operationnull/pages.scm30
-rw-r--r--src/operationnull/site.scm14
-rw-r--r--src/operationnull/theme.scm17
5 files changed, 37 insertions, 43 deletions
diff --git a/content/assets/site.css b/content/assets/site.css
index 0150282..accc03f 100644
--- a/content/assets/site.css
+++ b/content/assets/site.css
@@ -84,7 +84,8 @@ a:visited {
}
body pre {
- background: white;
+ background: #111;
+ border: 2px solid #333;
}
body pre.src {
@@ -93,8 +94,7 @@ body pre.src {
}
body code {
- background: #222;
- border: 1px solid #333;
+ background: #111;
padding: 0px 4px;
color: #ccc;
overflow-x: auto;
@@ -102,7 +102,7 @@ body code {
}
body li {
- margin-bottom: 1em;
+ padding-bottom: 0.1em;
}
body img {
@@ -243,9 +243,9 @@ footer {
}
.tags {
- margin-top: -1rem;
+ margin-top: -1.4rem;
color: #6a6a6a;
- font-size: 80%;
+ font-size: 70%;
}
.tags ul {
diff --git a/content/posts/hello-world.md b/content/posts/hello-world.md
deleted file mode 100644
index 7dfcb0e..0000000
--- a/content/posts/hello-world.md
+++ /dev/null
@@ -1,7 +0,0 @@
-title: Hello world!
-date: 2024-07-14 17:00
-tags: hello
-summary: again...
----
-
-again...
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
generated by cgit v1.2.3 (git 2.39.1) at 2025-05-12 12:21:06 +0000