diff options
| author | Nils Carlson <nils.carlson@ludd.ltu.se> | 2018-11-21 22:05:42 +0000 |
|---|---|---|
| committer | Nils Carlson <nils.carlson@ludd.ltu.se> | 2018-11-22 17:18:09 +0000 |
| commit | eb82fd6b5e12e46eafe21d3f0b7f9c21a893be4e (patch) | |
| tree | 662ef45ce2dc63881b14773bac2c34246d69213d /src/Text/Pandoc | |
| parent | 191141f27fbfd7c83764d3524a89ef30b835cad2 (diff) | |
| download | pandoc-eb82fd6b5e12e46eafe21d3f0b7f9c21a893be4e.tar.gz | |
ODT writer: Fix list indentation
Previously lists were indented by half an inch on the first line
for each level of nesting. This resulted in lists that looked like
this:
1. The first line of the list point text
the second line of the same list point.
Fix this and bring style into line with libreoffice standards:
1. The first line of the list point text
the second line of the list point text.
Diffstat (limited to 'src/Text/Pandoc')
| -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") ] |