nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: lilypond: Hardcode path to "gs" executable. 

* gnu/packages/music.scm (lilypond)[arguments]: Add build phase
  "hardcode-path-to-gs".
This commit is contained in:
Ricardo Wurmus 2015-10-11 11:24:20 +02:00
parent 2b10eb489c
commit a8bc747ae1
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/music.scm
View File

@ -206,14 +206,22 @@ you to define complex tempo maps for entire songs or performances.")
(assoc-ref %build-inputs "font-tex-gyre") (assoc-ref %build-inputs "font-tex-gyre")
"/share/fonts/opentype/")) "/share/fonts/opentype/"))
#:phases #:phases
(alist-cons-before (modify-phases %standard-phases
'configure 'prepare-configuration (add-after 'unpack 'hardcode-path-to-gs
(lambda _ (lambda* (#:key inputs #:allow-other-keys)
(substitute* "configure" (substitute* "scm/backend-library.scm"
(("SHELL=/bin/sh") "SHELL=sh")) (("\\(search-executable '\\(\"gs\"\\)\\)")
(setenv "out" "") (string-append "\""
#t) (assoc-ref inputs "ghostscript")
%standard-phases))) "/bin/gs"
"\"" )))
#t))
(add-before 'configure 'prepare-configuration
(lambda _
(substitute* "configure"
(("SHELL=/bin/sh") "SHELL=sh"))
(setenv "out" "")
#t)))))
(inputs (inputs
`(("guile" ,guile-1.8) `(("guile" ,guile-1.8)
("font-dejavu" ,font-dejavu) ("font-dejavu" ,font-dejavu)