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

latex output, especially margin notes

Browse Source 
svn: r6496

original commit: 0b9493032b3a6d55d85c291ad54e84a513d6fb80
This commit is contained in:
Matthew Flatt 2007-06-06 01:20:49 +00:00
parent c049ea87f0
commit 5a0cc3d55f
1 changed files with 55 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -88,17 +88,24 @@
(define/override (render-paragraph p part ht) (define/override (render-paragraph p part ht)
(printf "\n\n") (printf "\n\n")
(let ([margin? (and (styled-paragraph? p)
(equal? "refpara" (styled-paragraph-style p)))])
(when margin?
(printf "\\marginpar{\\footnotesize "))
(if (toc-paragraph? p) (if (toc-paragraph? p)
(printf "\\newpage \\tableofcontents \\newpage") (printf "\\newpage \\tableofcontents \\newpage")
(super render-paragraph p part ht)) (super render-paragraph p part ht))
(when margin?
(printf "}")))
(printf "\n\n") (printf "\n\n")
null) null)
(define/override (render-element e part ht) (define/override (render-element e part ht)
(when (and (link-element? e) (let ([part-label? (and (link-element? e)
(pair? (link-element-tag e)) (pair? (link-element-tag e))
(eq? 'part (car (link-element-tag e))) (eq? 'part (car (link-element-tag e)))
(null? (element-content e))) (null? (element-content e)))])
(when part-label?
(printf "\\S") (printf "\\S")
(render-content (let ([dest (lookup part ht (link-element-tag e))]) (render-content (let ([dest (lookup part ht (link-element-tag e))])
(if dest (if dest
@ -106,7 +113,7 @@
(list "???"))) (list "???")))
part part
ht) ht)
(printf " ")) (printf " ``"))
(let ([style (and (element? e) (let ([style (and (element? e)
(element-style e))] (element-style e))]
[wrap (lambda (e s tt?) [wrap (lambda (e s tt?)
@ -138,6 +145,8 @@
(let ([fn (install-file (image-file-path style))]) (let ([fn (install-file (image-file-path style))])
(printf "\\includegraphics{~a}" fn))] (printf "\\includegraphics{~a}" fn))]
[else (super render-element e part ht)])) [else (super render-element e part ht)]))
(when part-label?
(printf "''")))
null) null)
(define/override (render-table t part ht) (define/override (render-table t part ht)