TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

15
gnu/packages/shellutils.scm
View file

@ -382,21 +382,20 @@ (define-public trash-cli
"0hkn0hmwrag56g447ddqapib0s399a6b4a9wlliif6zmirxlww9n"))))
(build-system python-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(list #: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")))
(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 "/lib/libc.so.6\"\n"))
(string-append "\"" libc "\"\n"))
(("\"df\"")
(string-append "\"" coreutils "/bin/df\""))))))
(string-append "\"" df "\""))))))
(add-before 'build 'fix-setup.py
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")))
(let ((bin (string-append #$output "/bin")))
(mkdir-p bin)
(substitute* "setup.py"
(("add_script\\('")