From e2123a4033ea9fc5c285f521883dfb65b721f069 Mon Sep 17 00:00:00 2001 From: mb21 Date: Sun, 22 Oct 2017 12:24:30 +0200 Subject: LaTeX Reader: support \lettrine --- src/Text/Pandoc/Readers/LaTeX.hs | 1 + test/command/lettrine.md | 9 +++++++++ 2 files changed, 10 insertions(+) create mode 100644 test/command/lettrine.md diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index cb7f3f50d..a37c152d3 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -1264,6 +1264,7 @@ inlineCommands = M.union inlineLanguageCommands $ M.fromList $ , ("cref", rawInlineOr "cref" $ doref "ref") -- from cleveref.sty , ("vref", rawInlineOr "vref" $ doref "ref+page") -- from varioref.sty , ("eqref", rawInlineOr "eqref" $ doref "eqref") -- from amsmath.sty + , ("lettrine", optional opt >> extractSpaces (spanWith ("",["lettrine"],[])) <$> tok) , ("(", mathInline . toksToString <$> manyTill anyTok (controlSeq ")")) , ("[", mathDisplay . toksToString <$> manyTill anyTok (controlSeq "]")) , ("ensuremath", mathInline . toksToString <$> braced) diff --git a/test/command/lettrine.md b/test/command/lettrine.md new file mode 100644 index 000000000..0c3c64d66 --- /dev/null +++ b/test/command/lettrine.md @@ -0,0 +1,9 @@ +``` +% pandoc -f latex -t native +\lettrine{A}{category} is + +\lettrine[lhang=0.17]{A}{category} is +^D +[Para [Span ("",["lettrine"],[]) [Str "A"],Span ("",[],[]) [Str "category"],Space,Str "is"] +,Para [Span ("",["lettrine"],[]) [Str "A"],Span ("",[],[]) [Str "category"],Space,Str "is"]] +``` -- cgit v1.2.3