Actualizacion maquina principal

[dotfiles/.git] / .config / awesome / lain / widget / imap.lua

diff --git a/.config/awesome/lain/widget/imap.lua b/.config/awesome/lain/widget/imap.lua
new file mode 100644 (file)
index 0000000..b3d9dc7
--- /dev/null
+++ b/.config/awesome/lain/widget/imap.lua
@@ -0,0 +1,93 @@
+--[[
+
+     Licensed under GNU General Public License v2
+      * (c) 2013, Luca CPZ
+
+--]]
+
+local helpers  = require("lain.helpers")
+local naughty  = require("naughty")
+local wibox    = require("wibox")
+local awful    = require("awful")
+local string   = string
+local type     = type
+local tonumber = tonumber
+
+-- Mail IMAP check
+-- lain.widget.imap
+
+local function factory(args)
+    local imap       = { widget = wibox.widget.textbox() }
+    local args       = args or {}
+    local server     = args.server
+    local mail       = args.mail
+    local password   = args.password
+    local port       = args.port or 993
+    local timeout    = args.timeout or 60
+    local pwdtimeout = args.pwdtimeout or 10
+    local is_plain   = args.is_plain or false
+    local followtag  = args.followtag or false
+    local notify     = args.notify or "on"
+    local settings   = args.settings or function() end
+
+    local head_command = "curl --connect-timeout 3 -fsm 3"
+    local request = "-X 'STATUS INBOX (MESSAGES RECENT UNSEEN)'"
+
+    if not server or not mail or not password then return end
+
+    mail_notification_preset = {
+        icon     = helpers.icons_dir .. "mail.png",
+        position = "top_left"
+    }
+
+    helpers.set_map(mail, 0)
+
+    if not is_plain then
+        if type(password) == "string" or type(password) == "table" then
+            helpers.async(password, function(f) password = f:gsub("\n", "") end)
+        elseif type(password) == "function" then
+            imap.pwdtimer = helpers.newtimer(mail .. "-password", pwdtimeout, function()
+                local retrieved_password, try_again = password()
+                if not try_again then
+                    imap.pwdtimer:stop() -- stop trying to retrieve
+                    password = retrieved_password or "" -- failsafe
+                end
+            end, true, true)
+        end
+    end
+
+    function imap.update()
+        -- do not update if the password has not been retrieved yet
+        if type(password) ~= "string" then return end
+
+        local curl = string.format("%s --url imaps://%s:%s/INBOX -u %s:'%s' %s -k",
+                     head_command, server, port, mail, password, request)
+
+        helpers.async(curl, function(f)
+            imap_now = { ["MESSAGES"] = 0, ["RECENT"] = 0, ["UNSEEN"] = 0 }
+
+            for s,d in f:gmatch("(%w+)%s+(%d+)") do imap_now[s] = tonumber(d) end
+            mailcount = imap_now["UNSEEN"] -- backwards compatibility
+            widget = imap.widget
+
+            settings()
+
+            if notify == "on" and mailcount and mailcount >= 1 and mailcount > helpers.get_map(mail) then
+                if followtag then mail_notification_preset.screen = awful.screen.focused() end
+                naughty.notify {
+                    preset = mail_notification_preset,
+                    text   = string.format("%s has <b>%d</b> new message%s", mail, mailcount, mailcount == 1 and "" or "s")
+                }
+            end
+
+            helpers.set_map(mail, imap_now["UNSEEN"])
+        end)
+
+    end
+
+    imap.timer = helpers.newtimer(mail, timeout, imap.update, true, true)
+
+    return imap
+end
+
+return factory