irregularMeter =
#(define-music-function (args) (pair?)
  #{
    \once \override Timing.TimeSignature.stencil =
      #(lambda (grob)
         (grob-interpret-markup
          grob
          (make-concat-markup
            (list-join
              (map make-compound-meter-markup args)
              (make-hspace-markup 0.3)))))
  #})


\relative c'' {
  \key g \major
  \irregularMeter #'((2 4) (3 4) 4)

  \partial 4 d8 c |
  \omit Timing.TimeSignature
  \time 2/4 b4 d |
  \time 3/4 e8 d c b a g |
  \time 4/4 r2. c8 b
  \time 2/4 a4 c |
  \time 3/4 d8 c b a g fis |
  \undo \omit Timing.TimeSignature
  \time 3/4 g4 b a8 a |
  g2 \bar "|."
}