nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: epipe: Don't use unstable tarball. 

* gnu/packages/emacs-xyz.scm (epipe)[source]: Use GIT-FETCH and
GIT-FILE-NAME.
[native-inputs]: Remove tar and gzip.
[arguments]: Adjust builder.
This commit is contained in:
Tobias Geerinckx-Rice 2019-04-08 23:33:45 +02:00
parent 135ad93e09
commit 78b035ae20
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
gnu/packages/emacs-xyz.scm
View File

@ -8619,40 +8619,34 @@ Features:
(version "0.1.0") (version "0.1.0")
(source (source
(origin (origin
(method url-fetch) (method git-fetch)
(uri (string-append "https://github.com/cute-jumper/epipe/archive/" (uri (git-reference
version ".tar.gz")) (url "https://github.com/cute-jumper/epipe.git")
(file-name (string-append name "-" version ".tar.gz")) (commit version)))
(file-name (git-file-name name version))
(sha256 (sha256
(base32 (base32 "0lkisi1s7sn12nx8zh58qmsxwnk1rjwryj18wcbr148xqz3swg57"))))
"05a036852g4j63k1mhvyfrcsgkl9lczayi7x61570ysw3cli5wp5"))))
(build-system trivial-build-system) (build-system trivial-build-system)
(inputs (inputs
`(("bash" ,bash) `(("bash" ,bash)
("perl" ,perl))) ("perl" ,perl)))
(native-inputs
`(("tar" ,tar)
("gzip" ,gzip)))
(arguments (arguments
`(#:modules `(#:modules
((guix build utils)) ((guix build utils))
#:builder #:builder
(begin (begin
(use-modules (guix build utils)) (use-modules (guix build utils))
;; Extract source ;; Extract source.
(setenv "PATH" (string-append (copy-recursively (assoc-ref %build-inputs "source") "source")
(assoc-ref %build-inputs "tar") "/bin" ":" (chdir "source")
(assoc-ref %build-inputs "gzip") "/bin")) ;; Patch shebangs.
(invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
(chdir (string-append ,name "-" ,version))
;; Patch shebangs
(substitute* "epipe" (substitute* "epipe"
(("/usr/bin/env bash") (("/usr/bin/env bash")
(string-append (assoc-ref %build-inputs "bash") "/bin/bash"))) (string-append (assoc-ref %build-inputs "bash") "/bin/bash")))
(patch-shebang "epipe.pl" (patch-shebang "epipe.pl"
(list (string-append (assoc-ref %build-inputs "perl") (list (string-append (assoc-ref %build-inputs "perl")
"/bin"))) "/bin")))
;; Installation ;; Install.
(for-each (lambda (file) (for-each (lambda (file)
(install-file file (string-append %output "/bin"))) (install-file file (string-append %output "/bin")))
'("epipe" "epipe.pl")) '("epipe" "epipe.pl"))