And how about:
\version "2.18.2"
\paper {
indent = 0
}
%% Note names choice:
myNNames =
#`(("ces" . ,(markup #:concat(#:hspace -1 #:simple "C" #:hspace 0.1 #:raise 0.4 (#:tiny (#:flat)) #:hspace 0.5)))
("c" . "C ")
("cis" . ,(markup #:concat(#:hspace -1 #:simple "C" #:hspace 0.1 #:raise 0.7 (#:tiny (#:sharp)) #:hspace 0.5)))
("des" . ,(markup #:concat(#:hspace -1 #:simple "D" #:hspace 0.1 #:raise 0.4 (#:tiny (#:flat)) #:hspace 0.5)))
("d" . "D ")
("dis" . ,(markup #:concat(#:hspace -1 #:simple "D" #:hspace 0.1 #:raise 0.7 (#:tiny (#:sharp)) #:hspace 0.5)))
("ees" . ,(markup #:concat(#:hspace -1 #:simple "E" #:hspace 0.1 #:raise 0.4 (#:tiny (#:flat)) #:hspace 0.5)))
("e" . "E ")
("eis" . ,(markup #:concat(#:hspace -1 #:simple "E" #:hspace 0.1 #:raise 0.7 (#:tiny (#:sharp)) #:hspace 0.5)))
("fes" . ,(markup #:concat(#:hspace -1 #:simple "F" #:hspace 0.1 #:raise 0.4 (#:tiny (#:flat)) #:hspace 0.5)))
("f" . "F ")
("fis" . ,(markup #:concat(#:hspace -1 #:simple "F" #:hspace 0.1 #:raise 0.7 (#:tiny (#:sharp)) #:hspace 0.5)))
("ges" . ,(markup #:concat(#:hspace -1 #:simple "G" #:hspace 0.1 #:raise 0.4 (#:tiny (#:flat)) #:hspace 0.5)))
("g" . "G ")
("gis" . ,(markup #:concat(#:hspace -1 #:simple "G" #:hspace 0.1 #:raise 0.7 (#:tiny (#:sharp)) #:hspace 0.5)))
("aes" . ,(markup #:concat(#:hspace -1 #:simple "A" #:hspace 0.1 #:raise 0.4 (#:tiny (#:flat)) #:hspace 0.5)))
("a" . "A ")
("ais" . ,(markup #:concat(#:hspace -1 #:simple "A" #:hspace 0.1 #:raise 0.7 (#:tiny (#:sharp)) #:hspace 0.5)))
("bes" . ,(markup #:concat(#:hspace -1 #:simple "B" #:hspace 0.1 #:raise 0.4 (#:tiny (#:flat)) #:hspace 0.5)))
("b" . "B ")
("bis" . ,(markup #:concat(#:hspace -1 #:simple "B" #:hspace 0.1 #:raise 0.7 (#:tiny (#:sharp)) #:hspace 0.5))))
%% NoteNames stencil:
myNoteNames =
#(lambda (grob)
(let* ((default-name (ly:grob-property grob 'text))
(new-name (assoc-get default-name myNNames)))
(ly:grob-set-property! grob 'text new-name)
(ly:text-interface::print grob)))
%%% EXAMPLE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
myNotes = { c ces cis d des dis e es eis f fes fis }
myPhrase = \relative c' { \myNotes \transpose c g' \myNotes }
\new Staff = "MyStaff" <<
\context NoteNames \with {
\override NoteName.stencil = #myNoteNames
alignAboveContext = #"MyStaff"
} { \myPhrase }
\cadenzaOn \myPhrase
>>
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Cheers,
Pierre