import Text.ParserCombinators.Parsec
-testDB = createPGB "wave" "wiki" "wiki" "12wiki34db"
+testDB = createPGB "localhost" "wiki" "wiki" "12wiki34db"
+test key = do
+ db <- testDB
+ s <- getCurrent db key
+ print s
+
--main = start [] cgi
main = do
heading n $ toWash d
toWash xs
toWash ((Url l):xs) = do
- hlink (URL {unURL = (l)}) (text l)
+ hlink (URL {unURL = (l)}) (text $ stripMailto l)
toWash xs
toWash ((Pre s):xs) = do
pre $ text s
toWash xs
+toWash ((List l):xs) = do
+ ul $ mapM (\s -> li $ toWash s) l
+ toWash xs
+
+stripMailto ('m':'a':'i':'l':'t':'o':':':xs) = xs
+stripMailto xs = xs
heading 1 = h1
heading 2 = h2