suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

better latex rendering of tt curly braces and backslash

Browse Source 
svn: r13665

original commit: 839bc78f4ba9af1ecf9f978f5ba8f3196da06264
This commit is contained in:
Matthew Flatt 2009-02-16 15:59:39 +00:00
parent 904826dc7d
commit d166f0969c
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/scribble/latex-render.ss
View File

@ -371,7 +371,9 @@
(let ([c (string-ref s i)]) (let ([c (string-ref s i)])
(display (display
(case c (case c
[(#\\) "$\\backslash$"] [(#\\) (if (rendering-tt)
"{\\char`\\\\}"
"$\\backslash$")]
[(#\_) "$\\_$"] [(#\_) "$\\_$"]
[(#\^) "{\\char'136}"] [(#\^) "{\\char'136}"]
[(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")] [(#\>) (if (rendering-tt) "{\\texttt >}" "$>$")]
@ -380,7 +382,10 @@
[(#\? #\! #\. #\:) [(#\? #\! #\. #\:)
(if (rendering-tt) (format "{\\hbox{\\texttt{~a}}}" c) c)] (if (rendering-tt) (format "{\\hbox{\\texttt{~a}}}" c) c)]
[(#\~) "$\\sim$"] [(#\~) "$\\sim$"]
[(#\{ #\} #\# #\% #\& #\$) (format "\\~a" c)] [(#\{ #\}) (if (rendering-tt)
(format "{\\char`\\~a}" c)
(format "\\~a" c))]
[(#\# #\% #\& #\$) (format "\\~a" c)]
[(#\uA0) "~"] [(#\uA0) "~"]
[(#\uDF) "{\\ss}"] [(#\uDF) "{\\ss}"]
[(#\u039A) "K"] ; kappa [(#\u039A) "K"] ; kappa