Move Chuck Norris jokes to defunct

defunct/icndb-translate-widget.lua

@@ -0,0 +1,57 @@
+-- name = "Chuck Norris jokes"
+-- description = "Jokes with translation"
+-- data_source = "icndb.com"
+-- type = "widget"
+-- author = "Alexander Ivanitsa (griva99@gmail.com)"
+-- version = "1.0"
+
+local joke = ""
+local txt = ""
+
+function urlencode(str)
+    if (str) then
+        str = string.gsub(str, "\n", "\r\n")
+        str = string.gsub(str, "([^%w _ %- . ~])", function (c) return string.format ("%%%02X", string.byte(c)) end)
+        str = string.gsub(str, " ", "+")
+    end
+    return str
+end
+
+function urldecode(str)
+    str = string.gsub(str, "+", " ")
+    str = string.gsub(str, "%%(%x%x)", function(h) return string.char(tonumber(h,16)) end)
+    return str
+end
+
+function on_alarm()
+    http:get("http://api.icndb.com/jokes/random")
+end
+
+function on_network_result(result)
+    local first_letter = string.sub(result, 1, 1)
+    local textColor = ui:get_colors().secondary_text
+
+    joke = ajson:get_value(result, "object object:value string:joke")
+    local id = ajson:get_value(result, "object object:value string:id")
+    txt = "<font color=\""..textColor.."\">"..tostring(id)..":</font> "..joke
+    ui:show_text(txt)
+end
+
+-- translate --
+function on_click(idx)
+    local lang = system:get_lang()
+    local link_href="http://translate.googleapis.com/translate_a/single?client=gtx&sl=en&tl="..lang.."&dt=t&q="
+    http:get(link_href..urlencode(joke), "translate")
+end
+
+function on_network_result_translate(result)
+    local js = require "json"
+    local tt= ""
+    local elem = js.decode(result)[1]
+    for k,v in pairs(elem) do
+        if type(v[1]) == "string" then
+            tt = tt..v[1]
+        end
+    end
+    ui:show_lines({txt,"---",tt})
+end