Kieren MacMillan <kieren_macmil...@sympatico.ca> writes:

> Hi all,
>
> Thanks for the help… until someone comes up with a truly “automated”
> method, I’m simply going to hand-code the extra spacing “strut", e.g.

It does not get a price for being pretty and requires the markup changes
committed late in the 2.17 cycle (2.17.29 is probably ok), and don't
expect collision avoidance for the number, but here goes:

\version "2.17.29"

\paper {
  bookTitleMarkup = \markup \fill-line {
    \abs-fontsize #18 \fromproperty #'header:title
  }
  scoreTitleMarkup = \markup \fill-line {
    \override #'(baseline-skip . 0) \center-column {
      \put-adjacent #X #LEFT
      \abs-fontsize #18 \fromproperty #'header:title
      \with-dimensions #empty-interval #empty-interval
      \right-align \line { \abs-fontsize #18 \override #'(box-padding . 0.5)
			   \box \concat { "#" \fromproperty #'header:no }
			   \hspace #0.5 }
      \abs-fontsize #13 \concat { "(" \fromproperty #'header:performers ")" }
    }
  }
}

\header {
  no = "1"
  title = "My Awesome Song"
  performers = "Me and You"
}

\score { c' }

-- 
David Kastrup
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to