;;;;;ChordStaff
(let ((tag "ChordStaff"))
(if (and ChordStaff::params (d-Directive-voice? tag))
    (begin (d-InfoDialog "Use the Staffs/Voices Chord Names command to turn off the typestting of chord names for this staff"))
    (begin
        (if (d-Directive-staff? tag)
            (d-DirectiveDelete-staff tag)
            (begin
                (ToggleDirective "staff" "prefix" tag ""(logior  DENEMO_OVERRIDE_LILYPOND  DENEMO_OVERRIDE_AFFIX))
                (ToggleDirective "staff" "postfix" tag ""(logior  DENEMO_OVERRIDE_LILYPOND  DENEMO_OVERRIDE_AFFIX))))
        (d-DirectiveDelete-staff "InstrumentName")
        (ToggleDirective "voice" "prefix" tag "\\new ChordNames \n" DENEMO_OVERRIDE_LILYPOND DENEMO_OVERRIDE_GRAPHIC)
        (ToggleDirective "clef" "postfix" tag "\n" DENEMO_OVERRIDE_LILYPOND)
        (if (d-Directive-clef? tag) (d-DirectivePut-clef-display tag "     X"))
        (ToggleDirective "keysig" "postfix" tag "\n" DENEMO_OVERRIDE_LILYPOND  DENEMO_OVERRIDE_AFFIX)
        (ToggleDirective "timesig" "postfix" tag "\n" DENEMO_OVERRIDE_LILYPOND))))
