;;; mumi -- Mediocre, uh, mail interface ;;; Copyright © 2017 Ricardo Wurmus ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU Affero General Public License ;;; as published by the Free Software Foundation, either version 3 of ;;; the License, or (at your option) any later version. ;;; ;;; This program is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Affero General Public License for more details. ;;; ;;; You should have received a copy of the GNU Affero General Public ;;; License along with this program. If not, see ;;; . (define-module (mumi config) #: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")))