From d07e5825d38053bfc3e856b968ebb0f0c7c121cc Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
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')
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