Notenbund/lilypond-common-includes
15
0
Fork 0
Code Issues 24 Pull Requests 1 Packages Projects Releases Wiki Activity

Compare commits

base: Notenbund:chordpro
Branches Tags
Notenbund:main Notenbund:filter-authors Notenbund:chordpro Notenbund:chord-spacing-experimental Notenbund:tocSubtitleText-Variable
...
compare: Notenbund:03ce0cfd30aa327428744a37bc699a7ec680f191
Branches Tags
Notenbund:filter-authors Notenbund:main Notenbund:chordpro Notenbund:chord-spacing-experimental Notenbund:tocSubtitleText-Variable

2 Commits
chordpro ... 03ce0cfd30

Author SHA1 Message Date
Christoph Wagner
03ce0cfd30 just real persons for author toc 2026-04-22 11:50:40 +02:00
zuk (Jakob Krueger)
bb940b2a3b Fix transposeGlobal: Make additional transpositions possible 2026-04-22 11:45:57 +02:00
2 changed files with 11 additions and 3 deletions
Expand all files Collapse all files

7
private_includes/base/transposition.ily
View File

@@ -2,7 +2,12 @@ TRANSPOSITION = #(cons #f #f)
transposeGlobal = transposeGlobal =
#(define-void-function (from to) (ly:pitch? ly:pitch?) #(define-void-function (from to) (ly:pitch? ly:pitch?)
(set! TRANSPOSITION (cons from to))) (if (not (car TRANSPOSITION))
(set! TRANSPOSITION (cons from to))
(let ((current_to (cdr TRANSPOSITION))
(interval (ly:pitch-diff to from)))
(set! TRANSPOSITION (cons (car TRANSPOSITION)
(ly:pitch-transpose current_to interval))))))
transposable = transposable =
#(define-music-function (fromto music) (pair? ly:music?) #(define-music-function (fromto music) (pair? ly:music?)

7
private_includes/book/toc_include.ily
View File

@@ -287,8 +287,11 @@ headerToTOC = #(define-music-function (parser location header label) (ly:book? s
(compositionIds (find-author-ids-by 'composition authors)) (compositionIds (find-author-ids-by 'composition authors))
(adaptionIds (find-author-ids-by 'adaption authors)) (adaptionIds (find-author-ids-by 'adaption authors))
(bridgeIds (find-author-ids-by 'bridge authors)) (bridgeIds (find-author-ids-by 'bridge authors))
(interludeIds (find-author-ids-by 'interlude authors))) (interludeIds (find-author-ids-by 'interlude authors))
(delete-duplicates (realAuthorIds (map car AUTHOR_DATA)))
(lset-intersection
equal?
realAuthorIds
(append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds)) (append poetIds translatorIds (map car versePoetData) composerIds (map car verseComposerData) (map car voiceComposerData) compositionIds adaptionIds bridgeIds interludeIds))
)) ))
(let* (let*