Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

ConTeXt writer: Made --toc work even without --number-sections.

Browse source
This commit is contained in:
John MacFarlane 2011-12-30 11:42:05 -08:00
parent c5c7aa653a
commit edf646a90d
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/ConTeXt.hs
View file

@ -76,6 +76,7 @@ pandocToConTeXt options (Pandoc (Meta title authors date) blocks) = do
, ("body", main) , ("body", main)
, ("title", titletext) , ("title", titletext)
, ("date", datetext) ] ++ , ("date", datetext) ] ++
[ ("number-sections", "yes") | writerNumberSections options ] ++
[ ("author", a) | a <- authorstext ] [ ("author", a) | a <- authorstext ]
return $ if writerStandalone options return $ if writerStandalone options
then renderTemplate context $ writerTemplate options then renderTemplate context $ writerTemplate options
@ -175,11 +176,10 @@ blockToConTeXt (Header level lst) = do
contents <- inlineListToConTeXt lst contents <- inlineListToConTeXt lst
st <- get st <- get
let opts = stOptions st let opts = stOptions st
let base = if writerNumberSections opts then "section" else "subject"
let level' = if writerChapters opts then level - 1 else level let level' = if writerChapters opts then level - 1 else level
return $ if level' >= 1 && level' <= 5 return $ if level' >= 1 && level' <= 5
then char '\\' <> text (concat (replicate (level' - 1) "sub")) <> then char '\\' <> text (concat (replicate (level' - 1) "sub")) <>
text base <> char '{' <> contents <> char '}' <> blankline text "section" <> char '{' <> contents <> char '}' <> blankline
else if level' == 0 else if level' == 0
then "\\chapter{" <> contents <> "}" then "\\chapter{" <> contents <> "}"
else contents <> blankline else contents <> blankline

2
templates

@ -1 +1 @@
Subproject commit 88ec0260641e994069fa1b2c1912306c515420f8 Subproject commit 5dcdf3738f0469143bb61ec9b89e9b34a21e2194