Re: TimeSignature with note in denominator

[Lukas-Fabian Moser]

> Wouldn't it be easier to define an independent \kierenTime function 
> that expects an integer (index?) numerator and a music (ly:music?) 
> denominator? Then we could just write
>
> \version "2.22"
>
> kierenTime =
> #(define-void-function (num den) (index? ly:music?)
>    (format #t "~a\n" num)
>    (display-lily-music den))
>
> \kierenTime 3 { 8~8. }
> \kierenTime 3 4.  % the dot is important :-)

... or, of course, a helper function that can be used after \time, like 
Aaron proposed.

\version "2.22"

time =
#(define-music-function (beat-structure fraction)
   ((number-list? '()) pair?)  ; note that pair? is way too general.
   (_i "Set @var{fraction} as time signature, with optional
number list @var{beat-structure} before it.")
   (if (fraction? fraction)
     (make-music 'TimeSignatureMusic
              'numerator (car fraction)
              'denominator (cdr fraction)
              'beat-structure beat-structure)
     (begin
       (ly:warning "Non-fraction time signature not yet implemented.")
       (format #t "Given denominator:\n")
       (display-lily-music (cdr fraction))
       (empty-music))))

kieren =
#(define-scheme-function (num den) (exact? ly:music?)
   (cons num den))

{
  \time 4/4
  c'1
  \time \kieren 5 { 8~8.} c'4
}

Lukas