From a8bc747ae1ba53c4c8719730284a771187d8ccfb Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 11 Oct 2015 11:24:20 +0200 Subject: [PATCH] gnu: lilypond: Hardcode path to "gs" executable. * gnu/packages/music.scm (lilypond)[arguments]: Add build phase "hardcode-path-to-gs". --- gnu/packages/music.scm | 24 ++++++++++++++++-------- 1 file 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)