#(define-markup-command (initiale layout props str) (string?)
(interpret-markup layout
props
(markup
#:concat
(#:override '(font-name . "Adobe Jenson Pro") (substring str 0 1)
(if (> (string-length str) 1)
(substring str 1)
"")))))
En fait, cela ne fait que remplacer la fonte du premier caractère. Pour que cela s'applique à toutes les capitales, cela demande une ou de lignes de plus.
C'est possible de faire une syntaxe moins contraignante, mais ça demande vraiment du boulot.