suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Extend special characters using a function rather than a dict.

Browse Source 
Based on feedback from David Van Horn.
This commit is contained in:
Vincent St-Amour 2016-08-24 16:13:37 -05:00
parent 525b72ca4c
commit cce1eff495
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scribble-doc/scribblings/scribble/renderer.scrbl
View File

@ -2,7 +2,6 @@
@(require scribble/manual @(require scribble/manual
"utils.rkt" "utils.rkt"
(for-label racket/class (for-label racket/class
racket/dict
scribble/render scribble/render
scribble/xref)) scribble/xref))
@ -397,11 +396,14 @@ are own their own pages. A value of @racket[0] is treated the same as
Specializes a @racket[render<%>] class for generating Latex input.}} Specializes a @racket[render<%>] class for generating Latex input.}}
@defparam[extra-character-conversions convs (dictof char? string?)]{ @defparam[extra-character-conversions convs (-> char? (or/c string? #f))]{
Maps (special) characters to strings corresponding to the Latex code that Function that maps (special) characters to strings corresponding to the Latex
should be used to render them. Scribble already converts many special code that should be used to render them. This function should return false for
characters to the proper Latex commands. This parameter should be used in case any character it does not know how to handle.
you need characters it does not support yet.
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.
} }
@; ---------------------------------------- @; ----------------------------------------

5
scribble-lib/scribble/latex-render.rkt
View File

@ -3,7 +3,6 @@
"latex-properties.rkt" "latex-properties.rkt"
"private/render-utils.rkt" "private/render-utils.rkt"
racket/class racket/class
racket/dict
racket/runtime-path racket/runtime-path
racket/port racket/port
racket/string racket/string
@ -49,7 +48,7 @@
(define-runtime-path skull-tex "scribble-skull.tex") (define-runtime-path skull-tex "scribble-skull.tex")
(define skull-style (make-style #f (list (tex-addition skull-tex)))) (define skull-style (make-style #f (list (tex-addition skull-tex))))
(define extra-character-conversions (make-parameter (make-hash))) (define extra-character-conversions (make-parameter (λ (c) #f)))
(define (render-mixin % #:image-mode [image-mode #f]) (define (render-mixin % #:image-mode [image-mode #f])
(class % (class %
@ -1001,7 +1000,7 @@
[else [else
(if ((char->integer c) . > . 127) (if ((char->integer c) . > . 127)
;; first, try user-defined conversions ;; first, try user-defined conversions
(or (dict-ref convs c #f) (or (convs c)
;; latex-prefix.rkt enables utf8 input, but this does not work for ;; latex-prefix.rkt enables utf8 input, but this does not work for
;; all the characters below (e.g. ∞). Some parts of the table ;; all the characters below (e.g. ∞). Some parts of the table
;; below are therefore necessary, but some parts probably are not. ;; below are therefore necessary, but some parts probably are not.