Compare commits
3 Commits
39e20d60ed
...
58020caf9b
Author | SHA1 | Date | |
---|---|---|---|
58020caf9b | |||
81a5676965 | |||
5ee1a7b6be |
@ -104,7 +104,10 @@
|
||||
)
|
||||
(if (and (equal? poetIds composerIds) (null? translatorIds) (null? versePoetData) (null? verseComposerData) (null? voiceComposerData) (null? compositionIds) (null? bridgeIds) (null? interludeIds))
|
||||
(list
|
||||
(render-contribution-group (ly:output-def-lookup layout 'poetAndComposerEqualPrefix) poetIds)
|
||||
(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) "/"))
|
||||
) ", ")
|
||||
#f)
|
||||
(list
|
||||
(if (and (null? poetIds) (null? versePoetData) (null? translatorIds)) #f
|
||||
|
@ -167,11 +167,11 @@
|
||||
(reverse (map (lambda (m)
|
||||
(make-size-box-to-box-markup #f #t m target-size-markup))
|
||||
(cons
|
||||
(make-fill-with-pattern-markup 1 RIGHT "." (car revlist) page)
|
||||
(make-with-link-symbol-ref-markup 'index:label (make-fill-with-pattern-markup 1 RIGHT "." (car revlist) page))
|
||||
(cdr revlist)))))))))
|
||||
|
||||
\paper {
|
||||
indexItemMarkup = \markup \with-link-symbol-ref #'index:label {
|
||||
indexItemMarkup = \markup {
|
||||
\index-item-with-pattern
|
||||
}
|
||||
indexSectionMarkup = \markup \override #'(baseline-skip . 1.5) \left-column {
|
||||
|
Loading…
Reference in New Issue
Block a user