Re: Append comma to markup

[Thomas Morley]

2012/7/21 Jay Anderson <address@hidden>:
> On Sat, Jul 21, 2012 at 12:39 PM, Thomas Morley
> <address@hidden> 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