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 lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user