@@ -930,6 +930,13 @@ graphicFrameToElements layout tbls caption = do
930930 return [graphicFrameElts, capElt]
931931 else return [graphicFrameElts]
932932
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
939+
933940graphicToElement :: PandocMonad m => Integer -> Graphic -> P m Element
934941graphicToElement tableWidth (Tbl tblPr hdrCells rows) = do
935942 let colWidths = if null hdrCells
@@ -967,12 +974,19 @@ graphicToElement tableWidth (Tbl tblPr hdrCells rows) = do
967974 let mkgridcol w = mknode "a:gridCol"
968975 [("w", show ((12700 * w) :: Integer))] ()
969976 let hasHeader = not (all null hdrCells)
977+
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
983+ Nothing -> []
984+ Just sty -> [mknode "a:tableStyleId" [] sty])
985+
970986 return $ mknode "a:graphic" [] $
971987 [mknode "a:graphicData" [("uri", "http://schemas.openxmlformats.org/drawingml/2006/table")] $
972988 [mknode "a:tbl" [] $
973− [ mknode "a:tblPr" [ ("firstRow", if tblPrFirstRow tblPr then "1" else "0")
974− , ("bandRow", if tblPrBandRow tblPr then "1" else "0")
975− ] ()
989+ [ tblPrElt
976990 , mknode "a:tblGrid" [] (if all (==0) colWidths
977991 then []
978992 else map mkgridcol colWidths)