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

fix Scribble Latex rendering of consecutive dashes and quotes

Browse Source
This commit is contained in:
Matthew Flatt 2010-07-24 20:14:45 -05:00
parent 3db5c5173a
commit 96d528db9e
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/scribble/latex-render.rkt
View File

@ -562,11 +562,11 @@
[(symbol? i) [(symbol? i)
(display (case i (display (case i
[(nbsp) "~"] [(nbsp) "~"]
[(mdash) "---"] [(mdash) "{---}"]
[(ndash) "--"] [(ndash) "{--}"]
[(ldquo) "``"] [(ldquo) "{``}"]
[(rdquo) "''"] [(rdquo) "{''}"]
[(rsquo) "'"] [(rsquo) "{'}"]
[(prime) "$'$"] [(prime) "$'$"]
[(rarr) "$\\rightarrow$"] [(rarr) "$\\rightarrow$"]
[(larr) "$\\leftarrow$"] [(larr) "$\\leftarrow$"]
@ -597,6 +597,9 @@
[(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")] [(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")]
[(#\<) (if (rendering-tt) "{\\texttt <}" "$<$")] [(#\<) (if (rendering-tt) "{\\texttt <}" "$<$")]
[(#\|) (if (rendering-tt) "{\\texttt |}" "$|$")] [(#\|) (if (rendering-tt) "{\\texttt |}" "$|$")]
[(#\-) "{-}"] ;; avoid en- or em-dash
[(#\`) "{`}"] ;; avoid double-quotes
[(#\') "{'}"] ;; avoid double-quotes
[(#\? #\! #\. #\:) [(#\? #\! #\. #\:)
(if (rendering-tt) (format "{\\hbox{\\texttt{~a}}}" c) c)] (if (rendering-tt) (format "{\\hbox{\\texttt{~a}}}" c) c)]
[(#\~) "$\\sim$"] [(#\~) "$\\sim$"]