Re: changes leads to error

[Lukas-Fabian Moser]

Sorry for spamming!

The last version I posted gave worse layout than the original (because I 
had replaced \center-column by \column which seems to look better for 
dotted durations in the denominator).

So maybe better to use:

\version "2.22.0"

notetime =
#(define-music-function (count unit) (index? ly:duration?)
   (let* ((unit-length (ly:duration-length unit))
          (unit-numerator (ly:moment-main-numerator unit-length))
          (unit-denominator (ly:moment-main-denominator unit-length))
          (build-column (if (positive? (ly:duration-dot-count unit))
                            make-column-markup make-center-column-markup))
          (timesig-entries (list
                            (markup (#:number (number->string count)))
                            (markup #:note unit DOWN)))
          (timesig-markup (markup
                           #:override '(baseline-skip . 0.5)
                           (build-column timesig-entries))))

     #{
       \once\override Staff.TimeSignature.stencil =
       #(lambda (grob) (grob-interpret-markup grob timesig-markup))
       \time #(cons (* count unit-numerator) unit-denominator)
     #}))

{
  \notetime 4 4
  \repeat unfold 8 { a8 b c' d' e' }
  \notetime 4 4.
  \repeat unfold 8 { a8 b c' d' e' }
}