\version "2.12.2"

#(ly:set-option 'delete-intermediate-files #t)

barre = #(define-music-function (parser location fretnum osp shorten adjBreak adjEnd) (string? number? pair? number? number?) #{
	\once \override TextSpanner #'outside-staff-priority = #$osp
	\once \override TextSpanner #'bound-details #'left #'text = 
		\markup { \concat { "C" "." $fretnum " " } }
	\once \override TextSpanner #'style = #'line
	\once \override TextSpanner #'font-shape = #'upright
	\once \override TextSpanner #'bound-details #'right #'text = \markup { \draw-line #'(0 . -1) }
	\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)
	\once \override TextSpanner #'bound-details #'right-broken #'padding = #$adjEnd
	\once \override TextSpanner #'bound-details #'left-broken #'X = #$adjBreak
	\once \override TextSpanner #'bound-details #'left-broken #'text = ##f
	\once \override TextSpanner #'bound-details #'right-broken #'text = ##f
#})

\relative c'' {
	a4 a a a a a a a a a a a a a a a a a a a a a a a 
	\barre "5" #0 #'(-0.5 . -1) #6 #1 a\startTextSpan a a a a a\stopTextSpan 
	a a a a a a a a a a a a a a a a a a a a a a a a a a 
	\barre "5" #0 #'(-0.5 . -1) #6 #1 a\startTextSpan a a a a\stopTextSpan 
	a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a 
}