Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx Writer: Keep track of dynamic text props too.

Browse source
This commit is contained in:
Jesse Rosenthal 2016-08-15 12:41:31 -04:00
parent d6b60558e3
commit 66d393ae7a
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Writers/Docx.hs
View file

@ -111,6 +111,7 @@ data WriterState = WriterState{
, stFirstPara :: Bool
, stTocTitle :: [Inline]
, stDynamicParaProps :: [String]
, stDynamicTextProps :: [String]
}
defaultWriterState :: WriterState
@ -134,6 +135,7 @@ defaultWriterState = WriterState{
, stFirstPara = False
, stTocTitle = normalizeInlines [Str "Table of Contents"]
, stDynamicParaProps = []
, stDynamicTextProps = []
}
type WS a = StateT WriterState IO a
@ -1013,6 +1015,7 @@ inlineToOpenXML opts SoftBreak = inlineToOpenXML opts (Str " ")
inlineToOpenXML opts (Span (ident,classes,kvs) ils)
| Just sty <- lookup dynamicStyleKey kvs = do
let kvs' = filter ((dynamicStyleKey, sty)/=) kvs
modify $ \s -> s{stDynamicTextProps = sty : (stDynamicTextProps s)}
withTextProp (rCustomStyle sty) $
inlineToOpenXML opts (Span (ident,classes,kvs') ils)
| "insertion" `elem` classes = do