git-annex.scm: Add ipfs special remote

1 files changed, 34 insertions, 0 deletions

diff --git a/km-packages/git-annex.scm b/km-packages/git-annex.scm
index d17f881..7a6405d 100644
--- a/km-packages/git-annex.scm
+++ b/km-packages/git-annex.scm
@@ -22,7 +22,9 @@
   #:use-module (gnu packages)
   #:use-module (gnu packages haskell)
   #:use-module (gnu packages haskell-apps)
+  #:use-module (gnu packages ipfs)
   #:use-module (guix build utils)
+  #:use-module (guix build-system trivial)
   #:use-module (guix build-system haskell)
   #:use-module (guix download)
   #:use-module (guix gexp)
@@ -124,3 +126,35 @@ full-featured binding.")
     (inputs `(("ghc-concurrent-output" ,ghc-concurrent-output)
               ("ghc-magic" ,ghc-magic)
               ,@(package-inputs git-annex)))))
+
+(define-public git-annex-remote-ipfs
+  (package
+    (name "git-annex-remote-ipfs")
+    (version "0.20190702")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "https://git-annex.branchable.com/"
+                           "special_remotes/external/git-annex-remote-ipfs"))
+       (sha256
+        (base32
+         "0m3fwaz4r7y0xf07rnh23n7rk2qm8idizslspwcqmp413m97w345"))))
+    (build-system trivial-build-system)
+    (arguments
+     `(#:modules ((guix build utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (let* ((file (assoc-ref %build-inputs "source"))
+                (out (string-append %output "/bin"))
+                (outfile (string-append out "/git-annex-remote-ipfs")))
+           (mkdir-p out)
+           (copy-file file outfile)
+           (chmod outfile #o555)
+           #t))))
+    (propagated-inputs
+     `(("go-ipfs" ,go-ipfs)))
+    (home-page "https://git-annex.branchable.com")
+    (synopsis "todo")
+    (description "todo")
+    (license license:gpl3)))