diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-14 21:43:52 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-14 21:43:52 +0000 |
| commit | 3f04b1d2756d44b1cb53477bbd0ed8a099b915a3 (patch) | |
| tree | 6a69eecaf6eba9688e5758d7964cd379090d2f8b /Text/Pandoc | |
| parent | 3e2afa7a49f71ec3dac0dd8b1afe7e9393d7e0e1 (diff) | |
| download | pandoc-3f04b1d2756d44b1cb53477bbd0ed8a099b915a3.tar.gz | |
OpenDocument writer: Fixed typo in inline styles fix (super/sup).
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1321 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc')
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index 8d7812e5f..9c041906c 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -512,15 +512,15 @@ data TextStyle = Italic | Bold | Strike | Sub | Sup deriving ( Eq ) textStyleAttr :: TextStyle -> [(String,String)] textStyleAttr s - | Italic <- s = [("fo:font-style" ,"italic" ) - ,("style:font-style-asian" ,"italic" ) - ,("style:font-style-complex" ,"italic" )] - | Bold <- s = [("fo:font-weight" ,"bold" ) - ,("style:font-weight-asian" ,"bold" ) - ,("style:font-weight-complex" ,"bold" )] - | Strike <- s = [("style:text-line-through-style", "solid" )] - | Sub <- s = [("style:text-position" ,"sub 58%")] - | Sup <- s = [("style:text-position" ,"sup 58%")] + | Italic <- s = [("fo:font-style" ,"italic" ) + ,("style:font-style-asian" ,"italic" ) + ,("style:font-style-complex" ,"italic" )] + | Bold <- s = [("fo:font-weight" ,"bold" ) + ,("style:font-weight-asian" ,"bold" ) + ,("style:font-weight-complex" ,"bold" )] + | Strike <- s = [("style:text-line-through-style", "solid" )] + | Sub <- s = [("style:text-position" ,"sub 58%" )] + | Sup <- s = [("style:text-position" ,"super 58%")] | otherwise = [] openDocumentNameSpaces :: [(String, String)] |