Problem with Chord Names

[Rick Sutphin]

Hello,

I am a newbie to lilypond and I am trying to make a template for a small
jazz/pop combo with four horns, guitar, piano, bass, and drums.

I have a pretty good start on the score (I am sure lilypond gurus with
either laugh or cry when seeing my efforts), but I am having problems
with chord names. 

I would like to be able to print chord names above the rhythm guitar
part, and the piano part with slash notation indicating what rhythm to
play. I would also like to be able to print chords above solo sections
of any other instrument.

So far I have got chord names, but they are appearing below all the
staves instead of above the staff I put them on. Below is what I have
tried so far (the full listing follows):

gtr = \notes {
        c''1
}

harmony = \chords {
        c2:min d2:maj
}

guitar = {
        \global
        \property Staff.instrument = #"Guitar"
        \clef treble
        \Concert
        \context Staff <
        \context ChordNames = chords \harmony
        \context Voice = melody \gtr
        >
}

%%%%%%%%%%%% Small Combo Score %%%%%%%%%%%%%%%%%

\header {
        title = "Song"
        subtitle = "(tune)"
        composer = "Me"
        meter = "moderato"
        piece = "Swing"
}

global = \notes {
        \time 4/4
        \tempo 4 = 100
}
Concert = \notes \key c \major
Bb = \notes \key d \major
Eb = \notes \key a \major

% ############ Horns ############
% ------ Trumpet ------
trpt = \notes  {
        c''1
}

trumpet = {
        \global 
        \property Staff.instrument = #"Trumpet"
        \clef treble
        \Bb
        \context Staff <
                \trpt
        >
}

% ------ Alto Saxophone ------
alto = \notes {
        c''1
}

altosax = {
        \global
        \property Staff.instrument = #"Alto Sax"
        \clef treble
        \Eb
        \context Staff <
                \alto
        >
}

% ------ Baritone Saxophone ------
bari = \notes {
        c''1
}

barisax = {
        \global
        \property Staff.instrument = #"Bari Sax"
        \clef treble
        \Eb
        \context Staff <
                \bari
        >
}
% ------ Trombone ------
tbone = \notes {
        c1
}

trombone = {
        \global
        \property Staff.instrument = #"Trombone"
        \clef bass
        \Concert
        \context Staff <
                \tbone
        >
}
% ############ Rhythm Section #############
% ------ Guitar ------
gtr = \notes {
        c''1
}

harmony = \chords {
        c2:min d2:maj
}

guitar = {
        \global
        \property Staff.instrument = #"Guitar"
        \clef treble
        \Concert
        \context Staff <
        \context ChordNames = chords \harmony
        \context Voice = melody \gtr
        >
}

%% ------ Piano ------
rhUpper = \notes {
        \voiceOne
        c''1
}

rhLower = \notes {
        \voiceTwo
        e'1
}

PianoRH = {
        \clef treble
        \Concert
        \global
        \property Staff.instrument = #"Piano"
        \property Staff.instr = #"Piano"
        \property Staff.midiInstrument = "acoustic grand"
        \context Staff <
        \context Voice = one \rhUpper
        \context Voice = two \rhLower
        >
}

lhUpper = \notes {
        \voiceOne
        g1
}

lhLower = \notes {
        \voiceTwo
        c1
}

PianoLH = {
        \clef bass
        \Concert
        \global
        \property Staff.midiInstrument = "acoustic grand"
        \context Staff <
        \context Voice = one \lhUpper
        \context Voice = two \lhLower
        >
}

% ------ Bass Guitar ------
bass = \notes {
        c1
}

bass = {
        \global
        \property Staff.instrument = #"Bass"
        \clef bass
        \Concert
        \context Staff <
                \bass
        >
}

% ------ Drums ------
\include "drumpitch-init.ly"
up = \notes {
        hh4 <hh4 sn> hh4 <hh4 sn>
}

down = {
        bd4 r4 bd4 r4
}

\score {
<
        \context StaffGroup = horns <
                \context Staff = trumpet \trumpet
                
                \context Staff = altosax \altosax

                \context Staff = barisax \barisax
                
                \context Staff = trombone \trombone
        >
        
        \context StaffGroup = rhythm <
                \context Staff = guitar \guitar

                \context PianoStaff <
                \context Staff = upper \PianoRH
                \context Staff = lower \PianoLH
                >
                
                \context Staff = bass \bass
                
                \apply #(drums->paper 'drums) \context Staff = drums <
                \clef percussion
                \context Voice = up { \voiceOne \up }
                \context Voice = down { \voiceTwo \down }
                >
        >
>
         
        \paper { }
        \midi { \tempo 4 = 75 }
}