mirror of
https://github.com/jgm/pandoc.git
synced 2026-08-23 08:46:56 +00:00
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.
This commit is contained in:
@@ -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")
|
||||
]
|
||||
|
||||
|
||||
+189
-189
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user