GNU bug report logs - #70922
[PATCH] Look at DEBBUGS_DATA for Debbugs data.

Previous Next

To reply to this bug, email your comments to 70922 AT debbugs.gnu.org.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Felix Lechner <felix.lechner <at> lease-up.com>
To: bug-mumi <at> gnu.org
Cc: Felix Lechner <felix.lechner <at> lease-up.com>
Subject: [PATCH] Look at DEBBUGS_DATA for Debbugs data.
Date: Mon, 13 May 2024 12:54:44 -0700

Maintaining symbolic links to Debbugs data is not reasonable burden
for co-existing installations of various versions of Debbugs and Mumi.

This change further allows the location to be configured in an
operating-system declaration that syncronizes the data from
debbugs.gnu.org via a Shepherd timer.  A patch with a 'configuration'
record is available but has not been submitted.
---
 mumi/config.scm.in | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/mumi/config.scm.in b/mumi/config.scm.in
index eda815b..cf916fb 100644
--- a/mumi/config.scm.in
+++ b/mumi/config.scm.in
@@ -62,16 +62,17 @@
                                         (string-replace dir "@prefix@"
                                                         0 (string-length "${prefix}"))
                                         dir))))) 
-           (data-dir . ,(let ((maybe-dir
-                               (string-append (getcwd) "/data")))
-                          (if (and (getenv "MUMI_UNINSTALLED")
-                                   (file-exists? maybe-dir))
-                              maybe-dir
-                              (let ((dir "@localstatedir@/mumi/data"))
-                                (if (string-prefix? "${prefix}" dir)
-                                    (string-replace dir "@prefix@"
-                                                    0 (string-length "${prefix}"))
-                                    dir)))))
+           (data-dir . ,(or (getenv "DEBBUGS_DATA")
+                            (let ((maybe-dir
+                                   (string-append (getcwd) "/data")))
+                              (if (and (getenv "MUMI_UNINSTALLED")
+                                       (file-exists? maybe-dir))
+                                  maybe-dir
+                                  (let ((dir "@localstatedir@/mumi/data"))
+                                    (if (string-prefix? "${prefix}" dir)
+                                        (string-replace dir "@prefix@"
+                                                        0 (string-length "${prefix}"))
+                                        dir))))))
            (host        . "localhost")
            (port        . 1234)
            (cache-ttl   . 120)

base-commit: 99416ed5c7d950eaf54d52023a2efd975bccac92
-- 
2.41.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.