-let theory_of_result req result =
- let max_results_no =
- Helm_registry.get_opt_default Helm_registry.get_int 10
- "search_engine.max_results_no"
+let theory_of_result (req: Http_types.request) page result =
+ let results_per_page =
+ Helm_registry.get_int "search_engine.results_per_page"
+ in
+ let results_no = List.length result in
+ let result = paginate ~size:results_per_page ~page result in
+ let query_kind = pp_request req in
+ let template query_kind summary results =
+ sprintf
+ "<!-- MOZILLA SEARCH PLUGIN: BEGIN LIST -->
+ <div class='resultsbar'>
+ <table width='100%%'>
+ <tr>
+ <td class='left'><b class='query_kind'>%s</b></td>
+ <td class='right'>%s</td>
+ </tr>
+ </table>
+ </div>
+ <br />
+ <div>
+ %s
+ </div>
+ <!-- MOZILLA SEARCH PLUGIN: END LIST -->"
+ query_kind summary results