mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 06:37:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: btrbk: Use SEARCH-INPUT-FILES.

Browse source 
* gnu/packages/backup.scm (btrbk)[arguments]: Use SEARCH-INPUT-FILE to
construct the wrapper's PATH, rather than hard-coding package variables.
This commit is contained in:
Tobias Geerinckx-Rice 2022-07-24 02:00:00 +02:00
parent c7a13d29a2
commit f1b727c263
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/backup.scm
View file

@ -1121,20 +1121,23 @@ (define btrbk (search-input-file outputs "bin/btrbk"))
(string-append "program_name = "
"$ENV{'BTRBK_PROGRAM_NAME'}")))
;; Wrap the script, so that it works with SSH URI and
;; finds mbuffer out of the box.
;; finds mbuffer and other tools out of the box.
(wrap-program btrbk
#:sh (search-input-file inputs "bin/bash")
'("BTRBK_PROGRAM_NAME" = ("$0"))
`("PATH" prefix
,(list (string-append #$btrfs-progs "/bin")
(string-append #$coreutils "/bin")
(string-append #$findutils "/bin")
(string-append #$mbuffer "/bin")
(string-append #$openssh "/bin")))))))))
,(map (lambda (command)
(dirname (search-input-file inputs command)))
(list "bin/btrfs"
"bin/cat"
"bin/find"
"bin/mbuffer"
"bin/ssh")))))))))
(native-inputs (list ruby-asciidoctor))
(inputs (list bash-minimal
btrfs-progs
coreutils
findutils
mbuffer
openssh
perl))