(let* ((sep (ly:context-property context 'chordNameSeparator))
(slashsep (ly:context-property context 'slashChordSeparator))
(root-markup (name-root root lowercase-root?))
(let* ((sep (ly:context-property context 'chordNameSeparator))
(slashsep (ly:context-property context 'slashChordSeparator))
(root-markup (name-root root lowercase-root?))