tissue.scm


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

(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-files (cons (file "index.html"
                         (skribe-exporter "website/index.skb"))
                   (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")))))