[bug#74407] [PATCH v2] gnu: Add spritely-libp2p-daemon.

[Giacomo Leidi via Guix-patches via <guix-patches@gnu.org>]

* gnu/packages/ipfs.scm (spritely-libp2p-daemon): New variable.

Change-Id: Ic47e24bc53cb8da89be2c064569feae77764a03b
---
 gnu/packages/ipfs.scm | 54 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)

diff --git a/gnu/packages/ipfs.scm b/gnu/packages/ipfs.scm
index d5849a3f18..8025e99d19 100644
--- a/gnu/packages/ipfs.scm
+++ b/gnu/packages/ipfs.scm
@@ -6,6 +6,7 @@
 ;;; Copyright © 2022 Maxime Devos <maximedevos@telenet.be>
 ;;; Copyright © 2023, 2024 Artyom V. Poptsov <poptsov.artyom@gmail.com>
 ;;; Copyright © 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
+;;; Copyright © 2024 Giacomo Leidi <goodoldpaul@autistici.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -1217,3 +1218,56 @@ (define-public kubo
 
 (define-public go-ipfs
   (deprecated-package "go-ipfs" kubo))
+
+(define-public spritely-libp2p-daemon
+  (let ((version "0.1")
+        (commit "ae96196af1b68a5e23e58fa4afa818878b252a3d")
+        (revision "0"))
+    (package
+      (name "spritely-libp2p-daemon")
+      (version (git-version version revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://gitlab.com/spritely/go-libp2p-daemon.git")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "1g4szjm2rxvrgcir9gdn81bsnybvb7hc3dwymc3yarslwsr1h3qf"))))
+      (build-system go-build-system)
+      (arguments
+       (list
+        #:go go-1.21
+        #:import-path "gitlab.com/spritely/spritely-libp2p-daemon"
+        #:tests? #f
+        #:install-source? #f
+        #:phases
+        #~(modify-phases %standard-phases
+            ;; libp2p-asn-util uses go://embed to embed a file, but Go
+            ;; does *not* accept files that are symlinks.  Guix sets up
+            ;; all dependency files as symlinks, though.  To work around
+            ;; this, we delete the symlink and copy over the file to be
+            ;; embedded.
+            (add-after 'unpack 'fix-libp2p-asn-util-embed
+              (lambda _
+                (let ((file-name
+                       (string-append
+                        "src/github.com/libp2p/go-libp2p-asn-util/"
+                        "sorted-network-list.bin")))
+                  (delete-file file-name)
+                  (copy-file
+                   (string-append #$go-github-com-libp2p-go-libp2p-asn-util
+                                  "/" file-name)
+                   file-name)))))))
+      (propagated-inputs
+       (list go-github-com-libp2p-go-libp2p
+             go-github-com-libp2p-go-libp2p-peer
+             go-github-com-libp2p-go-libp2p-crypto
+             go-github-com-multiformats-go-multiaddr))
+      (home-page "https://gitlab.com/spritely/go-libp2p-daemon")
+      (synopsis "Simple daemon to connect over libp2p")
+      (description "This package provides a very simple daemon to interface to
+from other programming languages.  It's designed to fulfill the needs of
+Spritely's Goblins library to support libp2p as a netlayer.")
+      (license license:asl2.0))))

base-commit: d108a7aac2c51f21c55cb8ea8801629a97f5242a
-- 
2.46.0