git.iko.soy/typeable/pandoc
on master help sign in
Man reader: block quotes (using RS..RE).
commit8d4027da4dc698cdb13d143bc542977391f4b49b authorJohn MacFarlane <jgm@berkeley.edu> dateSat 20 Oct 2018, 10:07 (8 years ago) parent1b19e79
3 files changed+8−2
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Man.hs+4 test/man-reader.man+2−1 test/man-reader.native+2−1
src/Text/Pandoc/Readers/Man.hs+4
@@ -129,6 +129,7 @@ parseMan = do
129129parseBlock :: PandocMonad m => ManParser m Blocks
130130parseBlock = choice [ parseList
131131 , parseDefinitionList
132+ , parseBlockQuote
132133 , parseTitle
133134 , parsePara
134135 , parseSkippedContent
@@ -505,6 +506,9 @@ parseHeader = do
505506 let lvl = if name == "SH" then 1 else 2
506507 return $ header lvl contents
507508
509+parseBlockQuote :: PandocMonad m => ManParser m Blocks
510+parseBlockQuote = blockQuote <$> continuation
511+
508512data ListType = Ordered ListAttributes
509513 | Bullet
510514
test/man-reader.man+2−1
@@ -28,7 +28,7 @@ here.
2828 * * * * *
2929.SH Block Quotes
3030Code in a block quote:
31−.IP
31+.RS
3232.nf
3333\f[C]
3434sub\ status\ {
@@ -36,6 +36,7 @@ sub\ status\ {
3636}
3737\f[]
3838.fi
39+.RE
3940.PP
4041A list:
4142.IP "1." 3
test/man-reader.native+2−1
@@ -13,7 +13,8 @@ Pandoc (Meta {unMeta = fromList [("date",MetaString "Oct 17, 2018"),("section",M
1313,Para [Str "*",Space,Str "*",Space,Str "*",Space,Str "*",Space,Str "*"]
1414,Header 1 ("",[],[]) [Str "Block",Space,Str "Quotes"]
1515,Para [Str "Code",Space,Str "in",Space,Str "a",Space,Str "block",Space,Str "quote:"]
16−,CodeBlock ("",[],[]) "\nsub status {\n print \"working\";\n}"
16+,BlockQuote
17+ [CodeBlock ("",[],[]) "\nsub status {\n print \"working\";\n}"]
1718,Para [Str "A",Space,Str "list:"]
1819,OrderedList (1,Decimal,Period)
1920 [[Para [Str "item",Space,Str "one"]]