Re: Lyrics and Punctuations Alignment Issue?

[David Nalesnik]

Hi Ming and Jun,

This should work for the special period character.  If there are any other punctuation marks you need at the ends of words, add them as strings to the variable called "punct-right."  Note: punctuation which goes to the left is handled differently.  If you need additional characters, add them to the variable "punct-L" as characters--i.e. preceded by #\

If you need any multi-byte characters for punctuation which goes to the left, the function will need to be adapted.  Easy enough to do--just let me know.

HTH,

David

%%%%%%%%%%%%%%%%%%%%%%%%%

\version "2.16"

#(define (drop-punctuation-right str)

  (let ((punct-right '("," ";" ":" "?" "\"" "'" "!" "。")))

    (let loop ((elt punct-right))

      (if (null? elt)

          #f

          (if (string-suffix? (car elt) str)

              (string-drop-right str (string-length (car elt)))

              (loop (cdr elt)))))))

#(define (drop-all-punctuation-right str)

  (let ((core (drop-punctuation-right str)))

    (if core

        (drop-all-punctuation-right core)

        str)))

#(define (align grob)

  (let* ((stil (ly:grob-property grob 'stencil))

         (stil-X (ly:stencil-extent stil X))

         (text (ly:grob-property grob 'text))

         (punct-L (char-set #\" #\`))

         ; determine X-extent of text stencil without punctuation at end

         (text-L (drop-all-punctuation-right text))

         (text-L-stil (grob-interpret-markup grob text-L))

         (text-L-stil-X (ly:stencil-extent text-L-stil X))

         (displacement (/ (- (cdr text-L-stil-X) (cdr stil-X)) 2))

         ; determine X-extent of text stencil without punctuation at start

         (text-R (string-trim text punct-L))

         (text-R-stil (grob-interpret-markup grob text-R))

         (text-R-stil-X (ly:stencil-extent text-R-stil X))

         (displacement (+ displacement

                          (/ (- (cdr stil-X) (cdr text-R-stil-X)) 2))))

     (- (ly:self-alignment-interface::aligned-on-x-parent grob)

        displacement)))

\paper {

  ragged-right = ##f

}

\relative c' {

  \time 3/4 e4 e4. e8

  d4 e d c2.

}

\addlyrics {

  \override LyricText #'X-offset = #align

  "\"I" am so lone -- "ly,\"" said she

}

\addlyrics {

  \override LyricText #'X-offset = #align

  樂無  極! 寶  名, 貝  名。 啊?

}

\addlyrics {

  \override LyricText #'X-offset = #align

  a b c d e f g

}