Re: Spanner text in parenthesis on a new system

[David Nalesnik]

On Sat, Dec 5, 2015 at 10:03 AM, David Nalesnik <address@hidden> wrote:

{

  \override Staff.OttavaBracket.stencil =

  #(lambda (grob)

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

           (lb (ly:spanner-bound grob LEFT)))

       (if (= (ly:item-break-dir lb) CENTER)

           (ly:ottava-bracket::print grob)

           (begin

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

                  (make-concat-markup (list "(" text ")")))

            (ly:ottava-bracket::print grob)))))

Unneccesarily verbose...

\override Staff.OttavaBracket.stencil =

  #(lambda (grob)

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

           (lb (ly:spanner-bound grob LEFT)))

       (if (not (= (ly:item-break-dir lb) CENTER))

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

                 (make-concat-markup (list "(" text ")"))))

       (ly:ottava-bracket::print grob)))