blob: 4376d1ef59a84e88a714a3e1b3c10993718dfd42 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;;; guix.scm -- Guix package definition
(use-modules
(guix git-download)
(guix download)
(guix packages)
(guix utils)
(guix gexp)
(gnu packages)
(gnu packages autotools)
(gnu packages gettext)
(gnu packages gnunet)
(gnu packages image)
(gnu packages texinfo)
(srfi srfi-1)
(ice-9 popen)
(ice-9 rdelim))
(define %source-dir (dirname (dirname (current-filename))))
(define %git-commit
(read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ)))
(define-public gnunet-git
(package
(inherit gnunet)
(name "gnunet")
(version (git-version (package-version gnunet) "HEAD" %git-commit))
(source (local-file %source-dir #:recursive? #t))
(inputs
`(("libjpeg" ,libjpeg)
,@(package-inputs gnunet)))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("gettext" ,gnu-gettext)
("libtool" ,libtool)
("texinfo" ,texinfo)
("which" ,(@ (gnu packages base) which))
,@(package-native-inputs gnunet)))
(arguments
(substitute-keyword-arguments (package-arguments gnunet)
((#:phases phases)
`(modify-phases ,phases
(add-after 'unpack 'make-po-directory-writable
(lambda _
(for-each make-file-writable
(find-files "po" "."))
#t))))))))
gnunet-git
|