Handle nested mime entries recursively.
[software/mumi.git] / guix.scm
1 ;;; mumi - Mediocre, uh, mail interface
2 ;;; Copyright © 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
3 ;;;
4 ;;; This file is part of mumi.
5 ;;;
6 ;;; mumi is free software; you can redistribute it and/or modify it
7 ;;; under the terms of the GNU General Public License as published by
8 ;;; the Free Software Foundation; either version 3 of the License, or
9 ;;; (at your option) any later version.
10 ;;;
11 ;;; mumi is distributed in the hope that it will be useful, but
12 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
13 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ;;; General Public License for more details.
15 ;;;
16 ;;; You should have received a copy of the GNU General Public License
17 ;;; along with mumi. If not, see <http://www.gnu.org/licenses/>.
18
19 ;;; Run the following command to enter a development environment for
20 ;;; mumi:
21 ;;;
22 ;;; $ guix environment -l guix.scm
23
24 (use-modules ((guix licenses) #:prefix license:)
25 (guix packages)
26 (guix download)
27 (guix git-download)
28 (guix utils)
29 (guix build-system gnu)
30 (gnu packages)
31 (gnu packages autotools)
32 (gnu packages guile)
33 (gnu packages pkg-config)
34 (gnu packages texinfo)
35 (srfi srfi-1))
36
37 (define-public guile-debbugs-next
38 (let ((commit "75a331d561c8b6f8efcf16216dab961c17759efe")
39 (revision "1"))
40 (package
41 (name "guile-debbugs")
42 (version (git-version "0.0.3" revision commit))
43 (source (origin
44 (method git-fetch)
45 (uri (git-reference
46 (url "https://git.savannah.gnu.org/git/guile-debbugs.git")
47 (commit commit)))
48 (file-name (git-file-name name version))
49 (sha256
50 (base32
51 "0br3mgbw41bpc9x57jlghl0i8dz9nl63r4wzs5l47aqszf84870y"))))
52 (build-system gnu-build-system)
53 (native-inputs
54 `(("pkg-config" ,pkg-config)
55 ("autoconf" ,autoconf)
56 ("automake" ,automake)
57 ("texinfo" ,texinfo)))
58 (inputs
59 `(("guile" ,guile-2.2.4)
60 ("guile-email" ,guile-email)))
61 (home-page "https://www.gnu.org/software/guile-debbugs")
62 (synopsis "Guile bindings for the Debbugs bug tracker")
63 (description "This package provides a Guile library to communicate with a
64 Debbugs bug tracker's SOAP service.")
65 (license license:gpl3+))))
66
67 (define-public guile-email
68 (let ((commit "fa52eac55e5946db89621a6c583d2aa357864dee")
69 (revision "1"))
70 (package
71 (name "guile-email")
72 (version (git-version "0.1.0" revision commit))
73 (source
74 (origin
75 (method git-fetch)
76 (uri (git-reference
77 (url "https://git.systemreboot.net/guile-email")
78 (commit commit)))
79 (file-name (git-file-name name version))
80 (sha256
81 (base32
82 "1037mbz7qd9bzaqp8ysyhnl9ipd97fmj3b9jr8qfzx9179vvsj63"))))
83 (build-system gnu-build-system)
84 (native-inputs
85 `(("pkg-config" ,pkg-config)
86 ("autoconf" ,autoconf)
87 ("automake" ,automake)))
88 (inputs
89 `(("guile" ,guile-2.2.4)))
90 (home-page "https://git.systemreboot.net/guile-email")
91 (synopsis "Guile email parser")
92 (description "Guile email parser")
93 (license license:agpl3+))))
94
95 (package
96 (name "mumi")
97 (version "0.0.0")
98 (source #f)
99 (build-system gnu-build-system)
100 (inputs
101 `(("guile-debbugs" ,guile-debbugs-next)
102 ("guile-email" ,guile-email)
103 ("guile-json" ,guile-json)
104 ("guile-fibers" ,guile-fibers)
105 ("guile-syntax-highlight" ,guile-syntax-highlight)
106 ("guile" ,guile-2.2.4)))
107 (native-inputs
108 `(("autoconf" ,autoconf)
109 ("automake" ,automake)
110 ("pkg-config" ,pkg-config)))
111 (synopsis "TODO")
112 (description "TODO")
113 (home-page "TODO")
114 (license license:gpl3+))