From 5ba25dd428b82047d2f91e71268afe0cc5444096 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sat, 4 Feb 2023 15:36:37 +0000 Subject: tissue.scm: Use tissue. We start using tissue as our issue tracker and for building our website. * tissue.scm: New file. * .gitignore: Add .tissue. Remove doc/*.go, doc/*.html, website/fonts, website/index.html and website/manual. * Makefile, build-aux/build-home-page.el: Delete files. * manifest.scm: Import (forge tissue). Do not import (gnu packages guile). (manifest): Add tissue. Remove guile-3.0 and skribilo. --- tissue.scm | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 58 insertions(+) create mode 100644 tissue.scm (limited to 'tissue.scm') 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 +;;; +;;; 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 +;;; . + +(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"))))) -- cgit v1.2.3