Add TODO.org.

[software/mumi.git] / mumi / config.scm.in

diff --git a/mumi/config.scm.in b/mumi/config.scm.in
index 8ccfeb11e0318e91974bce4aac3e5101594d3f8f..7280e461eaa81aac4d8b0bfea5d9b2a2632ba236 100644 (file)
--- a/mumi/config.scm.in
+++ b/mumi/config.scm.in
@@ -1,5 +1,5 @@
 ;;; mumi -- Mediocre, uh, mail interface
-;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This program is free software: you can redistribute it and/or
 ;;; modify it under the terms of the GNU Affero General Public License
@@ -16,6 +16,7 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (mumi config)
+  #:use-module (debbugs)
   #:export (%config))
 
 (define %config
@@ -29,13 +30,43 @@
                                  maybe-dir
                                  ;; TODO: use @assetsdir@ variable here
                                  "@prefix@/share/mumi/assets")))
+           (pkg-dir     . ,(let ((maybe-dir
+                                  (string-append (getcwd) "/etc")))
+                             (if (and (getenv "MUMI_UNINSTALLED")
+                                      (file-exists? maybe-dir))
+                                 maybe-dir
+                                 (let ((dir "@datarootdir@/mumi"))
+                                   (if (string-prefix? "${prefix}" dir)
+                                       (string-replace dir "@prefix@"
+                                                       0 (string-length "${prefix}"))
+                                       dir)))))
+           (db-dir      . ,(let ((maybe-dir (getcwd)))
+                             (if (and (getenv "MUMI_UNINSTALLED")
+                                      (file-exists? maybe-dir))
+                                 maybe-dir
+                                 (let ((dir "@localstatedir@/mumi/db"))
+                                   (if (string-prefix? "${prefix}" dir)
+                                       (string-replace dir "@prefix@"
+                                                       0 (string-length "${prefix}"))
+                                       dir)))))
+           (mail-dir . ,(let ((maybe-dir
+                               (string-append (getcwd) "/mails")))
+                          (if (and (getenv "MUMI_UNINSTALLED")
+                                   (file-exists? maybe-dir))
+                              maybe-dir
+                              (let ((dir "@localstatedir@/mumi/mails"))
+                                (if (string-prefix? "${prefix}" dir)
+                                    (string-replace dir "@prefix@"
+                                                    0 (string-length "${prefix}"))
+                                    dir)))))
            (host        . "localhost")
            (port        . 1234)
            (submission-email-address . "guix-patches@gnu.org")
            (submission-bug-email-address . "bug-guix@gnu.org")
-           (lists       . '("guix-patches@gnu.org" "bug-guix@gnu.org"))
-           (packages    . '("guix-patches" "guix"))
-           (debbugs     . "https://debbugs.gnu.org/cgi/soap.cgi")
+           (lists       . ("guix-patches@gnu.org" "bug-guix@gnu.org"))
+           (packages    . ("guix-patches" "guix"))
+           (mu-executable . "@MUMIMU@")
+           (debbugs     . ,%gnu)
            (debbugs-domain . "debbugs.gnu.org"))))
     (lambda (key)
       (assoc-ref config key))))