|
From: | Andrew Bernard |
Subject: | Re: Lower-case letter rehearsal marks |
Date: | Wed, 09 Dec 2015 22:52:49 +1100 |
User-agent: | Microsoft-MacOutlook/0.0.0.151105 |
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 |
[Prev in Thread] | Current Thread | [Next in Thread] |