add borders in table cell

jgm · Jan 10, 2018 · 2d9f2ae · 2d9f2ae
1 parent f6abf15
commit 2d9f2ae
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
@@ -955,7 +955,10 @@ blockToOpenXML' opts (Table caption aligns widths headers rows) = do
   rows' <- mapM (mapM cellToOpenXML . zip aligns) rows
   let borderProps = mknode "w:tcPr" []
                     [ mknode "w:tcBorders" []
-                      $ mknode "w:bottom" [("w:val","single")] ()
+                      $ mknode "w:start" [("w:val","single"), ("w:sz", "4"), ("w:color", "#B8CBE4")] ()
+                    , mknode "w:end" [("w:val","single"), ("w:sz", "4"), ("w:color", "#B8CBE4")] ()
+                    , mknode "w:top" [("w:val","single"), ("w:sz", "4"), ("w:color", "#B8CBE4")] ()
+                    , mknode "w:bottom" [("w:val","single"), ("w:sz", "4"), ("w:color", "#B8CBE4")] ()
                     , mknode "w:vAlign" [("w:val","bottom")] () ]
   let emptyCell = [mknode "w:p" [] [mknode "w:pPr" [] [pCustomStyle "Compact"]]]
   let mkcell border contents = mknode "w:tc" []
@@ -987,7 +990,7 @@ blockToOpenXML' opts (Table caption aligns widths headers rows) = do
             then []
             else map mkgridcol widths)
       : [ mkrow True headers' | hasHeader ] ++
-      map (mkrow False) rows'
+      map (mkrow True) rows'
       )]
 blockToOpenXML' opts (BulletList lst) = do
   let marker = BulletMarker