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

refactor title markup and allow songnumbers

Browse Source
This commit is contained in:
tux
2025-06-14 16:37:15 +02:00
parent 53c41bf5dc
commit 7a65d056d6
3 changed files with 26 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
book_include.ly
View File

@ -1,4 +1,5 @@
#(define song-list '())
#(define song-number 0)
#(define (files-in-directory dirname)
;;; Generate list containing filenames
@ -185,15 +186,17 @@ songs =
\markup { \pagecenter { \epsfile #X #xsize #filename } }
} #}
)
(let ((header #{ \bookpart { $(assq-ref songvars 'header) \header {
songfilename = $(symbol->string filename)
myindexlabel = #(assq-ref songvars 'label)
} } #})
;(header (assq-ref songvars 'header))
(music (assq-ref songvars 'music))
(layout (assq-ref songvars 'layout))
(text-pages (assq-ref songvars 'text-pages))
(label (assq-ref songvars 'label)))
(let* ((newnumber (+ 1 song-number))
(header #{ \bookpart { $(assq-ref songvars 'header) \header {
songfilename = $(symbol->string filename)
myindexlabel = #(assq-ref songvars 'label)
songnumber = #(number->string newnumber)
} } #})
(music (assq-ref songvars 'music))
(layout (assq-ref songvars 'layout))
(text-pages (assq-ref songvars 'text-pages))
(label (assq-ref songvars 'label)))
(set! song-number newnumber)
#{
\bookpart {
$header