Make the list of special characters user-extensible .

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}

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)
@@ -942,6 +946,7 @@
 
     (define/private (display-protected s)
       (define rtt   (rendering-tt))
+      (define convs (extra-character-conversions))
       (cond
        [(eq? rtt 'exact)
         (display s)]
@@ -995,6 +1000,8 @@
                      [(#\uDF) "{\\ss}"]
                      [else
                       (if ((char->integer c) . > . 127)
+                          ;; 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.
@@ -1022,7 +1029,6 @@
                                 [(#\u039B) "$\\Lambda$"]
                                 [(#\u03BC) "$\\mu$"]
                                 [(#\u03C0) "$\\pi$"]
-                            [(#\ϖ) "$\\varpi$"]
                                 [(#\‘) "{`}"]
                                 [(#\’) "{'}"]
                                 [(#\“) "{``}"]
@@ -1230,7 +1236,7 @@
                                               (= 1 (string-length base)))
                                          (format combiner (char-loop (string-ref base 0)))
                                          c)]
-                                [else c])])])
+                                    [else c])])]))
                           c)])))
                 (loop (add1 i))))))]))