4 texidoc = "The operation of @code{\\keepWithTag} can be made more
5 flexible by using @code{\\tagGroup}."
8 \layout { ragged-right= ##t }
13 \new Staff \with { instrumentName = "vI vII" }
15 \tag vI \new Voice \with { \voiceOne }
16 { g''-\tag slurs ( a'' g'' a''-\tag slurs ) }
17 \tag vII \new Voice \with { \voiceTwo }
18 { c''-\tag slurs ( d'' c'' d''-\tag slurs ) }
21 \new Staff \with { instrumentName = "bI bII" \clef "bass" }
23 \tag bI \new Voice \with { \voiceOne }
24 { g-\tag slurs ( a g a-\tag slurs ) }
25 \tag bII \new Voice \with { \voiceTwo }
26 { c-\tag slurs ( d c d-\tag slurs ) }
31 #(define-music-function (syms m)
32 (symbol-list? ly:music?)
36 \context Staff \mark #(string-join (map symbol->string syms) "&")
40 #(set-global-staff-size 16)
43 #(define-scheme-function (m1 m2) (ly:music? ly:music?)
45 \markup \column { \fill-line { \null \score { #m1 } \score { #m2 } \null }
51 \fill-line { \center-column \fontsize #5 \bold { "\\keepWithTag" } }
56 \demo #'(vI vII bI bII slurs) \music
57 \demo #'(slurs vI) \music
59 \demo #'(vI bI bII) \music
60 \demo #'(vI bI bII none) \music
65 \fill-line { \center-align \fontsize #5 \bold \left-column
66 { "\\tagGroup vI.vII" "\\tagGroup bI.bII" } }
74 \demo #'(vI vII bI bII slurs) \music
75 \demo #'(slurs vI) \music
77 \demo #'(vI bI bII) \music
78 \demo #'(vI bI bII none) \music