diff options
| author | Gokul Rajiv <gokul.rajiv99@gmail.com> | 2024-01-22 23:11:37 +0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2024-01-23 14:13:51 -0800 |
| commit | e9bd6285e3cd645715fd8fbcfe624f7c6b97e698 (patch) | |
| tree | b369a0ac287ff90793d475d54f756e16f4fbd9e4 | |
| parent | 3e54d3a45d4260e6a7c993ebaab9cca418661538 (diff) | |
add case for "variable" class
| -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 <> "}" |