From 7cfbc075ad88488e3e18a4443bb16cf50dd7e677 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 25 Mar 2025 19:00:45 +0000 Subject: tissue.scm: Prepend /guix-forge to web URI paths. * tissue.scm (#:indexed-documents): Prepend /guix-forge to web-uri. * doc/skribilo.scm (html-engine): Prepend /guix-forge to CSS path. * website/index.skb (Documentation): Prepend /guix-forge to manual path. --- doc/skribilo.scm | 4 ++-- tissue.scm | 2 +- website/index.skb | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/doc/skribilo.scm b/doc/skribilo.scm index 972b626..7c75d97 100644 --- a/doc/skribilo.scm +++ b/doc/skribilo.scm @@ -1,5 +1,5 @@ ;;; guix-forge --- Guix software forge meta-service -;;; Copyright © 2022–2023 Arun Isaac +;;; Copyright © 2022–2023, 2025 Arun Isaac ;;; ;;; This file is part of guix-forge. ;;; @@ -364,7 +364,7 @@ are a list of objects." ;; HTML engine customizations (let ((html-engine (find-engine 'html))) - (engine-custom-set! html-engine 'css "/style.css") + (engine-custom-set! html-engine 'css "/guix-forge/style.css") (engine-custom-set! html-engine 'charset "UTF-8") (markup-writer 'abbr html-engine #:options '(#:short #:long) diff --git a/tissue.scm b/tissue.scm index 3717bea..cef25ef 100644 --- a/tissue.scm +++ b/tissue.scm @@ -27,7 +27,7 @@ #:indexed-documents (append (map (lambda (filename) (slot-set (read-gemtext-issue filename) 'web-uri - (string-append "/" (string-remove-suffix ".gmi" filename)))) + (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) diff --git a/website/index.skb b/website/index.skb index e92fa65..aeaaafa 100644 --- a/website/index.skb +++ b/website/index.skb @@ -45,7 +45,7 @@ :line #f)) (section :title "Documentation" :number #f - (p [The ,(ref :url "/manual/dev/en/" :text "guix-forge manual") is available online.])) + (p [The ,(ref :url "/guix-forge/manual/dev/en/" :text "guix-forge manual") is available online.])) (section :title "Philosophy" :number #f (p [In order to empower ordinary users, software should not just be free (as in freedom), but also be simple and easy to deploy, especially for small-scale deployments. ,(emph [guix-forge]) is therefore minimalistic, and does not require running large database servers such as MariaDB and PostgreSQL.]) -- cgit v1.2.3