boernel/lilypond-common-includes
14
0
Fork 0
Code Issues 17 Pull Requests 1 Packages Projects Releases Wiki Activity

drop lilypond pre 2.25.8 compatibility, cause its not working anyway

Browse Source
This commit is contained in:
tux
2023-11-22 15:28:31 +01:00
parent 8b0fc2d7c9
commit fbaf7a2c86
7 changed files with 9 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
book_include.ly
View File

@ -1,5 +1,3 @@
\version "2.18"
#(define song-list '())
#(define (files-in-directory dirname)
@ -120,7 +118,7 @@ includeSong =
#{
\bookOutputName #filename
#}
(ly:parser-parse-string (if (< (list-ref (ly:version) 1) 19) (ly:parser-clone parser) (ly:parser-clone))
(ly:parser-parse-string (ly:parser-clone)
(ly:format "\\include \"~a/~a/~a.ly\"" songPath filename filename))
(let ((label (gensym "index")))
(set! additional-page-switch-label-list
@ -155,7 +153,7 @@ imagepage =
songs =
#(define-void-function (parser location) ()
(for-each (lambda (songitems)
(ly:book-add-bookpart! (if (< (list-ref (ly:version) 1) 19) (ly:parser-lookup parser '$current-book) (ly:parser-lookup '$current-book))
(ly:book-add-bookpart! (ly:parser-lookup '$current-book)
(let ((filename (car songitems))
(songvars (cdr songitems)))
(if (eq? filename 'emptyPage)