summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2018-01-09 21:56:47 +0300
committerdefanor <defanor@uberspace.net>2018-01-09 21:56:47 +0300
commite572364d0547d1fb4cf98904c01e4f856d7fab0c (patch)
treef99b976b86f6775715f0b5704d3fa9f05e216c28
parentf72f8e2bb0dbee6c392678a1b60400723c8a2e78 (diff)
downloadpancake-e572364d0547d1fb4cf98904c01e4f856d7fab0c.zip
pancake-e572364d0547d1fb4cf98904c01e4f856d7fab0c.tar.gz
pancake-e572364d0547d1fb4cf98904c01e4f856d7fab0c.tar.bz2
Leave empty lines around block quotations
-rw-r--r--Pancake/Rendering.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index 8306bd8..e568df0 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -554,6 +554,7 @@ isList _ = False
skipBefore :: P.Block -> Bool
skipBefore P.Header {} = True
skipBefore P.Para {} = True
+skipBefore P.BlockQuote {} = True
skipBefore (P.Div _ (b:_)) = skipBefore b
skipBefore _ = False
@@ -561,6 +562,7 @@ skipBefore _ = False
skipAfter :: P.Block -> Bool
skipAfter P.Header {} = True
skipAfter P.Para {} = True
+skipAfter P.BlockQuote {} = True
skipAfter (P.Div _ bs@(_:_)) = skipAfter $ last bs
skipAfter b = isList b