+#(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))))))))))
+
+music = \relative c {
+ c4 d e f
+ g4 a b c
+ d4 e f g