diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 4 | ||||
| -rw-r--r-- | test/man-reader.man | 3 | ||||
| -rw-r--r-- | 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"]] |