On 3/13/18 5:02 PM, Thomas Morley wrote:
Hi,

do you mean like below?
Based on
http://lsr.di.unimi.it/LSR/Item?u=1&id=765

#(define (general-column align-dir baseline mols)
   (let* ((aligned-mols
            (map (lambda (x) (ly:stencil-aligned-to x X align-dir)) mols)))
     (stack-lines -1 0.0 baseline aligned-mols)))

#(define-markup-command (my-wordwrap-field layout props symbol)
   (symbol?)
   #:category align
   #:properties ((baseline-skip)
                 (align-dir LEFT))
   (let* ((m (chain-assoc-get symbol props)))
     (if (string? m)
         (general-column align-dir baseline-skip
           (wordwrap-string-internal-markup-list layout props #f m))
         empty-stencil)))

RIGHT instead of LEFT in this and then it does what I want.  Thanks.


--
✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝✝
Br. Samuel, OSB
St. Anselm’s Abbey
Washington, DC
(R. Padraic Springuel)

PAX ☧ ΧΡΙΣΤΟΣ

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

Reply via email to