#(set-default-paper-size "a4")

\version "2.11.58"

barre = #(define-music-function (parser location padding text shorten) (number? string? pair?) #{
  \once \override TextSpanner #'style = #'line
  \once \override TextSpanner #'font-shape = #'upright
  %draw a bracket edge on RHS
  \once \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #'(0 . -1) }
  \once \override TextSpanner #'padding = $padding
  \once \override TextSpanner #'bound-details #'left #'text = $text
  % set alignment of line with reference to left text
  \once \override TextSpanner #'bound-details #'left #'stencil-align-dir-y = #CENTER
  \once \override TextSpanner #'bound-details #'left #'padding = #(car $shorten)
  \once \override TextSpanner #'bound-details #'right #'padding = #(cdr $shorten)
  % optional overrides to remove text and bracket edge at line breaks
  \once \override TextSpanner #'bound-details #'left-broken #'text = ##f
  \once \override TextSpanner #'bound-details #'right-broken #'text = ##f
#})

\score {
	\relative c'' {
		\textSpannerUp
		\barre #0 "CIV" #'(0 . 0)
		c,8\startTextSpan d e f g a b c\stopTextSpan
		c, d e f g a b c
		c, d e f g a b c
	}
}