summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2020-03-12 08:26:57 +0100
committerRicardo Wurmus <rekado@elephly.net>2020-03-12 08:26:57 +0100
commit1b313d375714e88f3736dc770d8d626aab5bfce8 (patch)
tree7542d5903a023c6224d35df914cb56f19b35e845
parent2a15cba89c788123e76ca43e0ba807ba7412b927 (diff)
config: Add pkg-dir and db-dir.
* mumi/config.scm.in (%config): Add fields for pkg-dir and db-dir.
-rw-r--r--mumi/config.scm.in19
1 files changed, 19 insertions, 0 deletions
diff --git a/mumi/config.scm.in b/mumi/config.scm.in
index a7500a0..7280e46 100644
--- 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")