From 5f4deb5455d631c9fd1dd5d3ea1c96b74c06a9f7 Mon Sep 17 00:00:00 2001
From: cholonam <25772102+cholonam@users.noreply.github.com>
Date: Tue, 24 Nov 2020 20:25:03 +0900
Subject: Docx writer: Fix bullets/lists indentation

Fix appearance of bullets/numbered lists (the first level is slightly
indented to the right instead of right on the margin).

New golden files have been tested using Word 2010 on Windows 10.
---
 src/Text/Pandoc/Writers/Docx.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index 93f7dd799..a380fd4fa 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -732,9 +732,9 @@ mkLvl marker lvl =
     , mknode "w:lvlText" [("w:val",lvltxt)] ()
     , mknode "w:lvlJc" [("w:val","left")] ()
     , mknode "w:pPr" []
-      [ mknode "w:tabs" []
-        $ mknode "w:tab" [("w:val","num"),("w:pos",show $ lvl * step)] ()
-      , mknode "w:ind" [("w:left",show $ lvl * step + hang),("w:hanging",show hang)] ()
+      [ mknode "w:ind" [ ("w:left",show $ lvl * step + step)
+                       , ("w:hanging",show (hang :: Int))
+                       ] ()
       ]
     ]
     where (fmt, lvltxt, start) =
-- 
cgit v1.2.3