me/guix
Archived
1
0
Fork 0
Code Activity

gnu: dvd+rw-tools: Use invoke.

Browse source 
* gnu/packages/cdrom.scm (dvd+rw-tools): Use 'invoke'.
This commit is contained in:
Efraim Flashner 2018-11-10 19:58:28 +02:00
parent 2529c8381f
commit efe0a4a2a7
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
gnu/packages/cdrom.scm
View file

@ -303,14 +303,14 @@ images.")
(replace 'configure (replace 'configure
(lambda _ (setenv "prefix" (assoc-ref %outputs "out")) #t)) (lambda _ (setenv "prefix" (assoc-ref %outputs "out")) #t))
(add-before 'build 'embed-mkisofs (add-before 'build 'embed-mkisofs
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; We use sed --in-place because substitute* cannot handle the ;; We use sed --in-place because substitute* cannot handle the
;; character encoding used by growisofs.c. ;; character encoding used by growisofs.c.
(zero? (system* "sed" "-i" "-e" (invoke "sed" "-i" "-e"
(string-append (string-append
"s,\"mkisofs\"," "s,\"mkisofs\","
"\"" (which "mkisofs") "\",") "\"" (which "mkisofs") "\",")
"growisofs.c"))))))) "growisofs.c"))))))
(home-page "http://fy.chalmers.se/~appro/linux/DVD+RW/") (home-page "http://fy.chalmers.se/~appro/linux/DVD+RW/")
(synopsis "DVD and Blu-ray Disc burning tools") (synopsis "DVD and Blu-ray Disc burning tools")
(description "dvd+rw-tools, mostly known for its command (description "dvd+rw-tools, mostly known for its command