Mercurial Hosting > luan

annotate src/luan/modules/lucene/Web_search.luan @ 1216:5dbb552075ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doctype
author Franklin Schmidt <fschmidt@gmail.com>
date Tue, 20 Mar 2018 15:27:08 -0600
parents 73d754b1889f
children 2de84f128be3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 775
diff changeset
1 local Luan = require "luan:Luan.luan"
548
f4dfe9c64c25 shorten some String function names
Franklin Schmidt <fschmidt@gmail.com>
parents: 545
diff changeset
2 local error = Luan.error
f4dfe9c64c25 shorten some String function names
Franklin Schmidt <fschmidt@gmail.com>
parents: 545
diff changeset
3 local pairs = Luan.pairs or error()
f4dfe9c64c25 shorten some String function names
Franklin Schmidt <fschmidt@gmail.com>
parents: 545
diff changeset
4 local ipairs = Luan.ipairs or error()
f4dfe9c64c25 shorten some String function names
Franklin Schmidt <fschmidt@gmail.com>
parents: 545
diff changeset
5 local range = Luan.range or error()
f4dfe9c64c25 shorten some String function names
Franklin Schmidt <fschmidt@gmail.com>
parents: 545
diff changeset
6 local to_string = Luan.to_string or error()
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1152
diff changeset
7 local stringify = Luan.stringify or error()
693
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 561
diff changeset
8 local Io = require "luan:Io.luan"
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 561
diff changeset
9 local Http = require "luan:http/Http.luan"
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 561
diff changeset
10 local String = require "luan:String.luan"
548
f4dfe9c64c25 shorten some String function names
Franklin Schmidt <fschmidt@gmail.com>
parents: 545
diff changeset
11 local string_to_number = String.to_number or error()
693
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 561
diff changeset
12 local Html = require "luan:Html.luan"
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
13
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
14
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 775
diff changeset
15 local Web_search = {}
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
16
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
17 local function style() %>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
18 body {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
19 font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
20 margin: 2em 5%;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
21 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
22 h2 {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
23 margin-bottom: .5em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
24 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
25 label {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
26 text-align: right;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
27 min-width: 6em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
28 display: inline-block;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
29 margin-right: .5em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
30 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
31 <%
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
32 end
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
33
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
34 local function form() %>
1216
5dbb552075ff doctype
Franklin Schmidt <fschmidt@gmail.com>
parents: 1189
diff changeset
35 <!doctype html>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
36 <html>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
37 <head>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
38 <title>Lucene Query</title>
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
39 <style>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
40 <% style() %>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
41 input {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
42 margin-top: 1em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
43 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
44 input[type="text"] {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
45 font: inherit;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
46 padding: .5em .8em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
47 border-radius: 8px;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
48 border-style: groove;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
49 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
50 input[type="text"]:focus {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
51 border-color: #66afe9;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
52 outline: none;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
53 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
54 span[tip] {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
55 color: #888;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
56 font-size: smaller;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
57 margin-left: .5em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
58 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
59 input[type="submit"] {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
60 color: white;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
61 background: #337ab7;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
62 border-color: #337ab7;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
63 font: inherit;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
64 padding: .5em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
65 border-radius: 4px;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
66 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
67 input[type="submit"]:hover {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
68 background: #236aa7 !important;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
69 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
70 </style>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
71 </head>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
72 <body>
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
73 <h2>Lucene Query</h2>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
74 <form horizontal name="form0" method="post">
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
75 <div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
76 <label>Query:</label>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
77 <input type=text name="query" size="80" autofocus />
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
78 </div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
79 <div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
80 <label></label>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
81 <span tip>Query examples: <i>type:user</i> or <i>+type:user +name:Joe"</i></span>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
82 </div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
83 <div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
84 <label>Max Rows:</label>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
85 <input type=text name="rows" value="100" size="3" maxlength="5" />
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
86 </div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
87 <div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
88 <label>Sort:</label>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
89 <input type=text name="sort" size="60" />
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
90 </div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
91 <div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
92 <label></label>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
93 <span tip>Sort examples: <i>name, id</i></span>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
94 </div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
95 <div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
96 <label></label>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
97 <input type="submit" />
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
98 </div>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
99 </form>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
100 </body>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
101 </html>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
102 <% end
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
103
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
104
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
105 local function result(query,sort,headers,table) %>
1216
5dbb552075ff doctype
Franklin Schmidt <fschmidt@gmail.com>
parents: 1189
diff changeset
106 <!doctype html>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
107 <html>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
108 <head>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
109 <title>Lucene Query</title>
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
110 <style>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
111 <% style() %>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
112 table {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
113 border-collapse: collapse;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
114 width: 100%;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
115 font-size: smaller;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
116 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
117 th, td {
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
118 text-align: left;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
119 padding: .5em;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
120 border: solid 1px #ddd;
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
121 }
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
122 </style>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
123 </head>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
124 <body>
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
125 <h2>Lucene Query Results</h2>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
126 <p><label>Query:</label> <b><%=Html.encode(to_string(query))%></b></p>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
127 <p><label>Sort:</label> <b><%=Html.encode(to_string(sort))%></b></p>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
128 <table>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
129 <tr>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
130 <th></th>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
131 <% for _, header in ipairs(headers) do %>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
132 <th><%=header%></th>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
133 <% end %>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
134 </tr>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
135 <% for i, row in ipairs(table) do %>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
136 <tr>
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
137 <td><%=i%></td>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
138 <%
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
139 for col in range(1, #headers) do
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
140 local val = row[col]
1189
73d754b1889f add stringify
Franklin Schmidt <fschmidt@gmail.com>
parents: 1152
diff changeset
141 %><td><%= val and stringify(val) or "" %></td><%
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
142 end
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
143 %>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
144 </tr>
561
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
145 <% end %>
363d07e26549 remove SimplyHTML from lucene/Web_search
Franklin Schmidt <fschmidt@gmail.com>
parents: 550
diff changeset
146 </table>
391
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
147 </body>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
148 </html>
2f5cc9c2cbf0 replace Html.simply_html_page with simply_html_head and simply_html_body_bottom
Franklin Schmidt <fschmidt@gmail.com>
parents: 340
diff changeset
149 <% end
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
150
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
151
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
152 local function index_of(tbl,val)
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
153 for i, v in ipairs(tbl) do
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
154 if v == val then
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
155 return i
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
156 end
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
157 end
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
158 local n = #tbl + 1
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
159 tbl[n] = val
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
160 return n
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
161 end
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
162
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
163
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 775
diff changeset
164 function Web_search.of(index)
549
Franklin Schmidt <fschmidt@gmail.com>
parents: 548
diff changeset
165 index or error "index is nil"
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
166
505
7bc63886d4f2 web page modules now return a function
Franklin Schmidt <fschmidt@gmail.com>
parents: 503
diff changeset
167 return function()
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
168 Io.stdout = Http.response.text_writer()
1152
21d157b153fe change http parameters interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
169 local query = Http.request.parameters.query
544
c5a93767cc5c lucene overhaul, untested
Franklin Schmidt <fschmidt@gmail.com>
parents: 540
diff changeset
170 if query == nil then
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
171 form()
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
172 return
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
173 end
1152
21d157b153fe change http parameters interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
174 local rows = string_to_number(Http.request.parameters.rows)
21d157b153fe change http parameters interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
175 local sort = Http.request.parameters.sort
545
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
176 local results = index.search(query,1,rows,sort)
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
177 local headers = {}
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
178 local table = {}
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
179 for _, doc in ipairs(results) do
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
180 local row = {}
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
181 for field, value in pairs(doc) do
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
182 row[index_of(headers,field)] = value
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
183 end
545
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
184 table[#table+1] = row
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
185 end
ddcd4296107a clean up lucene search
Franklin Schmidt <fschmidt@gmail.com>
parents: 544
diff changeset
186 result(query,sort,headers,table)
505
7bc63886d4f2 web page modules now return a function
Franklin Schmidt <fschmidt@gmail.com>
parents: 503
diff changeset
187 end
285
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
188
582e8db4cdb6 add lucene Web_search
fschmidt@gmail.com <fschmidt@gmail.com@21e917c8-12df-6dd8-5cb6-c86387c605b9>
parents:
diff changeset
189 end
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents: 497
diff changeset
190
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 775
diff changeset
191 return Web_search