diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2015-10-11 11:24:20 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2015-10-12 21:31:54 +0200 |
| commit | a8bc747ae1ba53c4c8719730284a771187d8ccfb (patch) | |
| tree | 56e4235e1c3615c13cde43aba78aa0299c8e0077 | |
| parent | 2b10eb489c54216a1470e1386e0bf1d11d7edeba (diff) | |
| download | guix-a8bc747ae1ba53c4c8719730284a771187d8ccfb.tar.gz | |
gnu: lilypond: Hardcode path to "gs" executable.
* gnu/packages/music.scm (lilypond)[arguments]: Add build phase "hardcode-path-to-gs".
| -rw-r--r-- | gnu/packages/music.scm | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 78310edf0e..7ee6ca1164 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -206,14 +206,22 @@ you to define complex tempo maps for entire songs or performances.") (assoc-ref %build-inputs "font-tex-gyre") "/share/fonts/opentype/")) #:phases - (alist-cons-before - 'configure 'prepare-configuration - (lambda _ - (substitute* "configure" - (("SHELL=/bin/sh") "SHELL=sh")) - (setenv "out" "") - #t) - %standard-phases))) + (modify-phases %standard-phases + (add-after 'unpack 'hardcode-path-to-gs + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "scm/backend-library.scm" + (("\\(search-executable '\\(\"gs\"\\)\\)") + (string-append "\"" + (assoc-ref inputs "ghostscript") + "/bin/gs" + "\"" ))) + #t)) + (add-before 'configure 'prepare-configuration + (lambda _ + (substitute* "configure" + (("SHELL=/bin/sh") "SHELL=sh")) + (setenv "out" "") + #t))))) (inputs `(("guile" ,guile-1.8) ("font-dejavu" ,font-dejavu) |