2012/7/21 Jay Anderson <horndud...@gmail.com>:
> On Sat, Jul 21, 2012 at 12:39 PM, Thomas Morley
> <thomasmorle...@googlemail.com> wrote:
>> title = \markup{ "Piece in " \concat { E \hspace #0.25 \flat } }
>>
>> \markup { \fill-line { \huge \larger \bold \line { \concat { \title
>> "," } opus} } }
>>
>> (quick and dirty)
>
> I guess that's true and I'll probably have to go down this route. Is
> there a way to do it without modifying the title?
>
> -----Jay
Hi Jay,
perhaps:
#(define (stack-stils stencil stils kern)
(if (null? stils)
stencil
(stack-stils
(ly:stencil-combine-at-edge stencil X RIGHT (car stils) kern)
(cdr stils)
kern)))
#(define-markup-command (concat-markups layout props args)
(markup-list?)
(let ((stil-ls (map (lambda (x)(interpret-markup layout props x)) args)))
(stack-stils (car stil-ls) (cdr stil-ls) 0)))
title = \markup { Piece in \concat { E \hspace #0.25 \flat } }
\markup \fill-line { \huge \larger \bold { \concat-markups { \title
\line { "," opus } } } }
-Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
