-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; stanza-number
-
-(define-public (stanza-number::calc-x-offset grob)
- "We want @code{StanzaNumbers} to side-align to lyrics.
-Sometimes, however, this is not possible, as the lyrics
-they align to are hara-kiri'd. In this case, we self-align
-them to the right and tack on any padding."
- (if (null? (ly:grob-object grob 'side-support-elements))
- (+ (ly:self-alignment-interface::x-aligned-on-self grob)
- (* (ly:grob-property grob 'direction LEFT)
- (ly:grob-property grob 'padding 0.0)))
- (ly:side-position-interface::x-aligned-side grob)))
-