placement of chord symbols vs. marks

[Flaming Hakama by Elaine]

Send lilypond-user mailing list submissions to
        address@hidden

%{ 

    Hi, 

    I'm trying to use a slash to indicate a single-beat repeat within chord symbols.

    I have something that kind of works, based on some LSR snippets, 

    but it moves the chord symbols above marks, rather than below.

    Does anyone have any suggestions for keeping the chord symbols in the same location as normal?

%}

\version "2.19.81"

structure = \relative c { 

    \key a \major

    \numericTimeSignature 

    \time 4/4 

    \mark \markup \box "Mark"

    s1*4 \bar "||"

}

music = \relative c'' { 

    e8 8 8 b8 ~ 2 | r4 e8 fis ~ 8 e4. | cis8 ( a2.. ) | R1 ||

}

chordsNormal = \chordmode {

    \set noChordSymbol = ##f

    e1:7 | s | a1 | s2 aes4:7 g4:7 |

}

% From http://lsr.di.unimi.it/LSR/Snippet?id=529

% Prints rests in chord symbols

\layout {

    \context {

         \type "Engraver_group"

         \name ChordNamesRests

         \description "Typesets chord names."

         \consists "Output_property_engraver"

         \consists "Separating_line_group_engraver"

         \consists "Chord_name_engraver"

         \consists "Rest_engraver"

         

         noChordSymbol = ##f

         \override VerticalAxisGroup.staff-staff-spacing = #'((padding . 1))

         \override VerticalAxisGroup.remove-first = ##t

         \override VerticalAxisGroup.remove-empty = ##t     

    }

    \context { \Score \accepts ChordNamesRests }

}

% Macro to print single slash

rs = {

    \once \override Rest #'stencil = #ly:percent-repeat-item-interface::beat-slash

    \once \override Rest #'thickness = #0.48

    \once \override Rest #'slope = #1.7

    r4

}

chordsRests = \new ChordNamesRests {

    \chordmode { 

        \override Rest.extra-offset = #'(0 . 1)

        \set chordChanges = ##f 

        e1:7 | s | a1 | \rs \rs aes4:7 g4:7 |

    }

}

\paper {

    print-all-headers = ##t

}

\score {

    \header {

        title = "Normal behavior, with chords below marks"

    }

    <<

        \new ChordNames \chordsNormal 

        \new Staff << 

            \structure

            \music

        >>

    >>

}

\score {

    \header {

        title = "With slash repeats, but chords are now above marks"

    }

    <<

        \new ChordNames \chordsRests 

        \new Staff << 

            \structure

            \music

        >>

    >>

}

Please let me know if you have any suggestions. 

Thanks, 

David Elaine Alt

415 . 341 .4954                                           "Confusion is highly underrated"

address@hidden

skype: flaming_hakama
Producer ~ Composer ~ Instrumentalist
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-