Re: Right aligned text in header

[Br. Samuel Springuel]

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 ☧ ΧΡΙΣΤΟΣ