diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-11-22 21:46:55 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-11-22 21:46:55 -0500 |
| commit | 2e1366b3e0d9614dca69e198075f057c8db25ab4 (patch) | |
| tree | 1bd81324fda912a529cd2da0939eada066e67a23 /src/Text/Pandoc/Writers/OpenDocument.hs | |
| parent | f961dd7c1b592590ca7afaa585e6997710319c55 (diff) | |
| parent | eb82fd6b5e12e46eafe21d3f0b7f9c21a893be4e (diff) | |
| download | pandoc-2e1366b3e0d9614dca69e198075f057c8db25ab4.tar.gz | |
Merge pull request #5095 from pyssling/master
ODT writer: Fix list indentation
Diffstat (limited to 'src/Text/Pandoc/Writers/OpenDocument.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/OpenDocument.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs index d9f0a8e44..071826117 100644 --- a/src/Text/Pandoc/Writers/OpenDocument.hs +++ b/src/Text/Pandoc/Writers/OpenDocument.hs @@ -601,7 +601,7 @@ orderedListLevelStyle (s,n, d) (l,ls) = listLevelStyle :: Int -> Doc listLevelStyle i = - let indent = show (0.5 * fromIntegral i :: Double) in + let indent = show (0.5 + (0.25 * fromIntegral i :: Double)) in inTags True "style:list-level-properties" [ ("text:list-level-position-and-space-mode", "label-alignment") @@ -610,7 +610,7 @@ listLevelStyle i = selfClosingTag "style:list-level-label-alignment" [ ("text:label-followed-by", "listtab") , ("text:list-tab-stop-position", indent ++ "in") - , ("fo:text-indent", "-0.1in") + , ("fo:text-indent", "-0.25in") , ("fo:margin-left", indent ++ "in") ] |