[Add lamdabot hints
Neil Mitchell <http://www.cs.york.ac.uk/~ndm/>**20051214123048] {
addfile ./src/Web/Lambdabot.hs
hunk ./src/Web/Lambdabot.hs 1
+
+module Web.Lambdabot(query) where
+
+import List
+import Char
+
+query :: String -> IO (Maybe String)
+query x = do d <- readDatabase
+             return $ case filter ((==) (prepSearch x) . fst) d of
+                (x:xs) -> Just $ formatRes (snd x)
+                [] -> Nothing
+
+
+prepSearch = map toLower . reverse . dropWhile isSpace . reverse . dropWhile isSpace 
+
+formatRes = unwords . map linky . words
+
+linky x | "http://" `isPrefixOf` x = "<a href='" ++ x ++ "'>" ++ x ++ "</a>"
+        | otherwise = x
+
+
+readDatabase :: IO [(String, String)]
+readDatabase = do x <- readFile "res/lambdabot.txt"
+                  return $ f (lines x)
+    where
+        f (key:val:xs) = (key,val) : f xs
+        f _ = []
+
hunk ./src/Web/Main.hs 21
+import Web.Lambdabot
hunk ./src/Web/Main.hs 116
-            Just x -> putLine $ "<p id='suggest'>" ++ showTags x ++ "</p>"
+            Just x -> putLine $ "<p id='suggest'><span class='name'>Hoogle says:</span> " ++
+                                showTags x ++ "</p>"
+
+        lam <- Web.Lambdabot.query (lookupDef "" "q" args)
+        case lam of
+            Nothing -> return ()
+            Just x -> putLine $ "<p id='lambdabot'><span class='name'>" ++
+                "<a href='http://www.cse.unsw.edu.au/~dons/lambdabot.html'>Lambdabot</a> says:</span> "
+                ++ x ++ "</p>"
}