diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Texinfo.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs index 4436ca1b4..710665099 100644 --- a/src/Text/Pandoc/Writers/Texinfo.hs +++ b/src/Text/Pandoc/Writers/Texinfo.hs @@ -446,6 +446,9 @@ inlineToTexinfo (Subscript lst) = do inlineToTexinfo (SmallCaps lst) = inCmd "sc" <$> inlineListToTexinfo lst +inlineToTexinfo (Code (_, cls , _) str) | T.pack "variable" `elem` cls = + return $ literal $ "@code{@var{" <> stringToTexinfo str <> "}}" + inlineToTexinfo (Code _ str) = return $ literal $ "@code{" <> stringToTexinfo str <> "}" |