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

use define-unsafer for ffi/objc; fix more teachpack doc latex-output problems

Browse Source 
svn: r13008

original commit: c2857c1b7ce7cc1dde3cbfeb0e0175b422a2138c
This commit is contained in:
Matthew Flatt 2009-01-05 10:20:17 +00:00
parent 175881e5a5
commit 233a65234c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,6 +4,7 @@
mzlib/class mzlib/class
scheme/runtime-path scheme/runtime-path
scheme/port scheme/port
scheme/path
scheme/string scheme/string
setup/main-collects) setup/main-collects)
(provide render-mixin) (provide render-mixin)
@ -18,6 +19,11 @@
(define-runtime-path scribble-tex "scribble.tex") (define-runtime-path scribble-tex "scribble.tex")
(define (gif-to-png p)
(if (equal? (filename-extension p) #"gif")
(path-replace-suffix p #".png")
p))
(define (render-mixin %) (define (render-mixin %)
(class % (class %
(init-field [style-file #f] (init-field [style-file #f]
@ -194,7 +200,7 @@
(void) (void)
(let ([fn (install-file (let ([fn (install-file
(main-collects-relative->path (main-collects-relative->path
(image-file-path style)))]) (gif-to-png (image-file-path style))))])
(printf "\\includegraphics[scale=~a]{~a}" (printf "\\includegraphics[scale=~a]{~a}"
(image-file-scale style) fn)))] (image-file-scale style) fn)))]
[else (super render-element e part ri)]))) [else (super render-element e part ri)])))