Add Alquran script

community/alquran-widget.lua

@@ -0,0 +1,64 @@
+-- name = "AlQuran"
+-- description = "AlQuran"
+-- data_source = "https://quran.com/"
+-- type = "widget"
+-- author = "Nuhu Sule (ncalyx@gmail.com)"
+-- version = "2.3"
+-- foldable = "false"
+
+local json = require "json"
+local verse_data = nil  -- Store the verse translation data
+
+function on_alarm()
+    -- Fetch random verse with English translation
+    http:get("https://api.alquran.cloud/v1/ayah/random/en.sahih")
+end
+
+function on_network_result(result, code)
+    if code >= 200 and code < 300 then
+        local response = json.decode(result)
+
+        if response and response.data then
+            -- Store verse data including Surah name, verse number, and English translation
+            verse_data = {
+                surah = response.data.surah.englishName,
+                verse_number = response.data.number,
+                translation = response.data.text  -- English translation only
+            }
+
+            display_verse()
+        else
+            ui:show_message("Error loading verse data.")
+        end
+    else
+        -- Show error if the HTTP request fails
+        ui:show_message("Error fetching verse. Please try again later.")
+    end
+end
+
+function display_verse()
+    if verse_data then
+        -- Prepare display lines with English translation
+        local display_lines = {
+            "Verse " .. verse_data.verse_number .. ": " .. verse_data.translation
+        }
+        local display_titles = {
+            "Surah: " .. verse_data.surah
+        }
+
+        ui:show_lines(display_lines, display_titles)
+    end
+end
+
+function on_click()
+    if verse_data then
+        -- Prepare text to copy to clipboard with English translation only
+        local clipboard_text = "Verse " .. verse_data.verse_number .. ": " .. verse_data.translation ..
+            " - Surah: " .. verse_data.surah
+
+        system:to_clipboard(clipboard_text)
+        ui:show_message("Verse copied to clipboard!")
+    else
+        ui:show_message("No verse available to copy.")
+    end
+end