%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
#(define (my-calc-glyph-name grob)
(let* ((glyph (ly:grob-property grob 'glyph))
(dir (ly:item-break-dir grob)))
(if (and (string? glyph) (string=? glyph ".|") (= dir LEFT))
"|." ; as if bar-glyph-alist had (".|" . ("|." . ".|"))
(bar-line::calc-glyph-name grob))))
\new Staff \with { \override BarLine #'glyph-name = #my-calc-glyph-name }
{
\bar ".|" b1 b1 b1 b1 b1 b1 b1 b1^"\bar \".|\"" \bar ".|" \break
b1 b1 b1 b1 b1 b1 b1 b1^"\bar \"|.\"" \bar "|." \break
b1 b1 b1 b1^"\bar \".|\"" \bar ".|" b1 b1 \repeat volta 2 { b1 b1 }
\break
b1 b1 b1 b1 b1 b1 b1 b1 \bar ".|" \break
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%