commit 525b72ca4c37a317f91798775ec412698f88fa82
parent 78a517a34d6655af288b45c3fc09bbd4c8561d8f
Author: Vincent St-Amour <stamourv@racket-lang.org>
Date: Thu, 10 Mar 2016 14:50:56 -0600
Make the list of special characters user-extensible .
Diffstat:
2 files changed, 252 insertions(+), 238 deletions(-)
diff --git a/scribble-doc/scribblings/scribble/renderer.scrbl b/scribble-doc/scribblings/scribble/renderer.scrbl
@@ -2,6 +2,7 @@
@(require scribble/manual
"utils.rkt"
(for-label racket/class
+ racket/dict
scribble/render
scribble/xref))
@@ -396,6 +397,13 @@ are own their own pages. A value of @racket[0] is treated the same as
Specializes a @racket[render<%>] class for generating Latex input.}}
+@defparam[extra-character-conversions convs (dictof char? string?)]{
+Maps (special) characters to strings corresponding to the Latex code that
+should be used to render them. Scribble already converts many special
+characters to the proper Latex commands. This parameter should be used in case
+you need characters it does not support yet.
+}
+
@; ----------------------------------------
@section{PDF Renderer}
diff --git a/scribble-lib/scribble/latex-render.rkt b/scribble-lib/scribble/latex-render.rkt
@@ -3,6 +3,7 @@
"latex-properties.rkt"
"private/render-utils.rkt"
racket/class
+ racket/dict
racket/runtime-path
racket/port
racket/string
@@ -11,7 +12,8 @@
setup/collects
file/convertible)
(provide render-mixin
- make-render-part-mixin)
+ make-render-part-mixin
+ extra-character-conversions)
(define current-table-mode (make-parameter #f))
(define rendering-tt (make-parameter #f))
@@ -47,6 +49,8 @@
(define-runtime-path skull-tex "scribble-skull.tex")
(define skull-style (make-style #f (list (tex-addition skull-tex))))
+(define extra-character-conversions (make-parameter (make-hash)))
+
(define (render-mixin % #:image-mode [image-mode #f])
(class %
(super-new)
@@ -941,7 +945,8 @@
[else ses])))
(define/private (display-protected s)
- (define rtt (rendering-tt))
+ (define rtt (rendering-tt))
+ (define convs (extra-character-conversions))
(cond
[(eq? rtt 'exact)
(display s)]
@@ -995,242 +1000,243 @@
[(#\uDF) "{\\ss}"]
[else
(if ((char->integer c) . > . 127)
- ;; latex-prefix.rkt enables utf8 input, but this does not work for
- ;; all the characters below (e.g. ∞). Some parts of the table
- ;; below are therefore necessary, but some parts probably are not.
- ;; Which parts are necessary may depend on the latex version,
- ;; though, so we keep this table around to avoid regressions.
- (case c
- [(#\╔ #\═ #\╗ #\║ #\╚ #\╝ #\╦ #\╠ #\╣ #\╬ #\╩) (box-character c)]
- [(#\┌ #\─ #\┐ #\│ #\└ #\┘ #\┬ #\├ #\┤ #\┼ #\┴) (box-character c)]
- [(#\┏ #\━ #\┓ #\┃ #\┗ #\┛ #\┳ #\┣ #\┫ #\╋ #\┻) (box-character c 2)]
- [(#\u2011) "\\mbox{-}"] ; non-breaking hyphen
- [(#\uB0) "$^{\\circ}$"] ; degree
- [(#\uB2) "$^2$"]
- [(#\u039A) "K"] ; kappa
- [(#\u0391) "A"] ; alpha
- [(#\u039F) "O"] ; omicron
- [(#\u03A3) "$\\Sigma$"]
- [(#\u03BA) "$\\kappa$"]
- [(#\u03B1) "$\\alpha$"]
- [(#\u03B2) "$\\beta$"]
- [(#\u03B3) "$\\gamma$"]
- [(#\u03BF) "o"] ; omicron
- [(#\u03C3) "$\\sigma$"]
- [(#\u03C2) "$\\varsigma$"]
- [(#\u03BB) "$\\lambda$"]
- [(#\u039B) "$\\Lambda$"]
- [(#\u03BC) "$\\mu$"]
- [(#\u03C0) "$\\pi$"]
- [(#\ϖ) "$\\varpi$"]
- [(#\‘) "{`}"]
- [(#\’) "{'}"]
- [(#\“) "{``}"]
- [(#\”) "{''}"]
- [(#\u2013) "{--}"]
- [(#\u2014) "{---}"]
- [(#\⟨ #\〈) "$\\langle$"] ; [MATHEMATICAL] LEFT ANGLE BRACKET
- [(#\⟩ #\〉) "$\\rangle$"] ; [MATHEMATICAL] RIGHT ANGLE BRACKET
- [(#\∞) "$\\infty$"]
- [(#\⇓) "$\\Downarrow$"]
- [(#\↖) "$\\nwarrow$"]
- [(#\↓) "$\\downarrow$"]
- [(#\⇒) "$\\Rightarrow$"]
- [(#\→) "$\\rightarrow$"]
- [(#\↘) "$\\searrow$"]
- [(#\↙) "$\\swarrow$"]
- [(#\←) "$\\leftarrow$"]
- [(#\↑) "$\\uparrow$"]
- [(#\⇐) "$\\Leftarrow$"]
- [(#\−) "$\\longrightarrow$"]
- [(#\⇑) "$\\Uparrow$"]
- [(#\⇔) "$\\Leftrightarrow$"]
- [(#\↕) "$\\updownarrow$"]
- [(#\↔) "$\\leftrightarrow$"]
- [(#\↗) "$\\nearrow$"]
- [(#\⇕) "$\\Updownarrow$"]
- [(#\א) "$\\aleph$"]
- [(#\′) "$\\prime$"]
- [(#\∅) "$\\emptyset$"]
- [(#\∇) "$\\nabla$"]
- [(#\♦) "$\\diamondsuit$"]
- [(#\♠) "$\\spadesuit$"]
- [(#\♣) "$\\clubsuit$"]
- [(#\♥) "$\\heartsuit$"]
- [(#\♯) "$\\sharp$"]
- [(#\♭) "$\\flat$"]
- [(#\♮) "$\\natural$"]
- [(#\√) "$\\surd$"]
- [(#\∆) "$\\Delta$"] ; no better mapping for than \Delta for "increment"
- [(#\u2211) "$\\sum$"] ; better than \Sigma, right?
- [(#\u220F) "$\\prod$"] ; better than \Pi, right?
- [(#\u2210) "$\\coprod$"]
- [(#\u222B) "$\\int$"]
- [(#\u222E) "$\\oint$"]
- [(#\¬) "$\\neg$"]
- [(#\△) "$\\triangle$"]
- [(#\∀) "$\\forall$"]
- [(#\∃) "$\\exists$"]
- [(#\∘) "$\\circ$"]
- [(#\θ) "$\\theta$"]
- [(#\ϑ) "$\\vartheta$"]
- [(#\τ) "$\\tau$"]
- [(#\υ) "$\\upsilon$"]
- [(#\φ) "$\\phi$"]
- [(#\ϕ) "$\\varphi$"]
- [(#\δ) "$\\delta$"]
- [(#\ρ) "$\\rho$"]
- [(#\ϱ) "$\\varrho$"]
- [(#\ϵ) "$\\epsilon$"]
- [(#\ε) "$\\varepsilon$"]
- [(#\χ) "$\\chi$"]
- [(#\ψ) "$\\psi$"]
- [(#\ζ) "$\\zeta$"]
- [(#\ν) "$\\nu$"]
- [(#\ω) "$\\omega$"]
- [(#\η) "$\\eta$"]
- [(#\ι) "$\\iota$"]
- [(#\ξ) "$\\xi$"]
- [(#\Γ) "$\\Gamma$"]
- [(#\Ψ) "$\\Psi$"]
- [(#\Δ) "$\\Delta$"]
- [(#\Ξ) "$\\Xi$"]
- [(#\Υ) "$\\Upsilon$"]
- [(#\Ω) "$\\Omega$"]
- [(#\Θ) "$\\Theta$"]
- [(#\Π) "$\\Pi$"]
- [(#\Φ) "$\\Phi$"]
- [(#\±) "$\\pm$"]
- [(#\∩) "$\\cap$"]
- [(#\◇) "$\\diamond$"]
- [(#\⊕) "$\\oplus$"]
- [(#\∓) "$\\mp$"]
- [(#\∪) "$\\cup$"]
- [(#\△) "$\\bigtriangleup$"]
- [(#\⊖) "$\\ominus$"]
- [(#\×) "$\\times$"]
- [(#\⊎) "$\\uplus$"]
- [(#\▽) "$\\bigtriangledown$"]
- [(#\⊗) "$\\otimes$"]
- [(#\÷) "$\\div$"]
- [(#\⊓) "$\\sqcap$"]
- [(#\▹) "$\\triangleleft$"]
- [(#\⊘) "$\\oslash$"]
- [(#\∗) "$\\ast$"]
- [(#\⊔) "$\\sqcup$"]
- [(#\∨) "$\\vee$"]
- [(#\∧) "$\\wedge$"]
- [(#\◃) "$\\triangleright$"]
- [(#\⊙) "$\\odot$"]
- [(#\★) "$\\star$"]
- [(#\†) "$\\dagger$"]
- [(#\•) "$\\bullet$"]
- [(#\‡) "$\\ddagger$"]
- [(#\≀) "$\\wr$"]
- [(#\⨿) "$\\amalg$"]
- [(#\≤) "$\\leq$"]
- [(#\≥) "$\\geq$"]
- [(#\≡) "$\\equiv$"]
- [(#\⊨) "$\\models$"]
- [(#\≺) "$\\prec$"]
- [(#\≻) "$\\succ$"]
- [(#\∼) "$\\sim$"]
- [(#\⊥) "$\\perp$"]
- [(#\≼) "$\\preceq$"]
- [(#\≽) "$\\succeq$"]
- [(#\≃) "$\\simeq$"]
- [(#\≪) "$\\ll$"]
- [(#\≫) "$\\gg$"]
- [(#\≍) "$\\asymp$"]
- [(#\∥) "$\\parallel$"]
- [(#\⊂) "$\\subset$"]
- [(#\⊃) "$\\supset$"]
- [(#\≈) "$\\approx$"]
- [(#\⋈) "$\\bowtie$"]
- [(#\⊆) "$\\subseteq$"]
- [(#\⊇) "$\\supseteq$"]
- [(#\≌) "$\\cong$"]
- [(#\⊏) "$\\sqsubset$"]
- [(#\⊐) "$\\sqsupset$"]
- [(#\≠) "$\\neq$"]
- [(#\⌣) "$\\smile$"]
- [(#\⊑) "$\\sqsubseteq$"]
- [(#\⊒) "$\\sqsupseteq$"]
- [(#\≐) "$\\doteq$"]
- [(#\⌢) "$\\frown$"]
- [(#\∈) "$\\in$"]
- [(#\∉) "$\\not\\in$"]
- [(#\∋) "$\\ni$"]
- [(#\∝) "$\\propto$"]
- [(#\⊢) "$\\vdash$"]
- [(#\⊣) "$\\dashv$"]
- [(#\☠) "$\\skull$"]
- [(#\☺) "$\\smiley$"]
- [(#\☻) "$\\blacksmiley$"]
- [(#\☹) "$\\frownie$"]
- [(#\ø) "{\\o}"]
- [(#\Ø) "{\\O}"]
- [(#\ł) "{\\l}"]
- [(#\Ł) "{\\L}"]
- [(#\uA7) "{\\S}"]
- [(#\⟦ #\〚) "$[\\![$"]
- [(#\⟧ #\〛) "$]\\!]$"]
- [(#\↦) "$\\mapsto$"]
- [(#\⊤) "$\\top$"]
- [(#\¥) "{\\textyen}"]
- [(#\™) "{\\texttrademark}"]
- [(#\®) "{\\textregistered}"]
- [(#\©) "{\\textcopyright}"]
- [(#\u2070) "$^0$"]
- [(#\u00b9) "$^1$"]
- [(#\u00b2) "$^2$"]
- [(#\u00b3) "$^3$"]
- [(#\u2074) "$^4$"]
- [(#\u2075) "$^5$"]
- [(#\u2076) "$^6$"]
- [(#\u2077) "$^7$"]
- [(#\u2078) "$^8$"]
- [(#\u2079) "$^9$"]
- [(#\u207a) "$^+$"]
- [(#\u207b) "$^-$"]
- [(#\⋖) "$\\precdot$"]
- [(#\⋗) "$\\succdot$"]
- [(#\⋮) "\\vdots"]
- [(#\⋱) "$\\ddots$"]
- [(#\⋯) "$\\cdots$"]
- [(#\⋯) "\\hdots"]
- [else
- (cond
- [(char<=? #\uAC00 c #\uD7AF) ; Korean Hangul
- (format "\\begin{CJK}{UTF8}{mj}~a\\end{CJK}" c)]
- [else
- ;; Detect characters that can be formed with combining characters
- ;; and translate them to Latex combinations:
- (define s (string-normalize-nfd (string c)))
- (define len (string-length s))
- (cond
- [(len . > . 1)
- (define combiner (case (string-ref s (sub1 len))
- [(#\u300) "\\`{~a}"]
- [(#\u301) "\\'{~a}"]
- [(#\u302) "\\^{~a}"]
- [(#\u303) "\\~~{~a}"]
- [(#\u304) "\\={~a}"]
- [(#\u306) "\\u{~a}"]
- [(#\u307) "\\.{~a}"]
- [(#\u308) "\\\"{~a}"]
- [(#\u30a) "\\r{~a}"]
- [(#\u30b) "\\H{~a}"]
- [(#\u30c) "\\v{~a}"]
- [(#\u327) "\\c{~a}"]
- [(#\u328) "\\k{~a}"]
- [else #f]))
- (define base (string-normalize-nfc (substring s 0 (sub1 len))))
- (if (and combiner
- (= 1 (string-length base)))
- (format combiner (char-loop (string-ref base 0)))
- c)]
- [else c])])])
+ ;; first, try user-defined conversions
+ (or (dict-ref convs c #f)
+ ;; latex-prefix.rkt enables utf8 input, but this does not work for
+ ;; all the characters below (e.g. ∞). Some parts of the table
+ ;; below are therefore necessary, but some parts probably are not.
+ ;; Which parts are necessary may depend on the latex version,
+ ;; though, so we keep this table around to avoid regressions.
+ (case c
+ [(#\╔ #\═ #\╗ #\║ #\╚ #\╝ #\╦ #\╠ #\╣ #\╬ #\╩) (box-character c)]
+ [(#\┌ #\─ #\┐ #\│ #\└ #\┘ #\┬ #\├ #\┤ #\┼ #\┴) (box-character c)]
+ [(#\┏ #\━ #\┓ #\┃ #\┗ #\┛ #\┳ #\┣ #\┫ #\╋ #\┻) (box-character c 2)]
+ [(#\u2011) "\\mbox{-}"] ; non-breaking hyphen
+ [(#\uB0) "$^{\\circ}$"] ; degree
+ [(#\uB2) "$^2$"]
+ [(#\u039A) "K"] ; kappa
+ [(#\u0391) "A"] ; alpha
+ [(#\u039F) "O"] ; omicron
+ [(#\u03A3) "$\\Sigma$"]
+ [(#\u03BA) "$\\kappa$"]
+ [(#\u03B1) "$\\alpha$"]
+ [(#\u03B2) "$\\beta$"]
+ [(#\u03B3) "$\\gamma$"]
+ [(#\u03BF) "o"] ; omicron
+ [(#\u03C3) "$\\sigma$"]
+ [(#\u03C2) "$\\varsigma$"]
+ [(#\u03BB) "$\\lambda$"]
+ [(#\u039B) "$\\Lambda$"]
+ [(#\u03BC) "$\\mu$"]
+ [(#\u03C0) "$\\pi$"]
+ [(#\‘) "{`}"]
+ [(#\’) "{'}"]
+ [(#\“) "{``}"]
+ [(#\”) "{''}"]
+ [(#\u2013) "{--}"]
+ [(#\u2014) "{---}"]
+ [(#\⟨ #\〈) "$\\langle$"] ; [MATHEMATICAL] LEFT ANGLE BRACKET
+ [(#\⟩ #\〉) "$\\rangle$"] ; [MATHEMATICAL] RIGHT ANGLE BRACKET
+ [(#\∞) "$\\infty$"]
+ [(#\⇓) "$\\Downarrow$"]
+ [(#\↖) "$\\nwarrow$"]
+ [(#\↓) "$\\downarrow$"]
+ [(#\⇒) "$\\Rightarrow$"]
+ [(#\→) "$\\rightarrow$"]
+ [(#\↘) "$\\searrow$"]
+ [(#\↙) "$\\swarrow$"]
+ [(#\←) "$\\leftarrow$"]
+ [(#\↑) "$\\uparrow$"]
+ [(#\⇐) "$\\Leftarrow$"]
+ [(#\−) "$\\longrightarrow$"]
+ [(#\⇑) "$\\Uparrow$"]
+ [(#\⇔) "$\\Leftrightarrow$"]
+ [(#\↕) "$\\updownarrow$"]
+ [(#\↔) "$\\leftrightarrow$"]
+ [(#\↗) "$\\nearrow$"]
+ [(#\⇕) "$\\Updownarrow$"]
+ [(#\א) "$\\aleph$"]
+ [(#\′) "$\\prime$"]
+ [(#\∅) "$\\emptyset$"]
+ [(#\∇) "$\\nabla$"]
+ [(#\♦) "$\\diamondsuit$"]
+ [(#\♠) "$\\spadesuit$"]
+ [(#\♣) "$\\clubsuit$"]
+ [(#\♥) "$\\heartsuit$"]
+ [(#\♯) "$\\sharp$"]
+ [(#\♭) "$\\flat$"]
+ [(#\♮) "$\\natural$"]
+ [(#\√) "$\\surd$"]
+ [(#\∆) "$\\Delta$"] ; no better mapping for than \Delta for "increment"
+ [(#\u2211) "$\\sum$"] ; better than \Sigma, right?
+ [(#\u220F) "$\\prod$"] ; better than \Pi, right?
+ [(#\u2210) "$\\coprod$"]
+ [(#\u222B) "$\\int$"]
+ [(#\u222E) "$\\oint$"]
+ [(#\¬) "$\\neg$"]
+ [(#\△) "$\\triangle$"]
+ [(#\∀) "$\\forall$"]
+ [(#\∃) "$\\exists$"]
+ [(#\∘) "$\\circ$"]
+ [(#\θ) "$\\theta$"]
+ [(#\ϑ) "$\\vartheta$"]
+ [(#\τ) "$\\tau$"]
+ [(#\υ) "$\\upsilon$"]
+ [(#\φ) "$\\phi$"]
+ [(#\ϕ) "$\\varphi$"]
+ [(#\δ) "$\\delta$"]
+ [(#\ρ) "$\\rho$"]
+ [(#\ϱ) "$\\varrho$"]
+ [(#\ϵ) "$\\epsilon$"]
+ [(#\ε) "$\\varepsilon$"]
+ [(#\χ) "$\\chi$"]
+ [(#\ψ) "$\\psi$"]
+ [(#\ζ) "$\\zeta$"]
+ [(#\ν) "$\\nu$"]
+ [(#\ω) "$\\omega$"]
+ [(#\η) "$\\eta$"]
+ [(#\ι) "$\\iota$"]
+ [(#\ξ) "$\\xi$"]
+ [(#\Γ) "$\\Gamma$"]
+ [(#\Ψ) "$\\Psi$"]
+ [(#\Δ) "$\\Delta$"]
+ [(#\Ξ) "$\\Xi$"]
+ [(#\Υ) "$\\Upsilon$"]
+ [(#\Ω) "$\\Omega$"]
+ [(#\Θ) "$\\Theta$"]
+ [(#\Π) "$\\Pi$"]
+ [(#\Φ) "$\\Phi$"]
+ [(#\±) "$\\pm$"]
+ [(#\∩) "$\\cap$"]
+ [(#\◇) "$\\diamond$"]
+ [(#\⊕) "$\\oplus$"]
+ [(#\∓) "$\\mp$"]
+ [(#\∪) "$\\cup$"]
+ [(#\△) "$\\bigtriangleup$"]
+ [(#\⊖) "$\\ominus$"]
+ [(#\×) "$\\times$"]
+ [(#\⊎) "$\\uplus$"]
+ [(#\▽) "$\\bigtriangledown$"]
+ [(#\⊗) "$\\otimes$"]
+ [(#\÷) "$\\div$"]
+ [(#\⊓) "$\\sqcap$"]
+ [(#\▹) "$\\triangleleft$"]
+ [(#\⊘) "$\\oslash$"]
+ [(#\∗) "$\\ast$"]
+ [(#\⊔) "$\\sqcup$"]
+ [(#\∨) "$\\vee$"]
+ [(#\∧) "$\\wedge$"]
+ [(#\◃) "$\\triangleright$"]
+ [(#\⊙) "$\\odot$"]
+ [(#\★) "$\\star$"]
+ [(#\†) "$\\dagger$"]
+ [(#\•) "$\\bullet$"]
+ [(#\‡) "$\\ddagger$"]
+ [(#\≀) "$\\wr$"]
+ [(#\⨿) "$\\amalg$"]
+ [(#\≤) "$\\leq$"]
+ [(#\≥) "$\\geq$"]
+ [(#\≡) "$\\equiv$"]
+ [(#\⊨) "$\\models$"]
+ [(#\≺) "$\\prec$"]
+ [(#\≻) "$\\succ$"]
+ [(#\∼) "$\\sim$"]
+ [(#\⊥) "$\\perp$"]
+ [(#\≼) "$\\preceq$"]
+ [(#\≽) "$\\succeq$"]
+ [(#\≃) "$\\simeq$"]
+ [(#\≪) "$\\ll$"]
+ [(#\≫) "$\\gg$"]
+ [(#\≍) "$\\asymp$"]
+ [(#\∥) "$\\parallel$"]
+ [(#\⊂) "$\\subset$"]
+ [(#\⊃) "$\\supset$"]
+ [(#\≈) "$\\approx$"]
+ [(#\⋈) "$\\bowtie$"]
+ [(#\⊆) "$\\subseteq$"]
+ [(#\⊇) "$\\supseteq$"]
+ [(#\≌) "$\\cong$"]
+ [(#\⊏) "$\\sqsubset$"]
+ [(#\⊐) "$\\sqsupset$"]
+ [(#\≠) "$\\neq$"]
+ [(#\⌣) "$\\smile$"]
+ [(#\⊑) "$\\sqsubseteq$"]
+ [(#\⊒) "$\\sqsupseteq$"]
+ [(#\≐) "$\\doteq$"]
+ [(#\⌢) "$\\frown$"]
+ [(#\∈) "$\\in$"]
+ [(#\∉) "$\\not\\in$"]
+ [(#\∋) "$\\ni$"]
+ [(#\∝) "$\\propto$"]
+ [(#\⊢) "$\\vdash$"]
+ [(#\⊣) "$\\dashv$"]
+ [(#\☠) "$\\skull$"]
+ [(#\☺) "$\\smiley$"]
+ [(#\☻) "$\\blacksmiley$"]
+ [(#\☹) "$\\frownie$"]
+ [(#\ø) "{\\o}"]
+ [(#\Ø) "{\\O}"]
+ [(#\ł) "{\\l}"]
+ [(#\Ł) "{\\L}"]
+ [(#\uA7) "{\\S}"]
+ [(#\⟦ #\〚) "$[\\![$"]
+ [(#\⟧ #\〛) "$]\\!]$"]
+ [(#\↦) "$\\mapsto$"]
+ [(#\⊤) "$\\top$"]
+ [(#\¥) "{\\textyen}"]
+ [(#\™) "{\\texttrademark}"]
+ [(#\®) "{\\textregistered}"]
+ [(#\©) "{\\textcopyright}"]
+ [(#\u2070) "$^0$"]
+ [(#\u00b9) "$^1$"]
+ [(#\u00b2) "$^2$"]
+ [(#\u00b3) "$^3$"]
+ [(#\u2074) "$^4$"]
+ [(#\u2075) "$^5$"]
+ [(#\u2076) "$^6$"]
+ [(#\u2077) "$^7$"]
+ [(#\u2078) "$^8$"]
+ [(#\u2079) "$^9$"]
+ [(#\u207a) "$^+$"]
+ [(#\u207b) "$^-$"]
+ [(#\⋖) "$\\precdot$"]
+ [(#\⋗) "$\\succdot$"]
+ [(#\⋮) "\\vdots"]
+ [(#\⋱) "$\\ddots$"]
+ [(#\⋯) "$\\cdots$"]
+ [(#\⋯) "\\hdots"]
+ [else
+ (cond
+ [(char<=? #\uAC00 c #\uD7AF) ; Korean Hangul
+ (format "\\begin{CJK}{UTF8}{mj}~a\\end{CJK}" c)]
+ [else
+ ;; Detect characters that can be formed with combining characters
+ ;; and translate them to Latex combinations:
+ (define s (string-normalize-nfd (string c)))
+ (define len (string-length s))
+ (cond
+ [(len . > . 1)
+ (define combiner (case (string-ref s (sub1 len))
+ [(#\u300) "\\`{~a}"]
+ [(#\u301) "\\'{~a}"]
+ [(#\u302) "\\^{~a}"]
+ [(#\u303) "\\~~{~a}"]
+ [(#\u304) "\\={~a}"]
+ [(#\u306) "\\u{~a}"]
+ [(#\u307) "\\.{~a}"]
+ [(#\u308) "\\\"{~a}"]
+ [(#\u30a) "\\r{~a}"]
+ [(#\u30b) "\\H{~a}"]
+ [(#\u30c) "\\v{~a}"]
+ [(#\u327) "\\c{~a}"]
+ [(#\u328) "\\k{~a}"]
+ [else #f]))
+ (define base (string-normalize-nfc (substring s 0 (sub1 len))))
+ (if (and combiner
+ (= 1 (string-length base)))
+ (format combiner (char-loop (string-ref base 0)))
+ c)]
+ [else c])])]))
c)])))
(loop (add1 i))))))]))
