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

Scribble Latex image support (missed an earlier commit)

Browse Source 
original commit: cc82d3728525b5bac3f2cb91d249d5404a7a3bd0
This commit is contained in:
Matthew Flatt 2010-11-28 07:46:23 -07:00
parent 8f876ea446
commit d2293dc223
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -249,15 +249,13 @@
(image-element-scale e) fn))]
[(and (convertible? e)
(not (disable-images))
(convert e 'pdf-bytes))
=> (lambda (bstr)
(let ([fn (install-file "pict.pdf" bstr)])
(printf "\\includegraphics{~a}" fn)))]
[(and (convertible? e)
(not (disable-images))
(convert e 'png-bytes))
=> (lambda (bstr)
(let ([fn (install-file "pict.png" bstr)])
(let ([ftag (lambda (v suffix) (and v (list v suffix)))])
(or (ftag (convert e 'pdf-bytes) ".pdf")
(ftag (convert e 'eps-bytes) ".ps")
(ftag (convert e 'png-bytes) ".png"))))
=> (lambda (bstr+suffix)
(let ([fn (install-file (format "pict.~a" (cadr bstr+suffix))
(car bstr+suffix))])
(printf "\\includegraphics{~a}" fn)))]
[else
(parameterize ([rendering-tt (or tt? (rendering-tt))])