diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-09 21:15:24 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-09 21:15:24 +0000 |
| commit | d07e5825d38053bfc3e856b968ebb0f0c7c121cc (patch) | |
| tree | 6aaa3a0d769bd6ef0c0c1eb6dd50f403fa86b0ad | |
| parent | 94e2d373bc9a28f1ee86273f4e51d08b7bd4cebd (diff) | |
| download | pandoc-d07e5825d38053bfc3e856b968ebb0f0c7c121cc.tar.gz | |
Small fix to indentation of code blocks inside defn lists.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1285 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index a5aac297a..b889dfdf1 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -418,7 +418,7 @@ paraStyle parent attrs = do let styleAttr = [ ("style:name" , "P" ++ show pn) , ("style:family" , "paragraph" ) , ("style:parent-style-name", parent )] - indentVal = if b then "0.5in" else show i ++ "in" + indentVal = flip (++) "in" . show $ if b then (max 0.5 i) else i indent = if i == 0 && not b then empty else selfClosingTag "style:paragraph-properties" |