1 files changed, 58 insertions, 0 deletions
diff --git a/tissue.scm b/tissue.scm
new file mode 100644
index 0000000..8cbfa9a
--- /dev/null
+++ b/tissue.scm
@@ -0,0 +1,58 @@
+;;; guix-forge --- Guix software forge meta-service
+;;; Copyright © 2023 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of guix-forge.
+;;;
+;;; guix-forge is free software: you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published
+;;; by the Free Software Foundation, either version 3 of the License,
+;;; or (at your option) any later version.
+;;;
+;;; guix-forge is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with guix-forge.  If not, see
+;;; <https://www.gnu.org/licenses/>.
+
+(use-modules (tissue skribilo))
+
+(tissue-configuration
+ #: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 (identifier)
+                                    (slot-set (document-fragment "doc/forge.skb" identifier)
+                                              'web-uri
+                                              (string-append "/manual/dev/en/#"
+                                                             identifier)))
+                                  (list "chapter-introduction"
+                                        "chapter-tutorial"
+                                        "chapter-reference"))
+                             (map (lambda (commit)
+                                    (slot-set commit
+                                              'web-uri
+                                              (string-append "https://git.systemreboot.net/guix-forge/commit/?id="
+                                                             (commit-hash commit))))
+                                  (commits-in-current-repository)))
+ #:web-files (cons* (file "index.html"
+                          (skribe-exporter "website/index.skb"))
+                    (file "style.css"
+                          (copier "website/style.css"))
+                    (file "manual/dev/en/index.html"
+                          (skribe-exporter "doc/forge.skb"))
+                    (append (map (lambda (font-file)
+                                   (file (string-append "fonts/" font-file)
+                                         (copier (string-append (getenv "GUIX_ENVIRONMENT")
+                                                                "/share/fonts/web/" font-file))))
+                                 (list "charter_regular.woff2"
+                                       "FiraCode-Regular.woff2"
+                                       "FiraCode-SemiBold.woff2"))
+                            (map (lambda (filename)
+                                   (file (replace-extension filename "html")
+                                         (gemtext-exporter filename)))
+                                 (gemtext-files-in-directory "issues")))))