%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% repeatTie using feta char overlay: dir: UP or DOWN (or pad per magnitude)      
#(define (frtSt dir) (lambda (grob)  
   (define dirsign   (if (positive? dir) + -) )
   (let* ((pos (ly:grob-property grob 'staff-position))
          (height (if (odd? pos) +0.8 +0.55)) (angle +90))
    (ly:stencil-combine-at-edge (ly:note-head::print grob) 0 -1
     (grob-interpret-markup grob (markup #:with-dimensions '(0 . 0) '(0 . 0)
       #:concat ( #:raise (dirsign height) #:rotate (dirsign angle)
       #:musicglyph "accidentals.rightparen" )
       #:hspace (abs dir))) 0 0 ))))
                 
frtUP =   \once \override NoteHead #'stencil = #(frtSt UP)
frtDOWN = \once \override NoteHead #'stencil = #(frtSt DOWN)
%                          or \tweak #'stencil   ___ditto____  
frtUPtw =
#(define-music-function (parser location mus) (ly:music?)
  (set! (ly:music-property mus 'tweaks) (acons 'stencil
  (frtSt UP)   (ly:music-property mus 'tweaks))) mus)
frtDOWNtw =
#(define-music-function (parser location mus) (ly:music?)
  (set! (ly:music-property mus 'tweaks) (acons 'stencil
  (frtSt DOWN) (ly:music-property mus 'tweaks))) mus)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

\relative c' 
\repeat volta 2 {
  <e b e~ g~ b~ e~>1
}
\alternative {
  { <c e g b e>1 }
  { <c \frtDOWNtw e \frtDOWNtw g \frtDOWNtw b \frtUPtw e>1 }
}