diff options
Diffstat (limited to 'tissue.scm')
| -rw-r--r-- | tissue.scm | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/tissue.scm b/tissue.scm deleted file mode 100644 index cef25ef..0000000 --- a/tissue.scm +++ /dev/null @@ -1,64 +0,0 @@ -;;; 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)) - -;; Add current directory to load path so that (doc skribilo) can be -;; found when indexing doc/forge.skb. -(add-to-load-path (dirname (current-filename))) - -(tissue-configuration - #:indexed-documents (append (map (lambda (filename) - (slot-set (read-gemtext-issue filename) - 'web-uri - (string-append "/guix-forge/" (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-how-to" - "chapter-services" - "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"))))) |
