\version "2.19.13"

together = { \tag #'together <>^\markup \bold "a2" }

soloI =
#(define-music-function (parser location mus) (ly:music?)
   #{
     <<
       \tag #'together <>^\markup \bold SoloI
       \tag #'divI { #mus }
       \tag #'together { #mus }
       \tag #'divII #(mmrest-of-length mus)
     >>
   #})

sharedStems =
#(define-music-function (parser location m1 m2) (ly:music? ly:music?)
   #{
     <<
       \tag divI  { #m1 }
       \tag divII { #m2 }
       \tag together <>^\markup \bold "div"
       \tag together << #m1 #m2 >>
     >>
   #})

voiceDivisi =
#(define-music-function (parser location m1 m2) (ly:music? ly:music?)
   #{
     <<
       \tag divI  { #m1 }
       \tag divII { #m2 }
       \tag together << { \dynamicUp #m1 } \\ { \dynamicDown #m2 } >>
     >>
   #})

staffDivisi =
#(define-music-function (parser location m1 m2) (ly:music? ly:music?)
   #{
     \unset Staff.keepAliveInterfaces
     <<
       \tag divI  { #m1 }
       \tag divII { #m2 }
       \tag together #(skip-of-length m1)
       \tag together #(skip-of-length m2)
     >>
     \set Staff.keepAliveInterfaces = #'()
   #})

clearTags = 
#(define-music-function (parser location tags music)
   (symbol-list-or-symbol? ly:music?)
   (_i "Remove the tags in @var{tags} from @var{music}, leaving the music
in place. @var{tags} may be either a single symbol or a list of symbols.")
   (for-some-music
     (lambda (m)
       (let ((oldtags (ly:music-property m 'tags)))
         (if (pair? oldtags)
             (ly:music-set-property! m 'tags
               (remove (lambda (t) (memq t tags)) oldtags)))
         #f)) ;for-some-music recurses into 'm' iff we return #f
    music)
  music)

divisibleStaff =
#(define-music-function (parser location name music) (string? ly:music?)
   (let ((nameI (string-append name " I"))
         (nameII (string-append name " II")))
     #{
       \new GrandStaff \with {
         \consists "Keep_alive_together_engraver"
       } <<
         \new Staff \with {
           \override VerticalAxisGroup.remove-first = ##t
           \override VerticalAxisGroup.remove-empty = ##t
           \override VerticalAxisGroup.remove-layer = 1
           keepAliveInterfaces = #'()
           instrumentName = #nameI
           shortInstrumentName = #nameI
         }
         \clearTags divI \removeWithTag together.divII \music

         \new Staff \with {
           \override VerticalAxisGroup.remove-first = ##t
           \override VerticalAxisGroup.remove-empty = ##t
           \override VerticalAxisGroup.remove-layer = 1
           keepAliveInterfaces = #'()
           instrumentName = #nameII
           shortInstrumentName = #nameII
         }
         \clearTags divII \removeWithTag together.divI \music

         \new Staff \with {
           instrumentName = #name
           shortInstrumentName = #name
           \override VerticalAxisGroup.remove-layer = 2
         }
         \clearTags together \removeWithTag divI.divII \music
       >>
     #}))