From 839f77d81ecd742d6368f8b140eeccd37d8a80e7 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 24 Feb 2008 18:15:36 +0000
Subject: Use style attributes rather than css classes for strikethrough and
 ordered list styles. This works better when fragments, rather than standalone
 documents, are generated.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1245 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 Text/Pandoc/Writers/HTML.hs | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'Text/Pandoc/Writers')

diff --git a/Text/Pandoc/Writers/HTML.hs b/Text/Pandoc/Writers/HTML.hs
index d4ba09293..6ada56ba2 100644
--- a/Text/Pandoc/Writers/HTML.hs
+++ b/Text/Pandoc/Writers/HTML.hs
@@ -331,13 +331,8 @@ blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do
                    then [start startnum]
                    else []) ++
                 (if numstyle /= DefaultStyle
-                   then [theclass numstyle']
+                   then [thestyle $ "list-style-type: " ++ numstyle' ++ ";"]
                    else [])
-  if numstyle /= DefaultStyle
-     then addToCSS $ "ol." ++ numstyle' ++ 
-                     " { list-style-type: " ++ 
-                     numstyle' ++ "; }"
-     else return ()
   return $ ordList ! attribs $ contents
 blockToHtml opts (DefinitionList lst) = do
   contents <- mapM (\(term, def) -> do term' <- inlineListToHtml opts term
@@ -405,10 +400,8 @@ inlineToHtml opts inline =
     (Emph lst)       -> inlineListToHtml opts lst >>= return . emphasize
     (Strong lst)     -> inlineListToHtml opts lst >>= return . strong
     (Code str)       -> return $ thecode << str
-    (Strikeout lst)  -> addToCSS 
-                        ".strikeout { text-decoration: line-through; }" >> 
-                        inlineListToHtml opts lst >>=
-                        return . (thespan ! [theclass "strikeout"])
+    (Strikeout lst)  -> inlineListToHtml opts lst >>=
+                        return . (thespan ! [thestyle "text-decoration: line-through;"])
     (Superscript lst) -> inlineListToHtml opts lst >>= return . sup
     (Subscript lst)   -> inlineListToHtml opts lst >>= return . sub
     (Quoted quoteType lst) ->
-- 
cgit v1.2.3