Subject: bug#30433: closed (Re: [bug#30433] [PATCH] gnu: Add epipe.)

From: [email-masked] (GNU bug Tracking System)
Date: Thu, 15 Feb 2018 17:48:03 +0000

Your bug report

#30433: [PATCH] gnu: Add epipe.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
30433: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=30433
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#30433] [PATCH] gnu: Add epipe.
From: Oleg Pykhalov <[email-masked]>
To: Leo Famulari <[email-masked]>
Cc: [email-masked], [email-masked]
Date: Thu, 15 Feb 2018 20:47:32 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

Leo Famulari <[email-masked]> writes:

> On Wed, Feb 14, 2018 at 04:14:15PM +0300, Oleg Pykhalov wrote:
>> Leo Famulari <[email-masked]> writes:
>> > This commit corresponds to the upstream tag "0.1.0", so you can omit the
>> > commit and revision variables, and just set the version to "0.1.0"...
>> 
>> Maybe it's better to get a source via url-fetch from GitHub archive
>> tarball?
>
> Yeah, if the result is the same I think it's better to use url-fetch.

OK.

>> > I think you could use the patch-shebang procedure from (guix build
>> > utils), as in the package for woof.
>> 
>> As I see only for Perl, because folling does nothing:
>> --8<---------------cut here---------------start------------->8---
>> (patch-shebang "epipe"
>>   (list (string-append (assoc-ref %build-inputs "bash")
>>                        "/bin")))
>> --8<---------------cut here---------------end--------------->8---
>
> Huh, weird! Well, I think that whatever works should be fine.

Pushed as 5b2382929959db9d883982329ec8fdf4103a9351

I'll close the bug report.

Oleg.

Subject: [PATCH] gnu: Add epipe.
From: Oleg Pykhalov <[email-masked]>
To: [email-masked]
Cc: Oleg Pykhalov <[email-masked]>
Date: Mon, 12 Feb 2018 10:48:51 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

* 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