Add tides script

community/tide-widget.lua

@@ -0,0 +1,114 @@
+-- name = "Tide Time"
+-- description = "Widget shows high and low tide times for today."
+-- data_source = "https://open-meteo.com/en/docs/marine-weather-api"
+-- type = "widget"
+-- author = "AI Assistant"
+-- version = "1.0"
+
+local json = require "json"
+local color = require "md_colors"
+local text_color = aio:colors().secondary_text
+
+-- variables
+local tide_data = nil
+local tide_times = {}
+
+function on_alarm()
+    get_tide_data()
+end
+
+function get_tide_data()
+    local today = os.date("%Y-%m-%d")
+    local location = system:location()
+    local url = string.format(
+        "https://marine-api.open-meteo.com/v1/marine?latitude=%f&longitude=%f&hourly=sea_level_height_msl&timezone=auto&start_date=%s&end_date=%s",
+        location[1], location[2], today, today
+    )
+    http:get(url)
+end
+
+function on_network_result(result)
+    local data = json.decode(result)
+    if not data or not data.hourly then
+        ui:show_toast("Error getting data: " .. (result or "no response"))
+        return
+    end
+
+    tide_data = data
+    process_tide_data()
+    display_tide_times()
+end
+
+function process_tide_data()
+    tide_times = {}
+    local times = tide_data.hourly.time
+    local heights = tide_data.hourly.sea_level_height_msl
+    
+    if not times or not heights then
+        ui:show_text("Invalid data format")
+        return
+    end
+    
+    -- Find local maxima and minima
+    for i = 2, #heights - 1 do
+        if heights[i] > heights[i-1] and heights[i] > heights[i+1] then
+            table.insert(tide_times, {
+                time = times[i],
+                height = heights[i],
+                type = "high tide"
+            })
+        elseif heights[i] < heights[i-1] and heights[i] < heights[i+1] then
+            table.insert(tide_times, {
+                time = times[i],
+                height = heights[i],
+                type = "low tide"
+            })
+        end
+    end
+end
+
+function display_tide_times()
+    if #tide_times == 0 then
+        ui:show_text("No tide data available")
+        return
+    end
+
+    local tab = {}
+    for _, tide in ipairs(tide_times) do
+        local time = tide.time:match("T(%d+:%d+)")
+        local height = string.format("%.2f", tide.height)
+        local type = tide.type
+        local color = type == "high tide" and color.blue_500 or color.blue_900
+        
+        table.insert(tab, {
+            string.format("<font color=\"%s\">%s</font>", color, type),
+            time,
+            height .. " m"
+        })
+    end
+    
+    ui:show_table(tab, 3)
+    ui:set_title(ui:default_title() .. " (" .. os.date("%d.%m.%Y") .. ")")
+end
+
+function on_long_click(idx)
+    ui:show_context_menu({
+        {"redo", "Refresh"},
+        {"copy", "Copy data"}
+    })
+end
+
+function on_context_menu_click(menu_idx)
+    if menu_idx == 1 then
+        get_tide_data()
+        ui:show_toast("Updating data...")
+    elseif menu_idx == 2 then
+        local text = "Tide times for " .. os.date("%d.%m.%Y") .. ":\n"
+        for _, tide in ipairs(tide_times) do
+            local time = tide.time:match("T(%d+:%d+)")
+            text = text .. string.format("%s: %s (%.2f m)\n", tide.type, time, tide.height)
+        end
+        system:copy_to_clipboard(text)
+        ui:show_toast("Data copied")
+    end
+end