mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
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".
This commit is contained in:
parent
c493679f9a
commit
409be57b09
1 changed files with 16 additions and 9 deletions
|
@ -268,27 +268,34 @@ (define-public lilypond
|
|||
(arguments
|
||||
`(#:tests? #f ; out-test/collated-files.html fails
|
||||
#:out-of-source? #t
|
||||
#:make-flags '("conf=www") ;to generate images for info manuals
|
||||
#:configure-flags
|
||||
(list (string-append "--with-texgyre-dir="
|
||||
(list "CONFIGURATION=www"
|
||||
(string-append "--with-texgyre-dir="
|
||||
(assoc-ref %build-inputs "font-tex-gyre")
|
||||
"/share/fonts/opentype/"))
|
||||
#:phases
|
||||
(modify-phases %standard-phases
|
||||
(add-after 'unpack 'hardcode-path-to-gs
|
||||
(lambda* (#:key inputs #:allow-other-keys)
|
||||
(add-after 'unpack 'fix-path-references
|
||||
(lambda _
|
||||
(substitute* "scm/backend-library.scm"
|
||||
(("\\(search-executable '\\(\"gs\"\\)\\)")
|
||||
(string-append "\""
|
||||
(assoc-ref inputs "ghostscript")
|
||||
"/bin/gs"
|
||||
"\"" )))
|
||||
(string-append "\"" (which "gs") "\""))
|
||||
(("\"/bin/sh\"")
|
||||
(string-append "\"" (which "sh") "\"")))
|
||||
#t))
|
||||
(add-before 'configure 'prepare-configuration
|
||||
(lambda _
|
||||
(substitute* "configure"
|
||||
(("SHELL=/bin/sh") "SHELL=sh"))
|
||||
(setenv "out" "")
|
||||
#t)))))
|
||||
(setenv "out" "www")
|
||||
(setenv "conf" "www")
|
||||
#t))
|
||||
(add-after 'install 'install-info
|
||||
(lambda _
|
||||
(zero? (system* "make"
|
||||
"-j" (number->string (parallel-job-count))
|
||||
"conf=www" "install-info")))))))
|
||||
(inputs
|
||||
`(("guile" ,guile-1.8)
|
||||
("font-dejavu" ,font-dejavu)
|
||||
|
|
Loading…
Reference in a new issue