Hi, 2014-05-29 10:08 GMT+02:00 Lars-Johan Liman <[email protected]>: > Hi! > > My trusty friend Google found me a useful code snippet by Thomas Morley > (Many thanks, Thomas!) in this message:
Glad that it is still useful > > https://www.mail-archive.com/[email protected]/msg86850.html > > to put text above the chord names. It's almost perfect. The one drawback > I've found is that is "pushes" the next note to the end of the text. So > if the text is of any length, a noticeable "gap" appears in the notes > below. I'm not deep enough into Lilypond yet to figure out a fix for > this on my own. Is anyone else intrigued enough to spend a few cycles on > finding a solution? (Thomas? ;-) Well, the function takes a markup-argument. You could insert \with-dimensions ... see below Drawback is, that it may cause collisions. > > Here's an example that makes it very obvious: > > %---------------------------------------------------------------------- > \version "2.18.0" > > addMarkup = > #(define-music-function (parser location mrkp)(markup?) > #{ > \once \override ChordName.before-line-breaking = > #(lambda (grob) > (ly:grob-set-property! grob 'text > #{ > \markup > \override #'(direction . 1) > \dir-column { $(ly:grob-property grob 'text) #mrkp } > #})) > #}) > > << > \new ChordNames \chordmode { > \addMarkup \markup \italic "Solo second time" \addMarkup \markup \with-dimensions #'(0 . 0) #'(-1 . 1) \italic "Solo second time" > a b c:7 d:m5- | a b c:7 d:m5- | > } > \new Staff { > \clef treble > \key c \major > \time 4/4 > a' b' c'' d'' | a' b' c'' d'' | > } >>> > %---------------------------------------------------------------------- > > Best regards, > /Lars-Johan Liman > > _______________________________________________ > lilypond-user mailing list > [email protected] > https://lists.gnu.org/mailman/listinfo/lilypond-user Cheers, taitinger _______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
