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

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

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