1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
(define-module (content pages)
#:use-module (haunt page)
#:use-module (haunt html)
#:use-module (builder base)
#:use-module (builder components)
#:export (index-page))
(define (index-page)
(lambda (site posts)
(make-page "index.html"
(contained-template site
(header "Hi, Eltrac here 👋"
`(p "I write software, fictions and non-fictions.")
"/static/avatar.jpg")
(prose
`(p "Member of " ,(badge "Codeberg e.V." "/static/codeberg.svg"
"https://codeberg.org/Codeberg-e.V./") ", "
"I maintain and contribute to FOSS projects, mostly in Go, Clojure, and JavaScript."))
(small-prose
`(p "Recently, I've been developing weepinbell, a Webmention receiver.")
(linkbox "weepinbell" "A Webmention receiver written in Clojure."
"https://codeberg.org/eltrac/weepinbell" "/static/weepinbell.png"))
(prose
`(p "Former moderator of "
,(badge "Backrooms Wiki CN" "/static/brcn.png"
"https://backrooms-wiki-cn.wikidot.com/") ", "
"I wrote some " ,(elink "https://backrooms-wiki-cn.wikidot.com/author:eltrac" "fictions") " there in Chinese. "
"Now I write some " ,(elink "https://www.geedea.pro/fiction/" "short stories") " on my own blog."))
(prose
`(p "Indie web blogger, I write in both " ,(elink "https://geedea.pro/" "Chinese") " and " ,(elink "https://geedea.pro/en/" "English") ", "
"about computer science, software freedom, philosophy, literature and my life. My blog is named " (em (@ (style "font-style: italic")) "Geek Death Project") ". "
"Consider this a monologue of a committed observer."))
(small-prose
`(p "Check out some of my " ,(elink "https://slashpages.net/" "slash pages") " :3")
(linkline
(slash "/elsewhere")
(slash "/uses")
(slash "/donates")))
`(footer (@ (style "text-align: right; line-height: 1.5"))
(p "This page is still under construction. 🚧")
(p "Built using " ,(elink "https://dthompson.dev/projects/haunt.html" "haunt") ", "
"with " (em (@ (style "font-style: italic")) "Lisp") " magic. 👻")))
sxml->html)))
|
