mumi/config.scm.in

   1 ;;; mumi -- Mediocre, uh, mail interface
   2 ;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
   3 ;;;
   4 ;;; This program is free software: you can redistribute it and/or
   5 ;;; modify it under the terms of the GNU Affero General Public License
   6 ;;; as published by the Free Software Foundation, either version 3 of
   7 ;;; the License, or (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 ;;; Affero General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU Affero General Public
  15 ;;; License along with this program.  If not, see
  16 ;;; <http://www.gnu.org/licenses/>.
  17
  18 (define-module (mumi config)
  19   #:export (%config))
  20
  21 (define %config
  22   (let ((config
  23          ;; Try to find the "assets" directory relative to the executable
  24          ;; first.  This is useful when using "pre-inst-env".
  25          `((assets-dir  . ,(let ((maybe-dir
  26                                   (string-append (getcwd) "/assets")))
  27                              (if (and (getenv "MUMI_UNINSTALLED")
  28                                       (file-exists? maybe-dir))
  29                                  maybe-dir
  30                                  ;; TODO: use @assetsdir@ variable here
  31                                  "@prefix@/share/mumi/assets")))
  32            (host        . "localhost")
  33            (port        . 1234)
  34            (submission-email-address . "guix-patches@gnu.org")
  35            (submission-bug-email-address . "bug-guix@gnu.org")
  36            (lists       . '("guix-patches@gnu.org" "bug-guix@gnu.org"))
  37            (packages    . '("guix-patches" "guix"))
  38            (debbugs     . "https://debbugs.gnu.org/cgi/soap.cgi")
  39            (debbugs-domain . "debbugs.gnu.org"))))
  40     (lambda (key)
  41       (assoc-ref config key))))