Add TODO.org.

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

diff --git a/mumi/config.scm.in b/mumi/config.scm.in
index 0cb924259ce4fecc6653e2231a7987a19f715693..7280e461eaa81aac4d8b0bfea5d9b2a2632ba236 100644 (file)
--- a/mumi/config.scm.in
+++ b/mumi/config.scm.in
@@ -1,5 +1,5 @@
 ;;; mumi -- Mediocre, uh, mail interface
-;;; Copyright © 2017 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,21 +16,57 @@
 ;;; <http://www.gnu.org/licenses/>.
 
 (define-module (mumi config)
+  #:use-module (debbugs)
   #:export (%config))
 
-(define-public %mu-database-directory
-  (string-append (getenv "HOME") "/dev/mumi/muhome/"))
-
 (define %config
-  ;; Try to find the "assets" directory relative to the executable
-  ;; first.  This is useful when using "pre-inst-env".
-  `((assets-dir  . ,(let ((maybe-dir
-                           (string-append (getcwd) "/assets")))
-                      (if (and (getenv "MUMI_UNINSTALLED")
-                               (file-exists? maybe-dir))
-                          maybe-dir
-                          ;; TODO: use @assetsdir@ variable here
-                          "@prefix@/share/mumi/assets")))
-    (host        . "localhost")
-    (port        . 1234)
-    (list        . "guix-patches@gnu.org")))
+  (let ((config
+         ;; Try to find the "assets" directory relative to the executable
+         ;; first.  This is useful when using "pre-inst-env".
+         `((assets-dir  . ,(let ((maybe-dir
+                                  (string-append (getcwd) "/assets")))
+                             (if (and (getenv "MUMI_UNINSTALLED")
+                                      (file-exists? maybe-dir))
+                                 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"))
+           (mu-executable . "@MUMIMU@")
+           (debbugs     . ,%gnu)
+           (debbugs-domain . "debbugs.gnu.org"))))
+    (lambda (key)
+      (assoc-ref config key))))