@@ -598,6 +598,33 @@ mkLvl marker lvl =
598598getNumId :: WS Int
599599getNumId = (((baseListId - 1) +) . length) `fmap` gets stLists
600600
601+makeTOC :: WriterOptions -> WS [Element]
602+makeTOC opts | writerTableOfContents opts = do
603+ let depth = "1-"++(show (writerTOCDepth opts))
604+ let tocCmd = "TOC \\o \""++depth++"\" \\h \\z \\u"
605+ title <- withParaPropM (pStyleM "TOC Heading") (blocksToOpenXML opts [Para [Str "Table of Contents"]])
606+ return $
607+ [mknode "w:sdt" [] ([
608+ mknode "w:sdtPr" [] (
609+ mknode "w:docPartObj" [] (
610+ [mknode "w:docPartGallery" [("w:val","Table of Contents")] (),
611+ mknode "w:docPartUnique" [] ()]
612+ ) -- w:docPartObj
613+ ), -- w:sdtPr
614+ mknode "w:sdtContent" [] (title++[
615+ mknode "w:p" [] (
616+ mknode "w:r" [] ([
617+ mknode "w:fldChar" [("w:fldCharType","begin"),("w:dirty","true")] (),
618+ mknode "w:instrText" [("xml:space","preserve")] tocCmd,
619+ mknode "w:fldChar" [("w:fldCharType","separate")] (),
620+ mknode "w:fldChar" [("w:fldCharType","end")] ()
621+ ]) -- w:r
622+ ) -- w:p
623+ ])
624+ ])] -- w:sdt
625+makeTOC _ = return []
626+
627+
601628-- | Convert Pandoc document to two lists of
602629-- OpenXML elements (the main document and footnotes).
603630writeOpenXML :: WriterOptions -> Pandoc -> WS ([Element], [Element])
@@ -630,7 +657,8 @@ writeOpenXML opts (Pandoc meta blocks) = do
630657 let blocks' = bottomUp convertSpace blocks
631658 doc' <- (setFirstPara >> blocksToOpenXML opts blocks')
632659 notes' <- reverse `fmap` gets stFootnotes
633− let meta' = title ++ subtitle ++ authors ++ date ++ abstract
660+ toc <- makeTOC opts
661+ let meta' = title ++ subtitle ++ authors ++ date ++ abstract ++ toc
634662 return (meta' ++ doc', notes')
635663
636664-- | Convert a list of Pandoc blocks to OpenXML.