#(define-markup-command (characteri paper props name) (markup?)
  (interpret-markup paper props
   (markup #:large #:smallCaps name)))

#(define-markup-command (character paper props name) (markup?)
  (interpret-markup paper props
   (markup #:null #:translate  (cons -4 1) #:characteri name)))

#(define-markup-command (character-text paper props name text) (markup? markup?)
  (interpret-markup paper props
   (markup #:null #:translate  (cons -4 1)
    #:line (#:characteri name #:large " " #:large #:italic text))))

#(define-public (make-character-mark clefs name)
   (if (string=? clefs "")
       #{ s1*0 ^\markup \character $name #}
       #{ << { \set Staff.forceClef = ##t \clef #$clefs
               \once \override Staff . Clef #'full-size-change = ##t }
             s1*0 ^\markup \character $name >> #}))


markUpBegin = {
  \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
  \once \override Score . RehearsalMark #'direction = #UP
  \once \override Score . RehearsalMark #'self-alignment-X = #LEFT
  \once \override Score . RehearsalMark #'padding = #3
}

markDownBegin = {
  \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
  \once \override Score . RehearsalMark #'direction = #DOWN
  \once \override Score . RehearsalMark #'self-alignment-X = #LEFT
  \once \override Score . RehearsalMark #'padding = #3
}

markDownEnd = {
  \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once \override Score . RehearsalMark #'after-line-breaking = ##t
  \once \override Score . RehearsalMark #'direction = #DOWN
  \once \override Score . RehearsalMark #'self-alignment-X = #RIGHT
  \once \override Score . RehearsalMark #'padding = #3
}
segnoMark = { 
  \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
  \once \override Score . RehearsalMark #'direction = #UP
  \once \override Score . RehearsalMark #'self-alignment-X = #CENTER
  \mark \markup \musicglyph #"scripts.segno"
}
segnoMarkDown = { 
  \once \override Score . RehearsalMark #'break-visibility = #end-of-line-invisible
  \once \override Score . RehearsalMark #'direction = #DOWN
  \once \override Score . RehearsalMark #'self-alignment-X = #CENTER
  \mark \markup \musicglyph #"scripts.segno"
}
segnoMarkEnd = { 
  \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once \override Score . RehearsalMark #'after-line-breaking = ##t
  \once \override Score . RehearsalMark #'direction = #UP
  \once \override Score . RehearsalMark #'self-alignment-X = #CENTER
  \mark \markup \musicglyph #"scripts.segno"
}

dacapoOverrides = {
  \once \override Score . RehearsalMark #'break-visibility = #begin-of-line-invisible
  \once \override Score . RehearsalMark #'direction = #DOWN
  \once \override Score . RehearsalMark #'self-alignment-X = #RIGHT
  \once \override Score . RehearsalMark #'padding = #2
  \once \override Score . RehearsalMark #'after-line-breaking = ##t
}

fineMark = {
  \dacapoOverrides \mark \markup \right-align \italic Fin.
}

dalSegnoMark = {
  \dacapoOverrides \mark \markup \right-align \italic "Dal Segno."
}

dacapoMark = {
  \dacapoOverrides \mark \markup \right-align \italic "Da Capo."
}

dacapoMarkText =
#(define-music-function (parser location text) (markup?)
  #{
    \dacapoOverrides 
    \mark \markup \column \right-align { \italic "Da Capo." $text }
  #})

dalsegnoMarkText =
#(define-music-function (parser location text) (markup?)
  #{
    \dacapoOverrides 
    \mark \markup \column \right-align { \italic "Dal Segno." $text }
  #})