[PATCH] Add opendht.

[Lukas Gradl]

Hello Guix,

Attached is a patch to add the opendht library, a dependency of the
Ring.

Thank you!
Best,
Lukas

>From 392ea1f9194d299d73af5b21ee7f76e34653556a Mon Sep 17 00:00:00 2001
From: Lukas Gradl <address@hidden>
Date: Tue, 31 May 2016 09:14:21 -0500
Subject: [PATCH] gnu: telephony: Add opendht.

* gnu/packages/telephony.scm (opendht): New variable.
---
 gnu/packages/telephony.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/gnu/packages/telephony.scm b/gnu/packages/telephony.scm
index 0f43e79..1fd9665 100644
--- a/gnu/packages/telephony.scm
+++ b/gnu/packages/telephony.scm
@@ -25,7 +25,10 @@
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages linux)
+  #:use-module (gnu packages nettle)
   #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages readline)
+  #:use-module (gnu packages serialization)
   #:use-module (gnu packages tls)
   #:use-module (guix licenses)
   #:use-module (guix packages)
@@ -247,3 +250,44 @@ and a supporting cryptographic kernel.")
       (description "LibIAX implements the Inter-Asterisk-Protocol for relaying
 Voice-over-IP (VoIP) communications.")
       (license lgpl2.0))))
+
+(define-public opendht
+  (let ((commit "13f8c13ac4ebb3b43474d91ca48b42a1019083f4"))
+    ;; This is the commit used by the Ring Project.
+    (package
+      (name "opendht")
+      (version (string-append "0.0.0-1." (string-take commit 7)))
+      (source
+       (origin
+         (method url-fetch)
+         (uri
+          (string-append
+           "https://github.com/savoirfairelinux/opendht/archive/";
+           commit ".tar.gz"))
+         (file-name (string-append name "-" version ".tar.gz"))
+         (sha256
+          (base32
+           "12yn2cladxph8n87nkm7xwfn25kc8rjr2wabq84ik4lhpd82vdn4"))))
+      (build-system gnu-build-system)
+      (inputs
+       `(("gnutls" ,gnutls)
+         ("nettle" ,nettle)
+         ("msgpack" ,msgpack)
+         ("readline" ,readline)))
+      (native-inputs
+       `(("autoconf" ,autoconf)
+         ("pkg-config" ,pkg-config)
+         ("automake" ,automake)
+         ("libtool" ,libtool)))
+      (arguments
+       `(#:configure-flags '("--disable-tools" "--disable-python")
+         #:phases (modify-phases %standard-phases
+                    (add-before 'configure 'autoconf
+                      (lambda _
+                        (zero? (system* "autoreconf" "-vfi")))))))
+      (home-page "https://github.com/savoirfairelinux/opendht/";)
+      (synopsis "Distributed Hash Table (DHT) library")
+      (description "OpenDHT is a Distributed Hash Table (DHT) library.  It may
+be used to manage peer-to-peer network connections as needed for real time
+communication.")
+      (license gpl3))))
-- 
2.7.4