\version "2.18.2"

ohr = \markup {
  \with-dimensions #'(0 . 0) #'(0 . 0)
  \translate #'( 0 . -0.3)
  \combine \filled-box #'(-0.3 . +0.3) #'(0 . 0.3) #0 % Naht
  \filled-box #'(-0.8 . +0.8) #'(0 . 0.15) #0         % Strich
}

balken = {
  \once \override Glissando #'after-line-breaking = #(lambda (grob)
    (let* ((left-bound (ly:spanner-bound grob LEFT))
	   (left-Y (assoc-get 'Y (ly:grob-property grob 'left-bound-info))))
     (ly:grob-set-property! left-bound 'stencil #f)
     (ly:grob-set-nested-property! grob '(right-bound-info Y) left-Y)))

  \once \override Glissando #'thickness = #6
  \once \override Glissando #'(bound-details left padding) = #-0.5
  \once \override Glissando #'(bound-details right padding) = #1.3
  \once \override Glissando #'(bound-details left text) = \markup \rotate #-90 \ohr
  \once \override Glissando #'(bound-details right text) = \markup \rotate #90 \ohr
  \once \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
  \once \override Glissando #'minimum-length = 10
  <>\glissando
}

lbalken = {
  \once \override Glissando #'after-line-breaking = #(lambda (grob)
    (let* ((left-bound (ly:spanner-bound grob LEFT))
	   (left-Y (assoc-get 'Y (ly:grob-property grob 'left-bound-info))))
     (ly:grob-set-property! left-bound 'stencil #f)
     (ly:grob-set-nested-property! grob '(right-bound-info Y) left-Y)))

  \once \override Glissando #'thickness = #6
  \once \override Glissando #'(bound-details left padding) = #-0.5
  \once \override Glissando #'(bound-details right padding) = #1.3
  \once \override Glissando #'(bound-details left text) = \markup \rotate #-90 \ohr
  \once \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
  \once \override Glissando #'minimum-length = 10
  <>\glissando
}

rbalken = {
  \once \override Glissando #'after-line-breaking = #(lambda (grob)
    (let* ((left-bound (ly:spanner-bound grob LEFT))
	   (left-Y (assoc-get 'Y (ly:grob-property grob 'left-bound-info))))
     (ly:grob-set-property! left-bound 'stencil #f)
     (ly:grob-set-nested-property! grob '(right-bound-info Y) left-Y)))

  \once \override Glissando #'thickness = #6
  \once \override Glissando #'(bound-details left padding) = #-0.5
  \once \override Glissando #'(bound-details right padding) = #1.3
  \once \override Glissando #'(bound-details right text) = \markup \rotate #90 \ohr
  \once \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
  \once \override Glissando #'minimum-length = 10
  <>\glissando
}


ll = \lyricmode { \once \override LyricText.self-alignment-X = #LEFT } %%

\score {
  <<
    \new Staff <<
      \new Voice = "Alt"
      \relative c' {
	\key g \major
	\clef treble
	\time 1/4
	\autoBeamOff
	\override Score.SpacingSpanner #'packed-spacing = ##f
	\set Score.timing = ##f
	d e \lbalken g \hide g \break % The last hidden g makes the  \balken and \break work
	% the first hidden g makes it possible to bring the key at the start of the line without having
	% the key repeated at the end of the prior line.
	\hide g \key g \major \rbalken g e g fis e e d~d \break
	
      }
      \addlyrics {
        Die E -- \ll "pistel dieser Christnacht stehet geschrieben"
            " " " " % << There are two NARROW NO-BREAK SPACE (U+202F) hidden here to append text to the hidden gs
        \ll "bei Sankt Paulus im Brief an die Philipper" im vier -- ten Ka -- pi -- tel:
      }
    >>
  >>
  \midi {
  }
  \layout {
    indent = 0 %%
    ragged-right = ##t %%
    \context {
      \Staff
      \remove "Time_signature_engraver"
      \remove "Bar_engraver"
      \override Stem #'transparent = ##t
      \override Flag #'transparent = ##t
      \override Beam #'transparent = ##t
    } % context
  } % layout
}