\version "2.19.20"

#(define moment->duration
   (lambda (mom)
     (if (not (= 0 (ly:moment-grace mom)))
         (ly:warning "ly:moment->duration omits grace timing"))
     (ly:make-duration 0 0 (ly:moment-main mom))))

flute_intro = { \repeat unfold 4 { c2 } }

mmr-of-length-with-text =
#(define-music-function (parser location id mrkp) (symbol? markup?)
   (make-music
  'SequentialMusic
  'elements
  (list (make-music
          'MultiMeasureRestMusic
          'duration
          (moment->duration (ly:music-length (ly:parser-lookup parser id)))
          'articulations
          (list (make-music
                  'MultiMeasureTextEvent
                  'tags
                  (list (quote part-violin))
                  'direction
                  1
                  'text
                  mrkp))))))

{
  \mmr-of-length-with-text #'flute_intro \markup \bold "[flute solo]"
}