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

fix Latex rendering of subsubsubsections (PR 9487)

Browse Source 
svn: r10235

original commit: 638e458541055c6af1faf27e8ece2409bd57661d
This commit is contained in:
Matthew Flatt 2008-06-12 16:22:18 +00:00
parent e5d3889fe4
commit ac2eee61bb
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,13 +49,15 @@
(when (and (part-title-content d) (pair? number)) (when (and (part-title-content d) (pair? number))
(when (part-style? d 'index) (when (part-style? d 'index)
(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) (not (car number)))]) (let ([no-number? (and (pair? number)
(or (not (car number))
((length number) . > . 3)))])
(printf "\\~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"]
[(3) "subsubsection"] [(3) "subsubsection"]
[else "subsubsection*"]) [else "subsubsection"])
(if (and (part-style? d 'hidden) (not no-number?)) (if (and (part-style? d 'hidden) (not no-number?))
"hidden" "") "hidden" "")
(if no-number? "*" "")) (if no-number? "*" ""))