From 8d4027da4dc698cdb13d143bc542977391f4b49b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 20 Oct 2018 10:07:28 -0700
Subject: [PATCH] Man reader: block quotes (using RS..RE).
---
src/Text/Pandoc/Readers/Man.hs | 4 ++++
test/man-reader.man | 3 ++-
test/man-reader.native | 3 ++-
3 files changed, 8 insertions(+), 2 deletions(-)
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
index 01c44066a..ecde31b9f 100644
--- a/src/Text/Pandoc/Readers/Man.hs
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -129,6 +129,7 @@ parseMan = do
parseBlock :: PandocMonad m => ManParser m Blocks
parseBlock = choice [ parseList
, parseDefinitionList
+ , parseBlockQuote
, parseTitle
, parsePara
, parseSkippedContent
@@ -505,6 +506,9 @@ parseHeader = do
let lvl = if name == "SH" then 1 else 2
return $ header lvl contents
+parseBlockQuote :: PandocMonad m => ManParser m Blocks
+parseBlockQuote = blockQuote <$> continuation
+
data ListType = Ordered ListAttributes
| Bullet
diff --git a/test/man-reader.man b/test/man-reader.man
index 7a34d5dcb..f94aaedd6 100644
--- a/test/man-reader.man
+++ b/test/man-reader.man
@@ -28,7 +28,7 @@ here.
* * * * *
.SH Block Quotes
Code in a block quote:
-.IP
+.RS
.nf
\f[C]
sub\ status\ {
@@ -36,6 +36,7 @@ sub\ status\ {
}
\f[]
.fi
+.RE
.PP
A list:
.IP "1." 3
diff --git a/test/man-reader.native b/test/man-reader.native
index 996ab7cac..470905d44 100644
--- a/test/man-reader.native
+++ b/test/man-reader.native
@@ -13,7 +13,8 @@ Pandoc (Meta {unMeta = fromList [("date",MetaString "Oct 17, 2018"),("section",M
,Para [Str "*",Space,Str "*",Space,Str "*",Space,Str "*",Space,Str "*"]
,Header 1 ("",[],[]) [Str "Block",Space,Str "Quotes"]
,Para [Str "Code",Space,Str "in",Space,Str "a",Space,Str "block",Space,Str "quote:"]
-,CodeBlock ("",[],[]) "\nsub status {\n print \"working\";\n}"
+,BlockQuote
+ [CodeBlock ("",[],[]) "\nsub status {\n print \"working\";\n}"]
,Para [Str "A",Space,Str "list:"]
,OrderedList (1,Decimal,Period)
[[Para [Str "item",Space,Str "one"]]