futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: denemo: Improve package style.

Browse Source 
* gnu/packages/music.scm (denemo)[native-inputs]: Remove labels.
[arguments]: Use G-expressions.  Remove trailing #T from phases.
This commit is contained in:
Nicolas Goaziou 2022-03-12 19:20:18 +01:00
parent ab042de0f7
commit 33331efc46
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 30 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gnu/packages/music.scm
View File

@ -628,37 +628,37 @@ many input formats and provides a customisable Vi-style user interface.")
(base32 "0pdmjij2635jbw2a24ivk1y4w0z58jbmq9vnz3qrfzw4d469grab")))) (base32 "0pdmjij2635jbw2a24ivk1y4w0z58jbmq9vnz3qrfzw4d469grab"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(replace 'check #~(modify-phases %standard-phases
(lambda* (#:key inputs #:allow-other-keys) (replace 'check
;; Tests require to write $HOME. (lambda* (#:key inputs #:allow-other-keys)
(setenv "HOME" (getcwd)) ;; Tests require to write $HOME.
;; Replace hard-coded diff file name. (setenv "HOME" (getcwd))
(substitute* "tests/integration.c" ;; Replace hard-coded diff file name.
(("/usr/bin/diff") (substitute* "tests/integration.c"
(search-input-file inputs "/bin/diff"))) (("/usr/bin/diff")
;; Denemo's documentation says to use this command to run its (search-input-file inputs "/bin/diff")))
;; test suite. ;; Denemo's documentation says to use this command to run its
(invoke "make" "-C" "tests" "check"))) ;; test suite.
(add-before 'build 'set-lilypond (invoke "make" "-C" "tests" "check")))
;; This phase sets the default path for lilypond to its current (add-before 'build 'set-lilypond
;; location in the store. ;; This phase sets the default path for lilypond to its current
(lambda* (#:key inputs #:allow-other-keys) ;; location in the store.
(let* ((lilypond (search-input-file inputs "/bin/lilypond"))) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/core/prefops.c" (let* ((lilypond (search-input-file inputs "/bin/lilypond")))
(("g_string_new \\(\"lilypond\"\\);") (substitute* "src/core/prefops.c"
(string-append "g_string_new (\"" (("g_string_new \\(\"lilypond\"\\);")
lilypond (string-append "g_string_new (\""
"\");")))) lilypond
#t))))) "\");")))))))))
(native-inputs (native-inputs
`(("diffutils" ,diffutils) (list diffutils
("glib:bin" ,glib "bin") ; for gtester `(,glib "bin") ; for gtester
("gtk-doc" ,gtk-doc) gtk-doc
("intltool" ,intltool) intltool
("libtool" ,libtool) libtool
("pkg-config" ,pkg-config))) pkg-config))
(inputs (inputs
(list alsa-lib (list alsa-lib
aubio aubio