aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2013-02-18 10:55:08 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2013-02-18 10:55:08 -0800
commit83521c18e91ca7e27dc6edd7d4e612e8782d598c (patch)
tree269fc014c582f71d74568198a22b92fdffaebdf4 /src/Text/Pandoc/Writers
parentf9e6433d242320aab4e90985447c964863b881e2 (diff)
downloadpandoc-83521c18e91ca7e27dc6edd7d4e612e8782d598c.tar.gz
ConTeXt writer: now sensitive to 'unnumbered' class in headers.
In this case \title, \subject are used instead of \chapter, \section.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/ConTeXt.hs17
1 files changed, 10 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index 5662a6403..0566abbbd 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -121,8 +121,8 @@ stringToConTeXt opts = concatMap (escapeCharForConTeXt opts)
-- | Convert Elements to ConTeXt
elementToConTeXt :: WriterOptions -> Element -> State WriterState Doc
elementToConTeXt _ (Blk block) = blockToConTeXt block
-elementToConTeXt opts (Sec level _ (id',_,_) title' elements) = do
- header' <- sectionHeader id' level title'
+elementToConTeXt opts (Sec level _ attr title' elements) = do
+ header' <- sectionHeader attr level title'
innerContents <- mapM (elementToConTeXt opts) elements
return $ vcat (header' : innerContents)
@@ -191,7 +191,7 @@ blockToConTeXt (DefinitionList lst) =
liftM vcat $ mapM defListItemToConTeXt lst
blockToConTeXt HorizontalRule = return $ "\\thinrule" <> blankline
-- If this is ever executed, provide a default for the reference identifier.
-blockToConTeXt (Header level (ident,_,_) lst) = sectionHeader ident level lst
+blockToConTeXt (Header level attr lst) = sectionHeader attr level lst
blockToConTeXt (Table caption aligns widths heads rows) = do
let colDescriptor colWidth alignment = (case alignment of
AlignLeft -> 'l'
@@ -334,23 +334,26 @@ inlineToConTeXt (Note contents) = do
text "\\stopbuffer\\footnote{\\getbuffer}"
-- | Craft the section header, inserting the secton reference, if supplied.
-sectionHeader :: [Char]
+sectionHeader :: Attr
-> Int
-> [Inline]
-> State WriterState Doc
-sectionHeader ident hdrLevel lst = do
+sectionHeader (ident,classes,_) hdrLevel lst = do
contents <- inlineListToConTeXt lst
st <- get
let opts = stOptions st
let level' = if writerChapters opts then hdrLevel - 1 else hdrLevel
+ let (section, chapter) = if "unnumbered" `elem` classes
+ then (text "subject", text "title")
+ else (text "section", text "chapter")
return $ if level' >= 1 && level' <= 5
then char '\\'
<> text (concat (replicate (level' - 1) "sub"))
- <> text "section"
+ <> section
<> (if (not . null) ident then brackets (text ident) else empty)
<> braces contents
<> blankline
else if level' == 0
- then "\\chapter{" <> contents <> "}"
+ then char '\\' <> chapter <> braces contents
else contents <> blankline