1 files changed, 51 insertions, 0 deletions

diff --git a/contrib/guix.scm b/contrib/guix.scm
new file mode 100644
index 000000000..4376d1ef5
--- /dev/null
+++ b/contrib/guix.scm
@@ -0,0 +1,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