Compare commits

..

1 Commits

Author SHA1 Message Date
tux
39e20d60ed set spacing for rests in chordlyrics 2024-07-19 10:47:40 +02:00
2 changed files with 3 additions and 6 deletions

View File

@ -104,10 +104,7 @@
)
(if (and (equal? poetIds composerIds) (null? translatorIds) (null? versePoetData) (null? verseComposerData) (null? voiceComposerData) (null? compositionIds) (null? bridgeIds) (null? interludeIds))
(list
(join-present (list
(render-contribution-group (ly:output-def-lookup layout 'poetAndComposerEqualPrefix) poetIds)
(if (equal? year_text year_melody) year_text (join-present (list year_text year_melody) "/"))
) ", ")
(render-contribution-group (ly:output-def-lookup layout 'poetAndComposerEqualPrefix) poetIds)
#f)
(list
(if (and (null? poetIds) (null? versePoetData) (null? translatorIds)) #f

View File

@ -167,11 +167,11 @@
(reverse (map (lambda (m)
(make-size-box-to-box-markup #f #t m target-size-markup))
(cons
(make-with-link-symbol-ref-markup 'index:label (make-fill-with-pattern-markup 1 RIGHT "." (car revlist) page))
(make-fill-with-pattern-markup 1 RIGHT "." (car revlist) page)
(cdr revlist)))))))))
\paper {
indexItemMarkup = \markup {
indexItemMarkup = \markup \with-link-symbol-ref #'index:label {
\index-item-with-pattern
}
indexSectionMarkup = \markup \override #'(baseline-skip . 1.5) \left-column {