add startpage-search script

community/starpage-search.lua

@@ -0,0 +1,41 @@
+-- name = "StartPage"
+-- description = "StarPage search engine suggestions script"
+-- data_source = "www.startpage.com"
+-- type = "search"
+-- author = "Evgeny Zobnin (zobnin@gmail.com)"
+-- version = "1.0"
+
+local json = require "json"
+local url = require "url"
+
+local suggests_uri = "https://www.startpage.com/suggestions?q="
+local open_uri = "https://www.startpage.com/do/search?q="
+
+local results = {}
+
+function on_search(input)
+    local quoted = url.quote(input)
+    http:get(suggests_uri..quoted.."&segment=")
+end
+
+function on_network_result(result, code)
+    if code >= 200 and code < 300 then
+        show(result)
+    end
+end
+
+function show(result)
+	local t = json.decode(result)
+
+    results = {}
+
+    for k,v in pairs(t.suggestions) do
+        table.insert(results, v.text)
+    end
+
+    search:show(results)
+end
+
+function on_click(idx)
+    system:open_browser(open_uri..results[idx])
+end