contrib: add Open Weather and ATi graphics widget types

These were contributed by one of the users, and remain untested by me.

Signed-off-by: Adrian C. (anrxc) <anrxc@sysphere.org>

1 files changed, 94 insertions, 0 deletions

diff --git a/contrib/openweather.lua b/contrib/openweather.lua
new file mode 100644
index 0000000..d3d2ffd
--- /dev/null
+++ b/contrib/openweather.lua
@@ -0,0 +1,94 @@
+---------------------------------------------------
+-- Licensed under the GNU General Public License v2
+--  * (c) 2013, NormalRa <normalrawr gmail com>
+---------------------------------------------------
+
+-- {{{ Grab environment
+local tonumber = tonumber
+local io = { popen = io.popen }
+local setmetatable = setmetatable
+local string = { match = string.match }
+local math = {
+    ceil = math.ceil,
+    floor = math.floor
+}
+-- }}}
+
+
+-- Openweather: provides weather information for a requested station
+-- vicious.widgets.openweather
+local openweather = {}
+
+
+-- Initialize function tables
+local _wdirs = { "N", "NE", "E", "SE", "S", "SW", "W", "NW", "N" }
+local _wdata = {
+    ["{city}"]      = "N/A",
+    ["{wind deg}"]  = "N/A",
+    ["{wind aim}"]  = "N/A",
+    ["{wind mps}"]  = "N/A",
+    ["{wind kmh}"]  = "N/A",
+    ["{sky}"]       = "N/A",
+    ["{weather}"]   = "N/A",
+    ["{temp c}"]    = "N/A",
+    ["{humid}"]     = "N/A",
+    ["{press}"]     = "N/A"
+}
+
+-- {{{ Openweather widget type
+local function worker(format, warg)
+    if not warg then return end
+
+    -- Get weather forceast using the city ID code, from:
+    -- * OpenWeatherMap.org
+    local openweather = "http://api.openweathermap.org/data/2.5/weather?id="..warg.."&mode=json&units=metric"
+    local f = io.popen("curl --connect-timeout 1 -fsm 3 '"..openweather.."'")
+    local ws = f:read("*all")
+    f:close()
+
+    -- Check if there was a timeout or a problem with the station
+    if ws == nil then return _wdata end
+
+    _wdata["{city}"]     = -- City name
+        string.match(ws, '"name":"([%a%s%-]+)"') or _wdata["{city}"]
+    _wdata["{wind deg}"] = -- Wind degrees
+        string.match(ws, '"deg":([%d]+)') or _wdata["{wind deg}"]
+    _wdata["{wind mps}"]  = -- Wind speed in meters per second
+        string.match(ws, '"speed":([%d%.]+)') or _wdata["{wind mps}"]
+    _wdata["{sky}"]      = -- Sky conditions
+        string.match(ws, '"main":"([%a]+)"') or _wdata["{sky}"]
+    _wdata["{weather}"]  = -- Weather description
+        string.match(ws, '"description":"([%a%s]+)"') or _wdata["{weather}"]
+    _wdata["{temp c}"]    = -- Temperature in celsius
+        string.match(ws, '"temp":([%-]?[%d%.]+)') or _wdata["{temp c}"]
+    _wdata["{humid}"]    = -- Relative humidity in percent
+        string.match(ws, '"humidity":([%d]+)') or _wdata["{humid}"]
+    _wdata["{press}"]    = -- Pressure in hPa
+        string.match(ws, '"pressure":([%d%.]+)') or _wdata["{press}"]
+
+    -- Wind speed in km/h
+    if _wdata["{wind mps}"] ~= "N/A" then
+        _wdata["{wind mps}"] = math.floor(tonumber(_wdata["{wind mps}"]) + .5)
+        _wdata["{wind kmh}"] = math.ceil(_wdata["{wind mps}"] * 3.6)
+    end -- Temperature in °C
+    if _wdata["{temp c}"] ~= "N/A" then
+        _wdata["{temp c}"] = math.floor(tonumber(_wdata["{temp c}"]) + .5)
+    end -- Calculate wind direction
+    if _wdata["{wind deg}"] ~= "N/A" then
+        _wdata["{wind deg}"] = tonumber(_wdata["{wind deg}"])
+
+        -- Lua tables start at [1]
+        if (_wdata["{wind deg}"] / 45)%1 == 0 then
+            _wdata["{wind aim}"] = _wdirs[_wdata["{wind deg}"] / 45 + 1]
+        else
+            _wdata["{wind aim}"] =
+                _wdirs[math.ceil(_wdata["{wind deg}"] / 45) + 1]..
+                _wdirs[math.floor(_wdata["{wind deg}"] / 45) + 1]
+        end
+    end
+
+    return _wdata
+end
+-- }}}
+
+return setmetatable(openweather, { __call = function(_, ...) return worker(...) end })