blob: f069c1e2701e7556b27e7ecb2f6013e66d29e215 (
plain)
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
|
(tissue-configuration
#:project "tissue"
#:indexed-documents (append (map (lambda (filename)
(slot-set (read-gemtext-issue filename)
'web-uri
(string-append "/" (string-remove-suffix ".gmi" filename))))
(gemtext-files-in-directory "issues"))
(map (lambda (commit)
(slot-set commit
'web-uri
(string-append "https://git.systemreboot.net/tissue/commit/?id="
(commit-hash commit))))
(commits-in-current-repository)))
#:web-css "/style.css"
#:web-files (cons* (file "index.html"
(skribe-exporter "website/index.skb"))
(file "style.css"
(copier "website/style.css"))
(append (map (lambda (font-file)
(file (string-append "fonts/" font-file)
(copier (string-append (getenv "GUIX_ENVIRONMENT")
"/share/fonts/web/" font-file))))
(list "IBMPlexSans-Regular-Latin1.woff2"
"IBMPlexSans-Bold-Latin1.woff2"
"IBMPlexMono-Regular-Latin1.woff2"
"IBMPlexMono-Bold-Latin1.woff2"))
(filter-map (lambda (filename)
(file (replace-extension filename "html")
(gemtext-exporter filename)))
(gemtext-files-in-directory "issues")))))
|
