-#(define (letter-tablature-format str context event)
- (let ((tuning (ly:context-property context 'stringTunings))
- (pitch (ly:event-property event 'pitch)))
- (make-whiteout-markup
- (make-vcenter-markup
- (string (integer->char
- (+ (char->integer #\a)
- (- (ly:pitch-semitones pitch)
- (list-ref tuning (- str 1))))))))))