kaka.farm

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs

commit 9c3d36756342a128f10caeca59809d46b270caff
parent 06cbcccbe7be78b9a0ce669f982aad557ceba85b
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Fri,  5 Jan 2024 02:01:18 +0200

Add an eerie CSS glow an e-cat CSS wizard gave me, add entr script, add site header, and add some git forge accounts.

Diffstat:
Massets/index.css | 19++++++++++++++-----
Aentr | 3+++
Mhaunt.scm | 16+++++++++++-----
Mkakafarm/index.scm | 29++++++++++++++++-------------
4 files changed, 44 insertions(+), 23 deletions(-)

diff --git a/assets/index.css b/assets/index.css @@ -1,4 +1,5 @@ h1 { text-align: center; } + body { background: #222; color: wheat; @@ -9,17 +10,25 @@ body { padding: 0; */ } + div { width: 920px; max-width: calc(100% - 20px); margin: auto; } + #topmostdiv { - box-shadow: 0px -20px 50px -20px #fff; - margin: 0 auto; - min-height: 100vh; - padding: 20px; - background-color: #222; + box-shadow: 0px -20px 50px -20px #fff; + margin: 0 auto; + min-height: 100vh; + padding: 20px; + background-color: #222; } + ul { list-style: none; } ul>li:before { content: "\1F4A9"; } + a:link { color: springgreen; text-decoration: none; } a:visited { color: cadetblue; text-decoration: none; } a:hover { color: salmon; text-decoration: underline; } a:active { color: red; text-decoration: underline; } + +a img { + filter: drop-shadow(1px 1px 6px rgba(255, 255, 255, 0.5)); +} diff --git a/entr b/entr @@ -0,0 +1,3 @@ +#!/bin/sh + +find haunt.scm kakafarm posts assets images | guix shell entr -- entr -s 'haunt build' diff --git a/haunt.scm b/haunt.scm @@ -28,6 +28,10 @@ (define site-title-prefix "💩 Kaka Farm! 💩") +(define site-header + `(h1 (img (@ (src "/images/logo.png"))) + "Kaka Farm!")) + (define haunt-footer '(p "Built with " (a (@ (href "https://dthompson.us/projects/haunt.html")) @@ -58,11 +62,11 @@ (let ((five-last-posts (take (posts/reverse-chronological posts) (min (length posts) 5)))) - `(div (h1 "Kakafarm's Haunt") - (p (a (@ (href "/haunt/posts/")) - "posts")) - (p (a (@ (href "/haunt/feed.xml")) - "atom feed")) + `(div (h2 "Kakafarm's Haunt") + (ul (li (a (@ (href "/haunt/posts/")) + "posts")) + (li (a (@ (href "/haunt/feed.xml")) + "atom feed"))) #; ((h2 "Latest posts:") (div (@ (class "latest-posts")) @@ -110,6 +114,7 @@ " -- " a-page-title-string))) (body (div (@ (id "topmostdiv")) + ,site-header ,an-sxml-tree ,haunt-footer ,creative-commons-copyright-notice))))) @@ -126,6 +131,7 @@ (href "/assets/index.css"))) (title ,site-title-prefix)) (body (div (@ (id "topmostdiv")) + ,site-header ,an-sxml-tree ,haunt-footer ,creative-commons-copyright-notice))))) diff --git a/kakafarm/index.scm b/kakafarm/index.scm @@ -21,19 +21,22 @@ Haunt). A very old bunch of static site generator notes." (h2 "Git repository repositories") - (p (ul (li (a (@ (href "/stagit/")) - "My copies of some of my git repositories") - "were generated by the static site generator" - (a (@ (href "https://codemadness.org/stagit.html")) - "Stagit") - " (" - (a (@ (href "https://codemadness.org/git/stagit/file/README.html")) - "README") - ").") - (li (a (@ (href "//sr.ht/~kakafarm/")) "Sourcehut")) - (li (a (@ (href "//gitgud.io/yuvallanger/")) "GitGud profile")) - (li (a (@ (href "//gitlab.com/yuvallanger/")) "GitLab profile")) - (li (a (@ (href "//github.com/yuvallanger/")) "GitHub profile")))) + (ul (li (a (@ (href "/stagit/")) + "My copies of some of my git repositories") + " were generated by the static site generator" + (a (@ (href "https://codemadness.org/stagit.html")) + " Stagit") + " (" + (a (@ (href "https://codemadness.org/git/stagit/file/README.html")) + "README") + ").") + (li (a (@ (href "//codeberg.org/kakafarm/")) "Codeberg account")) + (li (a (@ (href "//sr.ht/~kakafarm/")) "Sourcehut account")) + (li (a (@ (href "//gitgud.io/yuvallanger/")) "GitGud account")) + (li (a (@ (href "//gitlab.com/yuvallanger/")) "GitLab account")) + (li (a (@ (href "//gitlab.com/yuvallangerontheroad/")) "Also a GitLab account")) + (li (a (@ (href "//github.com/yuvallanger/")) "GitHub account")) + (li (a (@ (href "//github.com/yuvallangerontheroad/")) "Also a GitHub account"))) (h2 "org-roam notes") (p