Re: Text Spanner, with Text left-aligned to bar-line, and spanner line right-aligned to subsequent bar-line?

[David Nalesnik]

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']