toWash ((Pre s):xs) = do
pre $ text s
toWash xs
-toWash ((List l):xs) = do
- ul $ mapM (\s -> li $ toWash s) l
+toWash ((List o l):xs) = do
+ listType o $ mapM (\s -> li $ toWash s) l
toWash xs
+listType True = ol
+listType False = ul
+
stripMailto ('m':'a':'i':'l':'t':'o':':':xs) = xs
stripMailto xs = xs