diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Docx.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs index 9984c243f..ebd060d38 100644 --- a/src/Text/Pandoc/Writers/Docx.hs +++ b/src/Text/Pandoc/Writers/Docx.hs @@ -652,16 +652,16 @@ pCustomStyle sty = mknode "w:pStyle" [("w:val",sty)] () pStyleM :: String -> WS XML.Element pStyleM = flip fmap (gets stParaStyles) . pStyle -rStyle :: String -> CharStyleMap -> Element -rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] () - where - sty' = getStyleId sty m +-- rStyle :: String -> CharStyleMap -> Element +-- rStyle sty (CharStyleMap m) = mknode "w:rStyle" [("w:val",sty')] () +-- where +-- sty' = getStyleId sty m rCustomStyle :: String -> Element rCustomStyle sty = mknode "w:rStyle" [("w:val",sty)] () -rStyleM :: String -> WS XML.Element -rStyleM = flip fmap (gets stCharStyles) . rStyle +-- rStyleM :: String -> WS XML.Element +-- rStyleM = flip fmap (gets stCharStyles) . rStyle getUniqueId :: MonadIO m => m String -- the + 20 is to ensure that there are no clashes with the rIds @@ -866,8 +866,8 @@ withTextProp d p = do popTextProp return res -withTextPropM :: WS Element -> WS a -> WS a -withTextPropM = (. flip withTextProp) . (>>=) +-- withTextPropM :: WS Element -> WS a -> WS a +-- withTextPropM = (. flip withTextProp) . (>>=) getParaProps :: Bool -> WS [Element] getParaProps displayMathPara = do |