afiw/site
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial commit

Browse source
This commit is contained in:
cælōrum spectātrīx 2026-02-11 13:36:33 +01:00
commit f956f998a2
7 changed files with 173 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

88
haunt.scm Normal file
View file

@ -0,0 +1,88 @@
(use-modules (haunt asset)
(haunt builder blog)
(haunt builder atom)
(haunt builder assets)
(haunt builder rss)
(haunt builder flat-pages)
(haunt post)
(haunt publisher rsync)
(haunt reader)
(haunt site)
(srfi srfi-19))
(define (my-layout site title sxml)
`((doctype HTML)
(html
(@ (lang "en"))
(head
(meta (@ (http-equiv "Content-Type") (content "text/html; charset=utf-8")))
(meta (@ (http-equiv "Content-Security-Policy") (content "default-src 'self';")))
(meta (@ (name "viewport") (content "width=device-width, initial-scale=1.0")))
(meta (@ (name "description") (content ,(site-title site))))
(meta (@ (name "color-scheme") (content "light dark")))
(link (@ (href "/~afiw/assets/style.css") (rel "stylesheet") (type "text/css")))
(link (@ (href "/~afiw/assets/favicon.ico") (rel "icon") (type "image/x-icon")))
(link (@ (href "/~afiw/assets/favicon.png") (rel "icon") (type "image/png")))
(link (@ (href "/~afiw/assets/favicon.gif") (rel "icon") (type "image/gif")))
(link (@ (href "/~afiw/feed.xml") (rel "alternate") (type "application/atom+xml")))
(link (@ (href "/~afiw/rss-feed.xml") (rel "alternate") (type "application/rss+xml")))
(title ,(format #f "~a – afiw" title)))
(body
(header
(strong "afiw's blog")
(nav
(ul
(li (a (@ (href "/~afiw")) "about"))
(li (a (@ (href "/~afiw/contact")) "contact"))
(li (a (@ (href "/~afiw/posts")) "posts"))
(li (a (@ (href "/~afiw/projects")) "projects"))
(li (a (@ (href "/")) "tilde")))))
(main
(article
(h1 ,title)
,sxml))
(footer
(small
"made with " (a (@ (href "https://dthompson.us/projects/haunt.html")) "haunt") " • "
"copyleft " ,(integer->char #x1f12f) " afiw 2026, all rights reversed • cc-by-sa-4.0 • "
(a (@ (href "https://git.linuxposting.xyz/afiw/webbedsite")) "source")))))))
(define my-theme
(theme #:name "em's theme"
#:layout my-layout
#:post-template (lambda (post)
`((h3 ,(date->string (post-date post) "~1"))
,(post-sxml post)))
#:collection-template (lambda (site title posts prefix)
`((ul
,@(map (lambda (post)
`(li
(a (@ (href ,(string-append "/~afiw/"
(or prefix "")
"/"
(site-post-slug site post)
".html")))
,(post-ref post 'title)
" – "
,(date->string (post-date post) "~1"))))
posts))))))
(site #:title "afiw's blog"
#:domain "tilde.linuxposting.xyz"
#:default-metadata
'((author . "afiw")
(email . "afiw@linuxposting.xyz"))
#:readers (list sxml-reader)
#:build-directory "out"
#:builders (list (blog #:prefix "posts"
#:theme my-theme
#:collections `(("posts" "posts/index.html"
,posts/reverse-chronological)))
(atom-feed)
(atom-feeds-by-tag)
(rss-feed)
(static-directory "assets")
(static-directory "dist")
(flat-pages "static" #:template my-layout))
#:publishers (list (rsync-publisher #:name 'tilde
#:destination "afiw@tilde.linuxposting.xyz:public")))