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

fix latex output with image in section title

Browse Source 
svn: r9253

original commit: db3c6931c85b272cad69b21ed56525e8c28ed9ae
This commit is contained in:
Matthew Flatt 2008-04-11 04:05:38 +00:00
parent 06966ab71a
commit 57064d2885
1 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,6 +11,7 @@
(define current-table-mode (make-parameter #f)) (define current-table-mode (make-parameter #f))
(define rendering-tt (make-parameter #f)) (define rendering-tt (make-parameter #f))
(define show-link-page-numbers (make-parameter #f)) (define show-link-page-numbers (make-parameter #f))
(define disable-images (make-parameter #f))
(define-struct (toc-paragraph paragraph) ()) (define-struct (toc-paragraph paragraph) ())
@ -54,7 +55,7 @@
(printf "\\twocolumn\n\\parskip=0pt\n\\addcontentsline{toc}{section}{Index}\n")) (printf "\\twocolumn\n\\parskip=0pt\n\\addcontentsline{toc}{section}{Index}\n"))
(let ([no-number? (and (pair? number) (let ([no-number? (and (pair? number)
(not (car number)))]) (not (car number)))])
(printf "\\~a~a~a~a{" (printf "\\~a~a~a"
(case (length number) (case (length number)
[(0 1) "sectionNewpage\n\n\\section"] [(0 1) "sectionNewpage\n\n\\section"]
[(2) "subsection"] [(2) "subsection"]
@ -66,10 +67,13 @@
"") "")
(if no-number? (if no-number?
"*" "*"
"") ""))
(if (part-style? d 'hidden) (when (not (part-style? d 'hidden))
"" (printf "[")
"[]"))) (parameterize ([disable-images #t])
(render-content (part-title-content d) d ri))
(printf "]")))
(printf "{")
(render-content (part-title-content d) d ri) (render-content (part-title-content d) d ri)
(printf "}") (printf "}")
(when (part-style? d 'index) (when (part-style? d 'index)
@ -166,10 +170,12 @@
(/ (cadddr style) 255.0)))) (/ (cadddr style) 255.0))))
#f)] #f)]
[(image-file? style) [(image-file? style)
(if (disable-images)
(void)
(let ([fn (install-file (let ([fn (install-file
(main-collects-relative->path (main-collects-relative->path
(image-file-path style)))]) (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?
(printf "''")) (printf "''"))