@@ -763,9 +763,7 @@ makeTOC _ = return []
763763-- OpenXML elements (the main document and footnotes).
764764writeOpenXML :: (PandocMonad m) => WriterOptions -> Pandoc -> WS m ([Element], [Element],[Element])
765765writeOpenXML opts (Pandoc meta blocks) = do
766− let tit = docTitle meta ++ case lookupMeta "subtitle" meta of
767− Just (MetaBlocks [Plain xs]) -> LineBreak : xs
768− _ -> []
766+ let tit = docTitle meta
769767 let auths = docAuthors meta
770768 let dat = docDate meta
771769 let abstract' = case lookupMeta "abstract" meta of
@@ -983,7 +981,7 @@ blockToOpenXML' opts (Table caption aligns widths headers rows) = do
983981 ( mknode "w:tblPr" []
984982 ( mknode "w:tblStyle" [("w:val","Table")] () :
985983 mknode "w:tblW" [("w:type", "pct"), ("w:w", show rowwidth)] () :
986− mknode "w:tblLook" [("w:firstRow","1") | hasHeader ] () :
984+ mknode "w:tblLook" [("w:firstRow",if hasHeader then "1" else "0") ] () :
987985 [ mknode "w:tblCaption" [("w:val", captionStr)] ()
988986 | not (null caption) ] )
989987 : mknode "w:tblGrid" []