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

Scribbled games docs

Browse Source 
svn: r9246

original commit: 18f408767332d345e194a8ba78a9199ee7a2887a
This commit is contained in:
Matthew Flatt 2008-04-11 00:16:05 +00:00
parent a0ad4dfa64
commit 8343c07795
4 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scribble/html-render.ss
View File

@ -758,7 +758,7 @@
`((a ((name ,(url-anchor-name style))) `((a ((name ,(url-anchor-name style)))
,@(super render-element e part ri)))] ,@(super render-element e part ri)))]
[(image-file? style) [(image-file? style)
(let* ([src (image-file-path style)] (let* ([src (main-collects-relative->path (image-file-path style))]
[scale (image-file-scale style)] [scale (image-file-scale style)]
[sz (if (= 1.0 scale) [sz (if (= 1.0 scale)
null null
@ -776,7 +776,7 @@
`((width ,(to-num w)) `((width ,(to-num w))
(height ,(to-num h)))) (height ,(to-num h))))
null))))]) null))))])
`((img ((src ,(install-file src)) ,@sz))))] `((img ((src ,(install-file src))) ,@sz)))]
[else (super render-element e part ri)]))) [else (super render-element e part ri)])))
(define/override (render-table t part ri need-inline?) (define/override (render-table t part ri need-inline?)

5
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
setup/main-collects
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide render-mixin) (provide render-mixin)
@ -162,7 +163,9 @@
(/ (cadddr style) 255.0)))) (/ (cadddr style) 255.0))))
#f)] #f)]
[(image-file? style) [(image-file? style)
(let ([fn (install-file (image-file-path style))]) (let ([fn (install-file
(main-collects-relative->path
(image-file-path style)))])
(printf "\\includegraphics[scale=~a]{~a}" (image-file-scale style) fn))] (printf "\\includegraphics[scale=~a]{~a}" (image-file-scale style) fn))]
[else (super render-element e part ri)]))) [else (super render-element e part ri)])))
(when part-label? (when part-label?

4
collects/scribble/struct.ss
View File

@ -174,7 +174,9 @@
[target-url ([addr (or/c string? path?)][style any/c])] [target-url ([addr (or/c string? path?)][style any/c])]
[url-anchor ([name string?])] [url-anchor ([name string?])]
[image-file ([path path-string?] [image-file ([path (or/c path-string?
(cons/c (one-of/c 'collects)
(listof bytes?)))]
[scale real?])]) [scale real?])])
;; ---------------------------------------- ;; ----------------------------------------

23
collects/scribble/xref.ss
View File

@ -64,16 +64,19 @@
;; resulting html ;; resulting html
(define (xref-render xrefs doc dest-file (define (xref-render xrefs doc dest-file
#:render% [render% (html:render-mixin render%)]) #:render% [render% (html:render-mixin render%)])
(let* ([dest-file (if (string? dest-file) (string->path dest-file) dest-file)] ;; In case rendering writes a file (like an image file), which to the
[renderer (new render% [dest-dir (and dest-file (path-only dest-file))] ;; temp directory:
[css-path 'inline])] (parameterize ([current-directory (find-system-path 'temp-dir)])
[ci (send renderer collect (list doc) (list dest-file))] (let* ([dest-file (if (string? dest-file) (string->path dest-file) dest-file)]
[_ (send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))] [renderer (new render% [dest-dir (and dest-file (path-only dest-file))]
[ri (send renderer resolve (list doc) (list dest-file) ci)] [css-path 'inline])]
[xs (send renderer render (list doc) (list dest-file) ri)]) [ci (send renderer collect (list doc) (list dest-file))]
(if dest-file [_ (send renderer transfer-info ci (resolve-info-ci (xrefs-ri xrefs)))]
(void) [ri (send renderer resolve (list doc) (list dest-file) ci)]
(car xs)))) [xs (send renderer render (list doc) (list dest-file) ri)])
(if dest-file
(void)
(car xs)))))
;; Returns (values <tag-or-#f> <form?>) ;; Returns (values <tag-or-#f> <form?>)
(define xref-binding-tag (define xref-binding-tag