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

fix Scribble Latex rendering of consecutive dashes and quotes

Browse Source 
original commit: 96d528db9edac819d209ed184ab94e7075316576
This commit is contained in:
Matthew Flatt 2010-07-24 20:14:45 -05:00
commit 42c4576533
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/base-render.rkt
View File

@ -207,7 +207,7 @@
;; marshal info ;; marshal info
(define/public (get-serialize-version) (define/public (get-serialize-version)
2) 3)
(define/public (serialize-info ri) (define/public (serialize-info ri)
(parameterize ([current-serialize-resolve-info ri]) (parameterize ([current-serialize-resolve-info ri])

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$"]