From d07e5825d38053bfc3e856b968ebb0f0c7c121cc Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Mon, 9 Jun 2008 21:15:24 +0000 Subject: 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 --- Text/Pandoc/Writers/OpenDocument.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Text/Pandoc') 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" -- cgit v1.2.3