Taille de l'accords avec l'extension "/bass"

[Ya Gloops]

Bonjour !
J'ai vu une fonction de Jean, sur la liste anglaise, qui m'intéresse mais pas 
pour la même raison…
Je l'ai donc transformé pour l'adapter mais elle crée une erreur!
En effet j'aimerais que, dans un chordname, l'extention antislash et bass soit 
systématiquement un peu plus petit que le root!

Donc voici ci-dessous une version qui fonctionne mais qui n'ai pas 
automatique...

\version "2.23.81"

t =
#(define-music-function () ()
   #{
     \once \set chordNameFunction =
       #(lambda (sorted-pitches bass inversion context)
          (let* ((root (first sorted-pitches))
                 (root-namer
                  (ly:context-property context 'chordRootNamer))
                 (root-markup (root-namer root #f))
                 (after-slash (if (ly:pitch? inversion)
                                  inversion
                                  bass))
                 (after-slash-markup
                  (if (ly:pitch? after-slash)
                      #{ \markup { / #(root-namer after-slash #f) } #}
                      "")))
            #{ \markup { #root-markup \fontsize #-1  #after-slash-markup } #}))
   #})


myChordNames =
\chords {
  c1
  \t  d1/g
}


<<
  \myChordNames
  \transpose c d \myChordNames
>>

Et ci-dessous un version qui ne fonctionne pas mais qui pourrais être 
automatique...

%\version "2.23.82"


% \layout {
%   \context {
%     \ChordNames
%     chordNameFunction =
%     #(lambda (sorted-pitches bass inversion context)
%        (let* ((root (first sorted-pitches))
%               (root-namer
%                (ly:context-property context 'chordRootNamer))
%               (root-markup (root-namer root #f))
%               (after-slash (if (ly:pitch? inversion)
%                                inversion
%                                bass))
%               (after-slash-markup
%                (if (ly:pitch? after-slash)
%                    #{ \markup { / #(root-namer after-slash #f) } #}
%                    "")))
%          #{ \markup { #root-markup \fontsize #-1 #after-slash-markup } #}))
%   }
% }
% 
% \chords {
%   c1
%   d1/g
% }

Gilles