Hi again,
>
> Anyway, hope there's some use in this.
>
A bit more streamlined:
#(define (capo grob)
(let* ((sys (ly:grob-system grob))
(cols (ly:grob-object sys 'columns))
(cols-list (ly:grob-array->list cols))
(nearest-non-musical
(find
(lambda (col) (eq? #t (ly:grob-property col 'non-musical)))
(find-tail
(lambda (col)
(eq? col (ly:grob-object (ly:spanner-bound grob LEFT)
'axis-group-parent-X)))
(reverse cols-list)))))
(ly:spanner-set-bound! grob LEFT nearest-non-musical)))
[use with the same definition of `capoVHalf']
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
