Re: Compound time

[Gilles]

> >
> >#(define (compound-time grob one two three four)
> >  (interpret-markup
> >   (ly:grob-layout grob)
> >   '(((baseline-skip . 2)
> >      (word-space . 2)
> >      (font-family . number)))
> >   (markup
> >    #:line
> >    (#:column (one two)
> >    #:lower 1 "+"
> >    #:hspace -2.4 #:column (three four)
> >    " "))))
> >
> >which makes it even uglier (see the negative "hspace" and the added
> >blank space), and still it will only work for default font size.
> >  
> 
> You need to use the defaults for the text font,
> try calling
> 
>    ly:grob-alist-chain
> 
> 
> with the 'text-font-defaults from the layout returned by (ly:grob-layout 
> grob)
>

I don't understand much of it (and that's probably the main problem!), but
this is what I tried, with a rather pitiful result:

#(define (compound-time-2 grob one two three four)
  (let* ((layout (ly:grob-layout grob))
         (text (interpret-markup
                layout
                (ly:grob-alist-chain grob (ly:output-def-lookup layout 
'text-font-defaults))
                (markup
                 #:line
                 (#:column (one two)
                  #:lower 1 "+"
                  #:hspace -2.4 #:column (three four)
                  " ")))))
   text))
 

What are the missing parts?

Thanks,
Gilles