Man reader: block quotes (using RS..RE).

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
 

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

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"]]