@@ -930,6 +930,13 @@ graphicFrameToElements layout tbls caption = do
930 return [graphicFrameElts, capElt]
930 return [graphicFrameElts, capElt]
931 else return [graphicFrameElts]
931 else return [graphicFrameElts]
933+getDefaultTableStyle :: PandocMonad m => P m (Maybe String)
934+getDefaultTableStyle = do
935+ refArchive <- asks envRefArchive
936+ distArchive <- asks envDistArchive
937+ tblStyleLst <- parseXml refArchive distArchive "ppt/tableStyles.xml"
938+ return $ findAttr (QName "def" Nothing Nothing) tblStyleLst
933graphicToElement :: PandocMonad m => Integer -> Graphic -> P m Element
940graphicToElement :: PandocMonad m => Integer -> Graphic -> P m Element
934graphicToElement tableWidth (Tbl tblPr hdrCells rows) = do
941graphicToElement tableWidth (Tbl tblPr hdrCells rows) = do
935 let colWidths = if null hdrCells
942 let colWidths = if null hdrCells
@@ -967,12 +974,19 @@ graphicToElement tableWidth (Tbl tblPr hdrCells rows) = do
967 let mkgridcol w = mknode "a:gridCol"
974 let mkgridcol w = mknode "a:gridCol"
968 [("w", show ((12700 * w) :: Integer))] ()
975 [("w", show ((12700 * w) :: Integer))] ()
969 let hasHeader = not (all null hdrCells)
976 let hasHeader = not (all null hdrCells)
978+ mbDefTblStyle <- getDefaultTableStyle
979+ let tblPrElt = mknode "a:tblPr"
980+ [ ("firstRow", if tblPrFirstRow tblPr then "1" else "0")
981+ , ("bandRow", if tblPrBandRow tblPr then "1" else "0")
982+ ] (case mbDefTblStyle of
984+ Just sty -> [mknode "a:tableStyleId" [] sty])
970 return $ mknode "a:graphic" [] $
986 return $ mknode "a:graphic" [] $
971 [mknode "a:graphicData" [("uri", "http://schemas.openxmlformats.org/drawingml/2006/table")] $
987 [mknode "a:graphicData" [("uri", "http://schemas.openxmlformats.org/drawingml/2006/table")] $
972 [mknode "a:tbl" [] $
988 [mknode "a:tbl" [] $
973− [ mknode "a:tblPr" [ ("firstRow", if tblPrFirstRow tblPr then "1" else "0")
989+ [ tblPrElt
974− , ("bandRow", if tblPrBandRow tblPr then "1" else "0")
976 , mknode "a:tblGrid" [] (if all (==0) colWidths
990 , mknode "a:tblGrid" [] (if all (==0) colWidths
978 else map mkgridcol colWidths)
992 else map mkgridcol colWidths)