mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 15:26:47 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: trash-cli: Use G-expressions.

Browse source 
* gnu/packages/shellutils.scm (trash-cli)[arguments]: Use G-expressions.

Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
kiasoc5 2022-11-15 21:49:04 -05:00 committed by Christopher Baines
parent cfeb51a6de
commit 024a98cb83
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 25 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

51
gnu/packages/shellutils.scm
View file

@ -382,32 +382,31 @@ (define-public trash-cli
"0hkn0hmwrag56g447ddqapib0s399a6b4a9wlliif6zmirxlww9n"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'build 'patch-path-constants
(lambda* (#:key inputs #:allow-other-keys)
(let ((libc (assoc-ref inputs "libc"))
(coreutils (assoc-ref inputs "coreutils")))
(substitute* "trashcli/list_mount_points.py"
(("\"/lib/libc.so.6\".*")
(string-append "\"" libc "/lib/libc.so.6\"\n"))
(("\"df\"")
(string-append "\"" coreutils "/bin/df\""))))))
(add-before 'build 'fix-setup.py
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(mkdir-p bin)
(substitute* "setup.py"
(("add_script\\('")
(string-append "add_script('" bin "/" ))))))
;; Whenever setup.py is invoked, scripts in out/bin/ are
;; replaced. Thus we cannot invoke setup.py for testing.
;; Upstream also uses pytest.
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest")))))))
(list #:phases
#~(modify-phases %standard-phases
(add-before 'build 'patch-path-constants
(lambda* (#:key inputs #:allow-other-keys)
(let ((libc (search-input-file inputs "lib/libc.so.6"))
(df #$(file-append coreutils "/bin/df")))
(substitute* "trashcli/list_mount_points.py"
(("\"/lib/libc.so.6\".*")
(string-append "\"" libc "\"\n"))
(("\"df\"")
(string-append "\"" df "\""))))))
(add-before 'build 'fix-setup.py
(lambda* (#:key outputs #:allow-other-keys)
(let ((bin (string-append #$output "/bin")))
(mkdir-p bin)
(substitute* "setup.py"
(("add_script\\('")
(string-append "add_script('" bin "/" ))))))
;; Whenever setup.py is invoked, scripts in out/bin/ are
;; replaced. Thus we cannot invoke setup.py for testing.
;; Upstream also uses pytest.
(replace 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(invoke "pytest")))))))
(native-inputs
(list python-pytest
python-parameterized