From dbdd37acaa8ecacfae7925dbc7018f4cf444f41f Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Tue, 15 Jul 2008 23:26:06 +0000 Subject: More work on smallcaps support. + Added to refsMatch in Shared. + Supported all writers to the extent possible. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1328 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Writers/Texinfo.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Text/Pandoc/Writers/Texinfo.hs') diff --git a/Text/Pandoc/Writers/Texinfo.hs b/Text/Pandoc/Writers/Texinfo.hs index e08448813..8cc27b585 100644 --- a/Text/Pandoc/Writers/Texinfo.hs +++ b/Text/Pandoc/Writers/Texinfo.hs @@ -354,9 +354,9 @@ inlineForNode (Strong lst) = inlineListForNode lst inlineForNode (Strikeout lst) = inlineListForNode lst inlineForNode (Superscript lst) = inlineListForNode lst inlineForNode (Subscript lst) = inlineListForNode lst +inlineForNode (SmallCaps lst) = inlineListForNode lst inlineForNode (Quoted _ lst) = inlineListForNode lst inlineForNode (Code str) = inlineForNode (Str str) -inlineForNode (SmallCaps lst) = inlineListForNode lst inlineForNode Space = return $ char ' ' inlineForNode EmDash = return $ text "---" inlineForNode EnDash = return $ text "--" @@ -415,6 +415,9 @@ inlineToTexinfo (Subscript lst) = do contents <- inlineListToTexinfo lst return $ text "@textsubscript{" <> contents <> char '}' +inlineToTexinfo (SmallCaps lst) = + inlineListToTexinfo lst >>= return . inCmd "sc" + inlineToTexinfo (Code str) = do return $ text $ "@code{" ++ stringToTexinfo str ++ "}" @@ -426,7 +429,6 @@ inlineToTexinfo (Quoted DoubleQuote lst) = do contents <- inlineListToTexinfo lst return $ text "``" <> contents <> text "''" -inlineToTexinfo (SmallCaps lst) = inlineListToTexinfo lst inlineToTexinfo Apostrophe = return $ char '\'' inlineToTexinfo EmDash = return $ text "---" inlineToTexinfo EnDash = return $ text "--" -- cgit v1.2.3