2013/12/20 Yann <yann....@free.fr> > > Hello everybody :) > > I noticed in a score that I've recently typeset that smallCaps doesn't > support accented characters (which is indeed written in the manual). > > Is there a plan to extend smallCaps to support accented letters in future > versions ? > For now, is there a workaround ? >
Hi Yann, Here's the code I use for years. As far as I remember, the original code was made by Nicolas Sceaux but it's pretty old now and I could be wrong. %%%%%%%%%%%%%%%%%%%%%% Snippet %%%%%%%%%%%%%%%%%%%%%%%% \version "2.17.95" #(use-modules (ice-9 regex)) #(define-public string-upper-case #f) #(define accented-char-upper-case? #f) #(define accented-char-lower-case? #f) #(let ((lower-case-accented-string "áàâäǎăāãåąæǣćĉčçďđðéèêëěĕēęəĝğģĥħíìîïǐĭīĩįĵķĺŀľļłńňñóòôöǒŏōõǫőøœŕřśŝšşťţþúùûüǔŭūųǘǜǚŵýŷÿȳźž") (upper-case-accented-string "ÁÀÂÄǍĂĀÃÅĄÆǢĆĈČÇĎĐÐÉÈÊËĚĔĒĘƏĜĞĢĤĦÍÌÎÏǏĬĪĨĮĴĶĹĿĽĻŁŃŇÑÓÒÔÖǑŎŌÕǪŐØŒŔŘŚŜŠŞŤŢÞÚÙÛÜǓŬŪŲǗǛǙŴÝŶŸȲŹŽ")) (define (group-by-2 chars result) (if (or (null? chars) (null? (cdr chars))) (reverse! result) (group-by-2 (cddr chars) (cons (string (car chars) (cadr chars)) result)))) (let ((lower-case-accented-chars (group-by-2 (string->list lower-case-accented-string) (list))) (upper-case-accented-chars (group-by-2 (string->list upper-case-accented-string) (list)))) (set! string-upper-case (lambda (str) (define (replace-chars str froms tos) (if (null? froms) str (replace-chars (regexp-substitute/global #f (car froms) str 'pre (car tos) 'post) (cdr froms) (cdr tos)))) (string-upcase (replace-chars str lower-case-accented-chars upper-case-accented-chars)))) (set! accented-char-upper-case? (lambda (char1 char2) (member (string char1 char2) upper-case-accented-chars string=?))) (set! accented-char-lower-case? (lambda (char1 char2) (member (string char1 char2) lower-case-accented-chars string=?))))) #(define-markup-command (smallCaps layout props text) (markup?) (define (string-list->markup strings lower) (let ((final-string (string-upper-case (apply string-append (reverse strings))))) (if lower (markup #:fontsize -2 final-string) final-string))) (define (make-small-caps rest-chars currents current-is-lower prev-result) (if (null? rest-chars) (make-concat-markup (reverse! (cons (string-list->markup currents current-is-lower) prev-result))) (let* ((ch1 (car rest-chars)) (ch2 (and (not (null? (cdr rest-chars))) (cadr rest-chars))) (this-char-string (string ch1)) (is-lower (char-lower-case? ch1)) (next-rest-chars (cdr rest-chars))) (cond ((and ch2 (accented-char-lower-case? ch1 ch2)) (set! this-char-string (string ch1 ch2)) (set! is-lower #t) (set! next-rest-chars (cddr rest-chars))) ((and ch2 (accented-char-upper-case? ch1 ch2)) (set! this-char-string (string ch1 ch2)) (set! is-lower #f) (set! next-rest-chars (cddr rest-chars)))) (if (or (and current-is-lower is-lower) (and (not current-is-lower) (not is-lower))) (make-small-caps next-rest-chars (cons this-char-string currents) is-lower prev-result) (make-small-caps next-rest-chars (list this-char-string) is-lower (if (null? currents) prev-result (cons (string-list->markup currents current-is-lower) prev-result))))))) (interpret-markup layout props (if (string? text) (make-small-caps (string->list text) (list) #f (list)) text))) %%%%%%%%%%%%% %%%%% Examples %%%%%%%%%%%%%%%%%%%% \markup \smallCaps "A a Á á À à  â Ä ä Ǎ ǎ Ă ă Ā ā à ã Å å Ą ą Æ æ Ǣ ǣ" \markup \smallCaps "B b" \markup \smallCaps "C c Ć ć Ĉ ĉ Č č Ç ç" \markup \smallCaps "D d Ď ď Đ đ Ð ð" \markup \smallCaps "E e É é È è Ê ê Ë ë Ě ě Ĕ ĕ Ē ē Ę ę Ə ə" \markup \smallCaps "F f" \markup \smallCaps "G g Ĝ ĝ Ğ ğ Ģ ģ" \markup \smallCaps "H h Ĥ ĥ Ħ ħ" \markup \smallCaps "I i Í í Ì ì Î î Ï ï Ǐ ǐ Ĭ ĭ Ī ī Ĩ ĩ Į į" \markup \smallCaps "J j Ĵ ĵ" \markup \smallCaps "K k Ķ ķ" \markup \smallCaps "L l Ĺ ĺ Ŀ ŀ Ľ ľ Ł ł" \markup \smallCaps "M m" \markup \smallCaps "N n Ń ń Ň ň Ñ ñ" \markup \smallCaps "O o Ó ó Ò ò Ô ô Ö ö Ǒ ǒ Ŏ ŏ Ō ō Õ õ Ǫ ǫ Ő ő Ø ø Œ œ" \markup \smallCaps "P p" \markup \smallCaps "Q q" \markup \smallCaps "R r Ŕ ŕ Ř ř" \markup \smallCaps "S s Ś ś Ŝ ŝ Š š Ş ş ß" \markup \smallCaps "T t Ť ť Ţ ţ Þ þ" \markup \smallCaps "U u Ú ú Ù ù Û û Ü ü Ǔ ǔ Ŭ ŭ Ū ū Ų ų Ǘ ǘ Ǜ ǜ Ǚ ǚ" \markup \smallCaps "V v" \markup \smallCaps "W w Ŵ ŵ" \markup \smallCaps "X x" \markup \smallCaps "Y y Ý ý Ŷ ŷ Ÿ ÿ Ȳ ȳ" \markup \smallCaps "Z z Ź ź Ž ž" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Cheers, Pierre
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
