diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 03:50:59 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 04:15:32 +0300 |
| commit | c899b4e89dcd61f91f7383e2a81a13ef0da080b8 (patch) | |
| tree | fefc02dd7bfacefb89be6479354c7acd4a13c4e4 /src/Text/Pandoc/Writers/Muse.hs | |
| parent | ce6042fb20fb032da8adf0779e240590f304e243 (diff) | |
| download | pandoc-c899b4e89dcd61f91f7383e2a81a13ef0da080b8.tar.gz | |
Muse writer: escape list markers in the beginning of notes
Diffstat (limited to 'src/Text/Pandoc/Writers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 7dbe3a53f..413b71659 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -292,7 +292,10 @@ noteToMuse :: PandocMonad m -> [Block] -> Muse m Doc noteToMuse num note = - hang (length marker) (text marker) <$> blockListToMuse note + hang (length marker) (text marker) <$> + (local (\env -> env { envInlineStart = True + , envAfterSpace = True + }) $ blockListToMuse note) where marker = "[" ++ show num ++ "] " |