mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: entr: Improve package style.

Browse source 
* gnu/packages/entr.scm (entr): Improve package style. The changes are the
result of running ./pre-inst-env guix style entr.

Change-Id: I9579e326f88c6066078f2df78a12431f3f4badd4
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Javier Olaechea 2024-11-08 18:51:09 -05:00 committed by Ludovic Courtès
parent 4abcff77ce
commit 3806c39c91
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 29 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

57
gnu/packages/entr.scm
View file

@ -37,37 +37,38 @@ (define-public entr
(package
(name "entr")
(version "5.6")
(source (origin
(method url-fetch)
(uri (string-append "https://eradman.com/entrproject/code/entr-"
version ".tar.gz"))
(sha256
(base32
"0kniklgnqv4j9carm78d3423wlwqw1ykxmlla4xmlfwdjbgvh8h2"))))
(source
(origin
(method url-fetch)
(uri (string-append "https://eradman.com/entrproject/code/entr-"
version ".tar.gz"))
(sha256
(base32 "0kniklgnqv4j9carm78d3423wlwqw1ykxmlla4xmlfwdjbgvh8h2"))))
(build-system gnu-build-system)
(arguments
`(#:test-target "test"
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "CONFIG_SHELL" (which "bash"))
(setenv "CC" ,(cc-for-target))
(setenv "PREFIX" out)
(setenv "MANPREFIX" (string-append out "/man"))
(invoke "./configure"))))
(add-before 'build 'remove-fhs-file-names
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "entr.c"
(("/bin/sh" command)
(search-input-file inputs command))
(("/bin/cat" command)
(search-input-file inputs command))
(("/usr(/bin/clear)" _ command)
(search-input-file inputs command))))))))
(inputs
(list bash coreutils ncurses))
#:phases (modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(setenv "CONFIG_SHELL"
(which "bash"))
(setenv "CC"
,(cc-for-target))
(setenv "PREFIX" out)
(setenv "MANPREFIX"
(string-append out "/man"))
(invoke "./configure"))))
(add-before 'build 'remove-fhs-file-names
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "entr.c"
(("/bin/sh" command)
(search-input-file inputs command))
(("/bin/cat" command)
(search-input-file inputs command))
(("/usr(/bin/clear)" _ command)
(search-input-file inputs command))))))))
(inputs (list bash coreutils ncurses))
(home-page "https://eradman.com/entrproject/")
(synopsis "Run arbitrary commands when files change")
(description