diff options
author | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:07:28 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 10:07:28 -0700 |
commit | 8d4027da4dc698cdb13d143bc542977391f4b49b (patch) | |
tree | 64774ded1aa863a3f90ddbf153986a08407e09ba | |
parent | 1b19e79650d6bcc6ec45733ee349c3af5c36ab36 (diff) | |
download | pandoc-8d4027da4dc698cdb13d143bc542977391f4b49b.tar.gz |
Man reader: block quotes (using RS..RE).
-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"]] |