diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-21 17:32:12 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-21 17:33:27 +0300 |
| commit | 6f507336918baa016eefce854f00fad1e1a78068 (patch) | |
| tree | a147bfe3fec1df10f94eb76b1a2d3f18cd4e4fca /src | |
| parent | f12348cab5acc811d879ff36f249215bf040c6f3 (diff) | |
| download | pandoc-6f507336918baa016eefce854f00fad1e1a78068.tar.gz | |
Muse writer: don't align ordered list items
It leads to problems with round-trip test,
because aligned line blocks can't be read back.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 8feb277c6..ad3afd751 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -175,10 +175,7 @@ blockToMuse (BlockQuote blocks) = do blockToMuse (OrderedList (start, style, _) items) = do let markers = take (length items) $ orderedListMarkers (start, style, Period) - let maxMarkerLength = maximum $ map length markers - let markers' = map (\m -> let s = maxMarkerLength - length m - in m ++ replicate s ' ') markers - contents <- zipWithM orderedListItemToMuse markers' items + contents <- zipWithM orderedListItemToMuse markers items -- ensure that sublists have preceding blank line topLevel <- gets stTopLevel return $ cr $$ (if topLevel then nest 1 else id) (vcat contents) $$ blankline |