Add script to fetch mail archives.
[software/mumi.git] / mumi.scm
1 ;;; mumi -- Mediocre, uh, mail interface
2 ;;; Copyright © 2017 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)
19 #:use-module (mu)
20 #:use-module (mumi config)
21 #:use-module (mumi queries)
22 #:use-module (ice-9 optargs)
23 #:export (init))
24
25 (define* (init #:optional (db %mu-database-directory))
26 (mu:initialize db))
27
28 (set! %load-path (cons "/home/rekado/.guix-profile/lib" %load-path))