lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 01:36:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

RTF reader: handle \*\shppict without dropping image.

Browse Source 
Closes #10025.
This commit is contained in:
John MacFarlane
2024-07-27 21:01:00 -07:00
parent 2f36df65e6
commit 9cdc99cb7d
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/RTF.hs
+6 -4
View File
@@ -428,10 +428,12 @@ processTok bs (Tok pos tok') = do
UnformattedText{} -> return ()
_ -> updateState $ \s -> s{ sEatChars = 0 }
case tok' of
Grouped (Tok _ (ControlSymbol '*') : toks) ->
bs <$ (do oldTextContent <- sTextContent <$> getState
processTok mempty (Tok pos (Grouped toks))
updateState $ \st -> st{ sTextContent = oldTextContent })
Grouped (Tok _ (ControlSymbol '*') : toks@(firsttok:_)) ->
case firsttok of
Tok _ (ControlWord "shppict" _) -> inGroup (foldM processTok bs toks)
_ -> bs <$ (do oldTextContent <- sTextContent <$> getState
processTok mempty (Tok pos (Grouped toks))
updateState $ \st -> st{ sTextContent = oldTextContent })
Grouped (Tok _ (ControlWord "fonttbl" _) : toks) -> inGroup $ do
updateState $ \s -> s{ sFontTable = processFontTable toks }
pure bs