me
/
guix
Archived
1
0
Fork 0
Code

gnu: freetalk: Modernise arguments' style. 

* gnu/packages/messaging.scm (freetalk)[arguments]: Use a G-expression.
Use SEARCH-INPUT-FILE to find representative binaries instead of relying
on package names, and 'suffix rather than 'prefix their location to PATH.
master
Tobias Geerinckx-Rice 2022-07-24 02:00:00 +02:00
parent d62b180ffd
commit f8b7320ab2
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/messaging.scm
View File

@ -2091,20 +2091,22 @@ support, and more.")
"105mw7pg2mcp85r82cs4rv77nwvbw8025047364jzbq6lwllynxv"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
;; For 'system' commands in Scheme code.
(list #:phases
#~(modify-phases %standard-phases
(add-after 'install 'wrap-program
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(bash (assoc-ref inputs "bash"))
(coreutils (assoc-ref inputs "coreutils"))
(less (assoc-ref inputs "less")))
(let ((out (assoc-ref outputs "out")))
(wrap-program (string-append out "/bin/freetalk")
`("PATH" ":" prefix
,(map (lambda (dir)
(string-append dir "/bin"))
(list bash coreutils less))))))))))
`("PATH" ":" suffix
,(map (lambda (command)
(dirname
(search-input-file
inputs (string-append "bin/" command))))
;; This list is not exhaustive: we assume that,
;; e.g., cat is packaged with other coreutils.
(list "bash" ; src/{commands,util}.c et al
"cat" ; extensions/first-time-run.sh
"less")))))))))) ; extensions/history.scm.
(native-inputs
(list autoconf automake pkg-config texinfo))
(inputs