1;;; Copyright (C) 2017 ng0 <ng0@infotropique.org>
2;;;
3;;; This program is free software: you can redistribute it and/or modify it under
4;;; the terms of the GNU General Public License as published by the Free Software
5;;; Foundation, either version 2 of the License, or (at your option) any later
6;;; version.
7;;;
8;;; This program is distributed in the hope that it will be useful, but WITHOUT
9;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
10;;; FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
11;;; details.
12;;;
13;;; You should have received a copy of the GNU General Public License along with
14;;; this program.  If not, see <http://www.gnu.org/licenses/>.
15;;;
16;;; How to use this file.
17;;; Building neomutt from within the git checkout, skipping the hash check:
18;;; cd contrib
19;;; guix build -f guix-neomutt.scm
20
21(use-modules
22 (ice-9 popen)
23 (ice-9 match)
24 (ice-9 rdelim)
25 (guix packages)
26 (guix build-system gnu)
27 (guix gexp)
28 ((guix build utils) #:select (with-directory-excursion))
29 (gnu packages)
30 (gnu packages base)
31 (gnu packages autotools)
32 (gnu packages mail)
33 (gnu packages gettext))
34
35(define %source-dir (canonicalize-path ".."))
36
37(define-public neomutt-git
38  (package
39    (inherit neomutt)
40    (name "neomutt-git")
41    (version (string-append (package-version neomutt) "-git"))
42    (source
43     (local-file %source-dir
44                 #:recursive? #t))
45    (native-inputs
46      `(("gettext-minimal" ,gettext-minimal)
47        ,@(package-native-inputs neomutt)))))
48
49neomutt-git
50