bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 90ded4003f8dd7bba1e4e264d5823891f716c1a6
parent 77e9dca243b35282e791da8dc31090ca38d3609c
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Sat, 27 Nov 2010 07:36:12 -0700

bitmap% convertible to 'png-bytes; more Scribble Latex; pict in Slideshow docs

original commit: e97414b7bfc5182702c946dc7fcd024a19f7b191

Diffstat:
M
collects/scribble/latex-render.rkt
 | 
6
++++++
M
collects/scribble/racket.rkt
 | 
4
+++-

2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt
@@ -253,6 +253,12 @@
                                   => (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)])
+                                         (printf "\\includegraphics{~a}" fn)))]
                                  [else
                                   (parameterize ([rendering-tt (or tt? (rendering-tt))])
                                     (super render-content e part ri))]))]
diff --git a/collects/scribble/racket.rkt b/collects/scribble/racket.rkt
@@ -1099,7 +1099,9 @@
           (vector? v)
           (and (struct? v)
                (or (and qq 
-                        ;; Watch out for partially transparent subtypes of `element':
+                        ;; Watch out for partially transparent subtypes of `element'
+                        ;;  or convertible values:
+                        (not (convertible? v))
                         (not (element? v)))
                    (prefab-struct-key v))))
       (let ([orig-ht (unbox ht)]