@@ -512,15 +512,15 @@ data TextStyle = Italic | Bold | Strike | Sub | Sup deriving ( Eq )
513textStyleAttr :: TextStyle -> [(String,String)]
513textStyleAttr :: TextStyle -> [(String,String)]
514textStyleAttr s
514textStyleAttr s
515− | Italic <- s = [("fo:font-style" ,"italic" )
515+ | Italic <- s = [("fo:font-style" ,"italic" )
516− ,("style:font-style-asian" ,"italic" )
516+ ,("style:font-style-asian" ,"italic" )
517− ,("style:font-style-complex" ,"italic" )]
517+ ,("style:font-style-complex" ,"italic" )]
518− | Bold <- s = [("fo:font-weight" ,"bold" )
518+ | Bold <- s = [("fo:font-weight" ,"bold" )
519− ,("style:font-weight-asian" ,"bold" )
519+ ,("style:font-weight-asian" ,"bold" )
520− ,("style:font-weight-complex" ,"bold" )]
520+ ,("style:font-weight-complex" ,"bold" )]
521− | Strike <- s = [("style:text-line-through-style", "solid" )]
521+ | Strike <- s = [("style:text-line-through-style", "solid" )]
522− | Sub <- s = [("style:text-position" ,"sub 58%")]
522+ | Sub <- s = [("style:text-position" ,"sub 58%" )]
523− | Sup <- s = [("style:text-position" ,"sup 58%")]
523+ | Sup <- s = [("style:text-position" ,"super 58%")]
524 | otherwise = []
524 | otherwise = []
526openDocumentNameSpaces :: [(String, String)]
526openDocumentNameSpaces :: [(String, String)]