diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 23:26:06 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 23:26:06 +0000 |
commit | dbdd37acaa8ecacfae7925dbc7018f4cf444f41f (patch) | |
tree | d56f08a6e7cf99055595e1a75f7804a30c0713e6 /Text/Pandoc/Writers/Texinfo.hs | |
parent | 2637e3595afef05cbd67a69b8d79682ebc7a716a (diff) | |
download | pandoc-dbdd37acaa8ecacfae7925dbc7018f4cf444f41f.tar.gz |
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
Diffstat (limited to 'Text/Pandoc/Writers/Texinfo.hs')
-rw-r--r-- | Text/Pandoc/Writers/Texinfo.hs | 6 |
1 files changed, 4 insertions, 2 deletions
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 "--" |