8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><
(define (InsertPitch pitch)
(eval-string (string-append "(d-" (number->string (d-GetPrevailingDuration)) ")"))
(d-StagedDelete)
(d-CursorToNote pitch)
(d-AddNoteToChord)
(d-MoveCursorRight))
(if (equal? "Treble" (d-GetPrevailingClef))
(InsertPitch "f'")
(InsertPitch "f,"))
8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><
would make a command which when invoked inserted f' if the prevailing
clef was treble or f, otherwise. (It assumes that you are not using the
Rhythm Entry for MIDI in option).
So you could make a series of such commands for each note name and give
them your shortcuts.
----------------------------------