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

Browse Source 
svn: r9252

original commit: b10dbe03ab778e74e54e67d7e5f5f0cf72c900a7
This commit is contained in:
Matthew Flatt 2008-04-11 03:54:40 +00:00
parent 685cbc9a98
commit 06966ab71a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,7 +54,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{" (printf "\\~a~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,7 +66,10 @@
"") "")
(if no-number? (if no-number?
"*" "*"
""))) "")
(if (part-style? d 'hidden)
""
"[]")))
(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)