Snippet Accents et SmallCaps : tous les accents ?

[Pierre Perol-Schneider]

Cher Tous,

J'utilise souvent SmallCaps pour mes titres.

Pour ajouter les accents, je me sert d'un code (de Nicolas Sceaux si ma mémoire est bonne).

À la base, ce code ne comportait pas tous les accents.

Comme il m'arrive fréquemment de coder des partitions d'origine slave ou espagnole j'ai ajouter un grand nombre d'accents. 

Or, il m'arrive de temps à autre de tomber sur des accents qui, combinés, provoque des erreurs.

Trêve de blabla voici un exemple que j'ai limité à trois accents, êẽñ, pour faire plus simple :

\version "2.16.0"

#(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)))

        

\markup \smallCaps " Tête Tẽte Española" 

Résultat : ê apparaît normalement ẽ n'apparaît pas et ñ reste en minuscule.

Si je supprime ẽ du code, tout rentre dans l'ordre :

\version "2.16.0"

#(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)))

        

\markup \smallCaps " Tête Española" 

ê et ñ apparaissent bien en majuscules accentués.

Quelqu'un sait-il pourquoi certains accents produisent ce bug ?