[bug#30433] [PATCH] gnu: Add epipe.

[Oleg Pykhalov]

* gnu/packages/emacs.scm (epipe): New public variable.
---
 gnu/packages/emacs.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 99e78d454..98d0ee1fb 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -7064,3 +7064,48 @@ navigation with the grails mode.")
 @code{org-tree-slide-mode} to enter the slideshow mode, and then @kbd{C->} and
 @kbd{C-<} to jump to the next and previous slide.")
       (license license:gpl3+))))
+
+(define-public epipe
+  (let ((commit "c966d549d5416fb92ecf4bd4a0a5a8fc9239e3af")
+        (revision "1"))
+    (package
+      (name "epipe")
+      (version (string-append "0.0.1" "-" revision "."
+                              (string-take commit 7)))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/cute-jumper/epipe";)
+                      (commit commit)))
+                (file-name (string-append name "-" version "-checkout"))
+                (sha256
+                 (base32
+                  "0lkisi1s7sn12nx8zh58qmsxwnk1rjwryj18wcbr148xqz3swg57"))))
+      (build-system trivial-build-system)
+      (inputs
+       `(("bash" ,bash)
+         ("perl" ,perl)))
+      (arguments
+       '(#:modules ((guix build utils))
+         #:builder
+         (begin
+           (use-modules (guix build utils))
+           ;; Copy source
+           (copy-recursively (assoc-ref %build-inputs "source") ".")
+           ;; Patch shebangs
+           (substitute* "epipe"
+             (("/usr/bin/env bash")
+              (string-append (assoc-ref %build-inputs "bash") "/bin/bash")))
+           (substitute* "epipe.pl"
+             (("/usr/bin/perl")
+              (string-append (assoc-ref %build-inputs "perl") "/bin/perl")))
+           ;; Installation
+           (for-each (lambda (file)
+                       (install-file file (string-append %output "/bin")))
+                     '("epipe" "epipe.pl"))
+           #t)))
+      (home-page "https://github.com/cute-jumper/epipe";)
+      (synopsis "Pipe to the @code{emacsclient}")
+      (description "@code{epipe} provides an utility to use your editor in
+the pipeline, featuring the support for running @code{emacsclient}.")
+      (license license:gpl3+))))
-- 
2.15.1