@@ -763,9 +763,7 @@ makeTOC _ = return []
763-- OpenXML elements (the main document and footnotes).
763-- OpenXML elements (the main document and footnotes).
764writeOpenXML :: (PandocMonad m) => WriterOptions -> Pandoc -> WS m ([Element], [Element],[Element])
764writeOpenXML :: (PandocMonad m) => WriterOptions -> Pandoc -> WS m ([Element], [Element],[Element])
765writeOpenXML opts (Pandoc meta blocks) = do
765writeOpenXML opts (Pandoc meta blocks) = do
766− let tit = docTitle meta ++ case lookupMeta "subtitle" meta of
766+ let tit = docTitle meta
767− Just (MetaBlocks [Plain xs]) -> LineBreak : xs
769 let auths = docAuthors meta
767 let auths = docAuthors meta
770 let dat = docDate meta
768 let dat = docDate meta
771 let abstract' = case lookupMeta "abstract" meta of
769 let abstract' = case lookupMeta "abstract" meta of
@@ -983,7 +981,7 @@ blockToOpenXML' opts (Table caption aligns widths headers rows) = do
983 ( mknode "w:tblPr" []
981 ( mknode "w:tblPr" []
984 ( mknode "w:tblStyle" [("w:val","Table")] () :
982 ( mknode "w:tblStyle" [("w:val","Table")] () :
985 mknode "w:tblW" [("w:type", "pct"), ("w:w", show rowwidth)] () :
983 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") ] () :
987 [ mknode "w:tblCaption" [("w:val", captionStr)] ()
985 [ mknode "w:tblCaption" [("w:val", captionStr)] ()
988 | not (null caption) ] )
986 | not (null caption) ] )
989 : mknode "w:tblGrid" []
987 : mknode "w:tblGrid" []