From 4e1f3d79f03654073aecc9efffbc6de31aefa1cc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 5 Jul 2025 23:48:46 +0200
Subject: [PATCH] =?UTF-8?q?doc:=20Really=20honor=20=E2=80=98GUIX=5FWEB=5FS?=
 =?UTF-8?q?ITE=5FURL=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This is useful when testing changes locally, so that CSS links point to
the right place.

* doc/build.scm (%web-site-url): Default to /.
(%manual-css-url): Honor ‘%web-site-url’.

Change-Id: I8d885eba0fb8560dd7da7f21629c716a06c16b1f
---
 doc/build.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/doc/build.scm b/doc/build.scm
index 56d16b6ee6..a745b4c25b 100644
--- a/doc/build.scm
+++ b/doc/build.scm
@@ -184,11 +184,12 @@ as well as images, OS examples, and translations."
 (define %web-site-url
   ;; URL of the web site home page.
   (or (getenv "GUIX_WEB_SITE_URL")
-      "/software/guix/"))
+      "/"))
 
 (define %manual-css-url
   ;; URL of the main CSS file.
-  "/themes/initial/css/manual.css")
+  (in-vicinity %web-site-url
+               "themes/initial/css/manual.css"))
 
 (define %makeinfo-html-options
   ;; Options passed to 'makeinfo --html'.