@@ -525,6 +525,7 @@ styleToOpenXml sm style =
525 , mknode "w:link" [("w:val","VerbatimChar")] ()
525 , mknode "w:link" [("w:val","VerbatimChar")] ()
526 , mknode "w:pPr" []
526 , mknode "w:pPr" []
527 $ mknode "w:wordWrap" [("w:val","off")] ()
527 $ mknode "w:wordWrap" [("w:val","off")] ()
528+ : mknode "w:noProof" [] ()
528 : ( maybe [] (\col -> [mknode "w:shd" [("w:val","clear"),("w:fill",drop 1 $ fromColor col)] ()])
529 : ( maybe [] (\col -> [mknode "w:shd" [("w:val","clear"),("w:fill",drop 1 $ fromColor col)] ()])
529 $ backgroundColor style )
530 $ backgroundColor style )