me
/
guix
Archived
1
0
Fork 0
Code

gnu: lilypond: Build info pages with images. 

* gnu/packages/music.scm (lilypond)[arguments]: Set "conf" and "out" to
  "www"; rename phase "hardcode-path-to-gs" to "fix-path-references";
  fix reference to "/bin/sh"; add phase "install-info".
master
Ricardo Wurmus 2015-12-24 09:53:07 +01:00
parent c493679f9a
commit 409be57b09
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
gnu/packages/music.scm
View File

@ -268,27 +268,34 @@ you to define complex tempo maps for entire songs or performances.")
(arguments (arguments
`(#:tests? #f ; out-test/collated-files.html fails `(#:tests? #f ; out-test/collated-files.html fails
#:out-of-source? #t #:out-of-source? #t
#:make-flags '("conf=www") ;to generate images for info manuals
#:configure-flags #:configure-flags
(list (string-append "--with-texgyre-dir=" (list "CONFIGURATION=www"
(string-append "--with-texgyre-dir="
(assoc-ref %build-inputs "font-tex-gyre") (assoc-ref %build-inputs "font-tex-gyre")
"/share/fonts/opentype/")) "/share/fonts/opentype/"))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'hardcode-path-to-gs (add-after 'unpack 'fix-path-references
(lambda* (#:key inputs #:allow-other-keys) (lambda _
(substitute* "scm/backend-library.scm" (substitute* "scm/backend-library.scm"
(("\\(search-executable '\\(\"gs\"\\)\\)") (("\\(search-executable '\\(\"gs\"\\)\\)")
(string-append "\"" (string-append "\"" (which "gs") "\""))
(assoc-ref inputs "ghostscript") (("\"/bin/sh\"")
"/bin/gs" (string-append "\"" (which "sh") "\"")))
"\"" )))
#t)) #t))
(add-before 'configure 'prepare-configuration (add-before 'configure 'prepare-configuration
(lambda _ (lambda _
(substitute* "configure" (substitute* "configure"
(("SHELL=/bin/sh") "SHELL=sh")) (("SHELL=/bin/sh") "SHELL=sh"))
(setenv "out" "") (setenv "out" "www")
#t))))) (setenv "conf" "www")
#t))
(add-after 'install 'install-info
(lambda _
(zero? (system* "make"
"-j" (number->string (parallel-job-count))
"conf=www" "install-info")))))))
(inputs (inputs
`(("guile" ,guile-1.8) `(("guile" ,guile-1.8)
("font-dejavu" ,font-dejavu) ("font-dejavu" ,font-dejavu)