diff options
| author | John MacFarlane <[email protected]> | 2022-07-07 22:56:02 +0200 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2022-07-07 22:56:29 +0200 |
| commit | 56051c8ac36ec02ce17e17faa79d250f8ee7f5ff (patch) | |
| tree | 0214f4046ec6964c058f74776f4e586573d489ce /src | |
| parent | 7fdc01ac0d91a037b48847939b762654174b4125 (diff) | |
RTF reader: support `\nosupersub`.
Closes #8170.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/RTF.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/RTF.hs b/src/Text/Pandoc/Readers/RTF.hs index e781a9a09..c29a33b32 100644 --- a/src/Text/Pandoc/Readers/RTF.hs +++ b/src/Text/Pandoc/Readers/RTF.hs @@ -590,6 +590,9 @@ processTok bs (Tok pos tok') = do modifyGroup (\g -> g{ gSub = boolParam mbp }) ControlWord "super" mbp -> bs <$ modifyGroup (\g -> g{ gSuper = boolParam mbp }) + ControlWord "nosupersub" mbp -> bs <$ + modifyGroup (\g -> g{ gSuper = not $ boolParam mbp + , gSub = not $ boolParam mbp }) ControlWord "up" mbp -> bs <$ modifyGroup (\g -> g{ gSuper = boolParam mbp }) ControlWord "strike" mbp -> bs <$ |