Re: Begin with a staff bar at left edge

[Janek Warchoł]

2011/9/21 Thomas Morley <address@hidden>:
> Hi Janek,
>
> I don't think it's a bug, but the default behaviour.
> It's possible to change with:
>
> \version "2.14.2"
>
> #(define my-bar-glyph-alist
>   '(("|s" . ("|" . "|"))))
>
> #(define (my-bar-line::calc-glyph-name grob)
>    (let* ((index-cell (lambda (cell dir)
>                         (if (equal? dir 1)
>                             (cdr cell)
>                             (car cell))))
>           (glyph (ly:grob-property grob 'glyph))
>           (dir (ly:item-break-dir grob))
>           (result (assoc glyph  my-bar-glyph-alist))
>           (glyph-name (if (= dir CENTER)
>                           glyph
>                           (if (and result (string? (index-cell (cdr result)
> dir)))
>                               (index-cell (cdr result) dir)
>                               #f)))
>           )
>      glyph-name))

Interesting.  However, I don't have any idea how it achieves its
goal... i think it would be better if \bar "|s" simply worked in case
of measure 1 too.
Nevertheless, thank you for sending this!

cheers,
Janek