[Add support for searching for ranges and the more button
Neil Mitchell**20080805132947] {
hunk ./src/Web/Action.hs 70
-runQuery dbs CmdQuery{query = Right q} =
+runQuery dbs cq@CmdQuery{query = Right q, queryFlags = flags} =
hunk ./src/Web/Action.hs 75
-    else
-        ["<table>"] ++ concatMap renderRes res ++ ["</table>"]
+    else -- error $ show (length res, length pre, length now, length post) -
+        ["<table>"] ++
+        concatMap renderRes pre ++
+        insertMore (concatMap renderRes now) ++
+        [moreResults | not $ null post] ++
+        ["</table>"]
hunk ./src/Web/Action.hs 82
-        res = searchRange (rangeStartCount 0 25) dbs q
+        start = headDef 0 [i-1 | Start i <- flags]
+        count = headDef 20 [n | Count n <- flags]
+        res = searchRange (rangeStartCount 0 (start+count+1)) dbs q
+        (pre,res2) = splitAt start res
+        (now,post) = splitAt count res2
+
+        moreResults = "<tr><td></td><td><a href='" ++ urlMore ++ "' class='more'>Show more results</a></td></tr>"
+        urlMore = "?q=" +% queryText cq ++ "&start=" ++ show (start+count+1) ++ "#more"
hunk ./src/Web/Action.hs 97
+-- insert <a name=more> where you can
+insertMore :: [String] -> [String]
+insertMore [] = []
+insertMore (x:xs) = f x : xs
+    where
+        f ('>':xs) | not $ "<td" `isPrefixOf` xs = "><a name='more'></a>" ++ xs
+        f (x:xs) = x : f xs
+        f [] = []
+
hunk ./src/Web/Action.hs 140
+(+%) = (+&) -- CGI query string escaping
+
hunk ./src/res/hoogle.css 111
-
hunk ./src/res/hoogle.css 124
+.c0{background-color: #fcc;}
+.c1{background-color: #cfc;}
+.c2{background-color: #ccf;}
+.c3{background-color: #ffc;}
+.c4{background-color: #fcf;}
+.c5{background-color: #cff;}
+
+.more {
+	padding-left: 12px;
+	background-image: url(more.png);
+	background-repeat: no-repeat;
+	background-position: center left;
+}
+
+
hunk ./src/res/hoogle.css 194
-.c0{background-color: #fcc;}
-.c1{background-color: #cfc;}
-.c2{background-color: #ccf;}
-.c3{background-color: #ffc;}
-.c4{background-color: #fcf;}
-.c5{background-color: #cff;}
-
addfile ./src/res/more.png
binary ./src/res/more.png
oldhex
*
newhex
*89504e470d0a1a0a0000000d49484452000000090000000908020000006ff39147000000046741
*4d410000b18f0bfc61050000009a4944415408d763d870e872c58cad980828ce00a4fe63034071
*90dc9f3fbffffe052106060620fbcf9f5fdfbf7d86ca7dfffe158cbe00e5be7dfbf2f1c3eba70f
*6f41e5be7efdc8800aeedfbe0495fbf4e9dd870f6fdebe7d0e147df5f2f1e307376f5f3b03957b
*f2f0e69d1be76f5c3e0994bb76f1d8a53307ce9fd80d95bb7466ffb17deb0eed587170c772203a
*b07dd9e15dab407278fc07002e00a59ed1aa16170000000049454e44ae426082
}