aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/RST.hs45
1 files changed, 13 insertions, 32 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index 694d623a6..a57527aa8 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -57,7 +57,6 @@ data WriterState =
, stHasRawTeX :: Bool
, stOptions :: WriterOptions
, stTopLevel :: Bool
- , stLastNested :: Bool
}
type RST = StateT WriterState
@@ -68,7 +67,7 @@ writeRST opts document = do
let st = WriterState { stNotes = [], stLinks = [],
stImages = [], stHasMath = False,
stHasRawTeX = False, stOptions = opts,
- stTopLevel = True, stLastNested = False}
+ stTopLevel = True }
evalStateT (pandocToRST document) st
-- | Return RST representation of document.
@@ -353,44 +352,26 @@ blockListToRST' :: PandocMonad m
-> [Block] -- ^ List of block elements
-> RST m Doc
blockListToRST' topLevel blocks = do
- -- insert comment between list and quoted blocks, see #4248
+ -- insert comment between list and quoted blocks, see #4248 and #3675
let fixBlocks (b1:b2@(BlockQuote _):bs)
- | isList b1 = b1 : commentSep : b2 : fixBlocks bs
+ | toClose b1 = b1 : commentSep : b2 : fixBlocks bs
where
- isList (BulletList _) = True
- isList (OrderedList _ _) = True
- isList (DefinitionList _) = True
- isList _ = False
- commentSep = RawBlock "rst" ""
+ toClose (Plain{}) = False
+ toClose (Header{}) = False
+ toClose (LineBlock{}) = False
+ toClose (HorizontalRule) = False
+ toClose (Para [Image _ _ (_,'f':'i':'g':':':_)]) = True
+ toClose (Para{}) = False
+ toClose _ = True
+ commentSep = RawBlock "rst" "..\n\n"
fixBlocks (b:bs) = b : fixBlocks bs
fixBlocks [] = []
tl <- gets stTopLevel
- modify (\s->s{stTopLevel=topLevel, stLastNested=False})
- res <- vcat `fmap` mapM blockToRST' (fixBlocks blocks)
+ modify (\s->s{stTopLevel=topLevel})
+ res <- vcat `fmap` mapM blockToRST (fixBlocks blocks)
modify (\s->s{stTopLevel=tl})
return res
-blockToRST' :: PandocMonad m => Block -> RST m Doc
-blockToRST' (x@BlockQuote{}) = do
- lastNested <- gets stLastNested
- res <- blockToRST x
- modify (\s -> s{stLastNested = True})
- return $ if lastNested
- then ".." $+$ res
- else res
-blockToRST' x = do
- modify (\s -> s{stLastNested =
- case x of
- Para [Image _ _ (_,'f':'i':'g':':':_)] -> True
- Para{} -> False
- Plain{} -> False
- Header{} -> False
- LineBlock{} -> False
- HorizontalRule -> False
- _ -> True
- })
- blockToRST x
-
blockListToRST :: PandocMonad m
=> [Block] -- ^ List of block elements
-> RST m Doc