diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2017-11-12 23:11:13 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2017-11-12 23:11:13 +0100 |
| commit | cbe35b1061b8cfb4f9e1d54325f7c94ad068e41c (patch) | |
| tree | e8c1be367ec663de219bc8bed5932e1112ef263d | |
| parent | 8d6189b4bc927cd02ac9c1d2a91384d27c8e1b97 (diff) | |
debbugs: Add config.
* debbugs/config.scm: New file.
* Makefile.am (SOURCES): Add it.
| -rw-r--r-- | Makefile.am | 7 | ||||
| -rw-r--r-- | debbugs/config.scm | 26 |
2 files changed, 30 insertions, 3 deletions
diff --git a/Makefile.am b/Makefile.am index 2257b28..75c5f19 100644 --- a/Makefile.am +++ b/Makefile.am @@ -19,9 +19,10 @@ include guile.am moddir=$(prefix)/share/guile/site/@GUILE_EFFECTIVE_VERSION@ godir=$(libdir)/guile/@GUILE_EFFECTIVE_VERSION@/ccache -SOURCES = \ - debbugs/operations.scm \ - debbugs/soap.scm \ +SOURCES = \ + debbugs/config.scm \ + debbugs/operations.scm \ + debbugs/soap.scm \ debbugs/bug.scm TEST_EXTENSIONS = .scm diff --git a/debbugs/config.scm b/debbugs/config.scm new file mode 100644 index 0000000..96f9624 --- /dev/null +++ b/debbugs/config.scm @@ -0,0 +1,26 @@ +;;; Guile-Debbugs --- Guile bindings for Debbugs +;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net> +;;; +;;; This file is part of Guile-Debbugs. +;;; +;;; Guile-Debbugs is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU General Public License as +;;; published by the Free Software Foundation; either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; Guile-Debbugs 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 +;;; General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with Guile-Debbugs. If not, see <http://www.gnu.org/licenses/>. + +(define-module (debbugs config) + #:export (config)) + +(define %config + `((debug . #f))) + +(define (config key) + (assoc-ref %config key)) |