Add TODO.org.

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

diff --git a/mumi/config.scm.in b/mumi/config.scm.in
index 4a0b69dc0c48a8ea919e4fb725b0a72889fc0a88..7280e461eaa81aac4d8b0bfea5d9b2a2632ba236 100644 (file)
--- a/mumi/config.scm.in
+++ b/mumi/config.scm.in
@@ -30,6 +30,25 @@
                                  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")
@@ -44,8 +63,9 @@
            (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)