@@ -158,9 +158,9 @@ inPreformattedTags s = do
158158
159159
160160orderedListToOpenDocument :: WriterOptions -> Int -> [[Block]] -> State WriterState Doc
161−orderedListToOpenDocument o pn is =
161+orderedListToOpenDocument o pn bs =
162162 vcat . map (inTagsIndented "text:list-item") <$>
163− mapM (orderedItemToOpenDocument o pn . map plainToPara) is
163+ mapM (orderedItemToOpenDocument o pn . map plainToPara) bs
164164
165165orderedItemToOpenDocument :: WriterOptions -> Int -> [Block] -> State WriterState Doc
166166orderedItemToOpenDocument o n (b:bs)
@@ -198,8 +198,8 @@ listItemsToOpenDocument s o is =
198198
199199deflistItemToOpenDocument :: WriterOptions -> ([Inline],[Block]) -> State WriterState Doc
200200deflistItemToOpenDocument o (t,d) = do
201− t' <- withParagraphStyle o "Definition-term" [Para t]
202− d' <- withParagraphStyle o "Definition-definition" (map plainToPara d)
201+ t' <- withParagraphStyle o "Definition_20_Term" [Para t]
202+ d' <- withParagraphStyle o "Definition_20_Definition" (map plainToPara d)
203203 return $ t' $$ d'
204204
205205inBlockQuote :: WriterOptions -> Int -> [Block] -> State WriterState Doc
@@ -338,8 +338,8 @@ generateStyles acc =
338338 fonts = inTagsIndented "office:font-face-decls"
339339 (vcat $ map font ["Lucida Sans Unicode", "Tahoma", "Times New Roman"])
340340 font fn = selfClosingTag "style:font-face"
341− [ ("style:name", fn)
342− , ("svg:font-family", fn)]
341+ [ ("style:name" , "'" ++ fn ++ "'")
342+ , ("svg:font-family", fn )]
343343 in scripts $$ fonts $$ inTagsIndented "office:automatic-styles" (vcat $ reverse acc)
344344
345345bulletListStyle :: Int -> State WriterState (Int,(Int,[Doc]))