\version "2.17.0"
\include "english.ly"

namer =
#(make-engraver
  (acknowledgers
   ((note-head-interface engraver grob source)
    (let* ((event (ly:grob-property grob 'cause))
           (pitch (ly:event-property event 'pitch))
           (newgrob (ly:engraver-make-grob engraver 'TextScript event))
           (name (format #f "~a~a"
                   (string-ref "CDEFGAB" (ly:pitch-notename pitch))
                   (assoc-ref 
                    '((-1/2 . "") (0 . "") (1/2 . ""))
                    (ly:pitch-alteration pitch)))))
      (if (string= name "Hb")
          (set! name "B"))
      (set! (ly:grob-property newgrob 'text) name)))))





SRxxSSa = \relative c' {
  \clef treble \key c\major
   \set Staff.instrumentName = \markup {\larger "AA"}
  c4 d e f g a b2  | \key g\major g4 a b c d e fs2 | \key ef\major  ef,4 f g af bf c d2  
}

SRxxSSb = \relative c' {
  \set Staff.instrumentName = \markup {\larger "BB"}
  \key c\major 
  c4 d e f g a b2  | \key g\major g4 a b c d e fs2 | \key ef\major  ef,4 f g af bf c d2 
}

\score{ 
  \new Staff 
      \with {\consists #namer } 
	{           \SRxxSSa                }
\layout {}
}


numbr =
#(make-engraver
  (acknowledgers
   ((note-head-interface engraver grob source)
    (let* ((event (ly:grob-property grob 'cause))
           (pitch (ly:event-property event 'pitch))
           (newgrob (ly:engraver-make-grob engraver 'TextScript event))
           (name (format #f "~a~a"
                   (string-ref "1234567" (ly:pitch-notename pitch))
                   (assoc-ref 
                    '((-1/2 . "") (0 . "") (1/2 . ""))
                    (ly:pitch-alteration pitch)))))
      (if (string= name "Hb")
          (set! name "B"))
      (set! (ly:grob-property newgrob 'text) name)))))

\score{ 
  \new Staff 
      \with {\consists #numbr } 
	{               \SRxxSSb              }
\layout {}
}