6c1f9c8 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Made LaTeX reader properly recognize --parse-raw in rawLaTeXInline.

6c1f9c8fiddlosopher19 years ago

Text/Pandoc/Readers/LaTeX.hs+4−2

@@ -374,7 +374,7 @@ unknownCommand = try $ do

374 state <- getState

375 if name == "item" && (stateParserContext state) == ListItemState

376 then fail "should not be parsed as raw"

377− else string ""

377+ else return ""

378 if stateParseRaw state

379 then return $ Plain [TeX ("\\" ++ name ++ star ++ argStr)]

380 else return $ Plain [Str (joinWithSep " " args)]

@@ -648,5 +648,7 @@ rawLaTeXInline = try $ do

648 if ((name == "begin") || (name == "end") || (name == "item"))

649 then fail "not an inline command"

650 else string ""

651+ if stateParseRaw state

651− return $ TeX ("\\" ++ name ++ star ++ concat args)

652+ then return $ TeX ("\\" ++ name ++ star ++ concat args)

653+ else return $ Str (joinWithSep " " args)

652

654

tests/runtests.pl+1−1

@@ -99,7 +99,7 @@ print "Testing html reader...";

99test_results("html reader", "tmp.native", "html-reader.native");

100

101print "Testing latex reader...";

102−`$script -r latex -w native -s latex-reader.latex > tmp.native`;

102+`$script -r latex -w native -R -s latex-reader.latex > tmp.native`;

103test_results("latex reader", "tmp.native", "latex-reader.native");

104

105print "Testing native reader...";