Hi Abraham,
Well, as a very quick hack, you can change the uppercase hardwired A in this
code to lowercase hardwired as below. I am not suggesting this is the best
solution, but it works.
Andrew
— snip
define-markup-commands.scm
(define number->mark-letter-vector (make-vector 25 #\a))
(do ((i 0 (1+ i))
(j 0 (1+ j)))
((>= i 26))
(if (= i (- (char->integer #\i) (char->integer #\a)))
(set! i (1+ i)))
(vector-set! number->mark-letter-vector j
(integer->char (+ i (char->integer #\a)))))
(define number->mark-alphabet-vector (list->vector
(map (lambda (i) (integer->char (+ i
(char->integer #\a)))) (iota 26))))
— snip
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
