add tvguide widget

ru/tvguide-ru-widget.lua

@@ -0,0 +1,88 @@
+-- name = "ТВ-Программа"
+-- description = "Программа телепередач российского телевидения"
+-- type = "widget"
+-- version = "1.0"
+-- author = "Andrey Gavrilov"
+
+local url = "https://api.peers.tv/tvguide/2/"
+local channel_id = "10338240"
+local title = "Матч ТВ"
+local tab_name = {}
+local tab_time = {}
+local tab_desc = {}
+local tab_link = {}
+local link = ""
+
+function on_resume()
+    ui:set_folding_flag(true)
+    ui:show_lines(tab_name,tab_time)
+end
+
+function on_alarm()
+    tab_name = {}
+    tab_time = {}
+    tab_desc = {}
+    tab_link = {}
+    http:get(url.."schedule.json?channel="..channel_id,"schedule")
+end
+
+function on_click(idx)
+    if idx > #tab_desc then
+        ui:show_edit_dialog("Введите название канала")
+    else
+        ui:show_dialog("Описание",tab_desc[idx],"Перейти к каналу")
+        link = tab_link[idx]
+    end
+end
+
+function on_network_result_channel(res)
+    local json = require "json"
+    local t = json.decode(res)
+    if not next(t.channels[1]) then
+        return
+    end
+    channel_id = tostring(t.channels[1].channelId)
+    title = t.channels[1].title
+    tab_name = {}
+    tab_time = {}
+    tab_desc = {}
+    tab_link = {}
+    http:get(url.."schedule.json?channel="..channel_id,"schedule")
+end
+
+function on_dialog_action(data)
+    if type(data) == "string" then
+        data = data:gsub(" ","+")
+        http:get(url.."idbytitle.json?titles="..data,"channel")
+    elseif data ~= -1 then
+        system:open_browser(link)
+    end
+end
+
+function on_network_result_schedule(res)
+    local json = require "json"
+    local t = json.decode(res)
+    for i,v in ipairs(t.telecastsList) do
+        if os.time{year=v.date.year,month=v.date.month,day=v.date.day,hour=v.date.hour,min=v.date.minute} >= os.time() - v.duration then
+            table.insert(tab_name,v.title)
+            table.insert(tab_time,string.format("%02d:%02d",v.date.hour,v.date.minute))
+            table.insert(tab_desc,v.description)
+            table.insert(tab_link,v.URL)
+        end
+        if #tab_name >= 10 then
+            break
+        end
+    end
+    if #tab_name < 10 then
+        http:get(url.."schedule.json?channel="..channel_id.."&dates="..os.date("%Y-%m-%d",os.time()+24*60*60),"schedule")
+        return
+    end
+    table.insert(tab_name,"Выберите канал")
+    table.insert(tab_time,"")
+    ui:set_title(ui:get_default_title().." ("..title..")")
+    ui:show_lines(tab_name,tab_time)
+end
+
+function on_settings()
+    return
+end