4 texidoc = "The @code{\\removeWithTag} and @code{\\keepWithTag}
5 commands can name multiple tags to remove or to keep."
9 \layout { ragged-right= ##t }
13 \tag #'flood \new Voice { \voiceOne \repeat unfold 16 { c'''8 cis'''8 } }
14 \tag #'highball \new Voice { \voiceThree \repeat unfold 8 { a'4( as') } }
15 \tag #'buffoon \new Voice { \voiceFour \repeat unfold 2 { f1~ 1 } }
19 #(define-music-function (fun syms m)
20 (ly:music-function? symbol-list? ly:music?)
24 { \mark #(string-join (map symbol->string syms) "&") \skip 1*4 }
29 #(set-global-staff-size 16)
32 \fill-line { \center-column \fontsize #5 \bold { "\\keepWithTag" } }
35 \demo #keepWithTag #'(none) \music
36 \demo #keepWithTag #'(flood highball buffoon) \music
37 \demo #keepWithTag #'(flood buffoon) \music
38 \demo #keepWithTag #'(buffoon) \music
43 \fill-line { \center-column \fontsize #5 \bold { "\\removeWithTag" } }
46 \demo #removeWithTag #'(none) \music
47 \demo #removeWithTag #'(flood highball buffoon) \music
48 \demo #removeWithTag #'(flood buffoon) \music
49 \demo #removeWithTag #'(buffoon) \music