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

Reply via email to