gnu: entr: Update to 4.1.

* gnu/packages/entr.scm (entr): Update to 4.1.
[arguments]: Use INVOKE.
This commit is contained in:
Ricardo Wurmus 2019-01-25 12:09:57 +01:00
parent 7492af9be7
commit fbc70c97c6
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 21 additions and 18 deletions

View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com> ;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com>
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -26,33 +27,35 @@
(define-public entr (define-public entr
(package (package
(name "entr") (name "entr")
(version "3.6") (version "4.1")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "http://entrproject.org/code/entr-" (uri (string-append "http://entrproject.org/code/entr-"
version ".tar.gz")) version ".tar.gz"))
(sha256 (sha256
(base32 (base32
"1sy81np6kgmq04kfn2ckf4fp7jcf5d1963shgmapx3al3kc4c9x4")))) "0y7gvyf0iykpf3gfw09m21hy51m6qn4cpkbrm4nnn7pwrwycj0y5"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:test-target "test" `(#:test-target "test"
#:phases (modify-phases %standard-phases #:phases
(replace 'configure (modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (replace 'configure
(let ((out (assoc-ref outputs "out"))) (lambda* (#:key outputs #:allow-other-keys)
(setenv "CONFIG_SHELL" (which "bash")) (let ((out (assoc-ref outputs "out")))
(setenv "CC" (which "gcc")) (setenv "CONFIG_SHELL" (which "bash"))
(setenv "DESTDIR" (string-append out "/")) (setenv "CC" (which "gcc"))
(setenv "PREFIX" "") (setenv "DESTDIR" (string-append out "/"))
(setenv "MANPREFIX" "man") (setenv "PREFIX" "")
(zero? (system* "./configure"))))) (setenv "MANPREFIX" "man")
(add-before 'build 'remove-fhs-file-names (invoke "./configure"))))
(lambda _ (add-before 'build 'remove-fhs-file-names
;; Use the tools available in $PATH. (lambda _
(substitute* "entr.c" ;; Use the tools available in $PATH.
(("/bin/cat") "cat") (substitute* "entr.c"
(("/usr/bin/clear") "clear"))))))) (("/bin/cat") "cat")
(("/usr/bin/clear") "clear"))
#t)))))
(home-page "http://entrproject.org/") (home-page "http://entrproject.org/")
(synopsis "Run arbitrary commands when files change") (synopsis "Run arbitrary commands when files change")
(description (description