2016-10-03 19:47 GMT+02:00 Pierre Perol-Schneider <[email protected]>: > Hi Harm, > No problem, please do so. > Cheers, > Pierre > > 2016-10-03 13:29 GMT+02:00 Thomas Morley <[email protected]>: >> >> Hi, >> >> I had a closer look at the currently unapproved LSR-snippet >> http://lsr.di.unimi.it/LSR/Item?u=1&id=1046 >> It is tagged docs. >> >> I'm not realy happy with the new markups created there. Why not set >> font-size directly? >> Leading to: >> >> \version "2.18.0" >> >> InstrumentNameFontSize = >> #(define-music-function (parser location font-size-pair)(pair?) >> "Sets the @code{font-size} of @code{InstrumentName}. >> The font-size for the initial @code{instrumentName} is taken from the >> first >> value in @var{font-size-pair}. @code{shortInstrumentName} will get the >> second >> value of @var{font-size-pair}. >> " >> >> ;; This code could be changed/extended to set different values for each >> ;; occurance of `shortInstrumentName' >> >> #{ >> \override InstrumentName.after-line-breaking = >> #(lambda (grob) >> (let* ((orig (ly:grob-original grob)) >> (siblings (if (ly:grob? orig) >> (ly:spanner-broken-into orig) >> '()))) >> (if (pair? siblings) >> (begin >> (ly:grob-set-property! >> (car siblings) >> 'font-size >> (car font-size-pair)) >> (for-each >> (lambda (g) >> (ly:grob-set-property! g 'font-size (cdr >> font-size-pair))) >> (cdr siblings)))))) >> #}) >> >> \layout { >> \context { >> \Staff >> \InstrumentNameFontSize #'(6 . -3) >> } >> } >> >> \new StaffGroup << >> \new Staff >> \with { >> instrumentName = "Flute" >> shortInstrumentName = "Fl." >> } >> { c''1 \break c'' \break c'' } >> \new Staff >> \with { >> instrumentName = "Violin" >> shortInstrumentName = "Vl." >> } >> { c''1 \break c'' \break c'' } >> >> >> >> Pierre, I know it is your snippet. What do you think? >> >> @all >> Are there any problems with my proposal, that I didn't consider? >> >> Cheers, >> Harm > >
Done. Approved as "Different font size settings for instrumentName and shortInstrumentName" http://lsr.di.unimi.it/LSR/Item?id=1046 Cheers, Harm _______________________________________________ bug-lilypond mailing list [email protected] https://lists.gnu.org/mailman/listinfo/bug-lilypond
