On Sat, Dec 5, 2015 at 10:03 AM, David Nalesnik <[email protected]>
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)))
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
