X-Git-Url: https://git.elephly.net/?p=software%2Fmumi.git;a=blobdiff_plain;f=mumi%2Fconfig.scm.in;h=7280e461eaa81aac4d8b0bfea5d9b2a2632ba236;hp=b122f39ef0d4b4a4126438dd2a734d9004408242;hb=e116beef23f6d6b09d703600096e39f380f15591;hpb=a352c39e4ad61a76c200f1dcc7fd1cf74034141f

diff --git a/mumi/config.scm.in b/mumi/config.scm.in
index b122f39..7280e46 100644
--- a/mumi/config.scm.in
+++ b/mumi/config.scm.in
@@ -30,12 +30,42 @@
                                  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"))
+           (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)