1 ;;; guix.scm -- Guix package definition
10 (gnu packages autotools)
11 (gnu packages gettext)
14 (gnu packages texinfo)
19 (define %source-dir (dirname (dirname (current-filename))))
22 (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ)))
24 (define-public gnunet-git
28 (version (git-version (package-version gnunet) "HEAD" %git-commit))
29 (source (local-file %source-dir #:recursive? #t))
31 `(("libjpeg" ,libjpeg)
32 ,@(package-inputs gnunet)))
34 `(("autoconf" ,autoconf)
35 ("automake" ,automake)
36 ("gettext" ,gnu-gettext)
39 ("which" ,(@ (gnu packages base) which))
40 ,@(package-native-inputs gnunet)))
42 (substitute-keyword-arguments (package-arguments gnunet)
44 `(modify-phases ,phases
45 (add-after 'unpack 'make-po-directory-writable
47 (for-each make-file-writable
48 (find-files "po" "."))