widget/imap.lua

   1
   2 --[[
   3
   4      Licensed under GNU General Public License v2
   5       * (c) 2013, Luke Bonham
   6
   7 --]]
   8
   9 local helpers      = require("lain.helpers")
  10 local naughty      = require("naughty")
  11 local wibox        = require("wibox")
  12 local string       = { format = string.format,
  13                        gsub   = string.gsub }
  14 local type         = type
  15 local tonumber     = tonumber
  16 local setmetatable = setmetatable
  17
  18 -- Mail IMAP check
  19 -- lain.widget.imap
  20
  21 local function worker(args)
  22     local imap      = { widget = wibox.widget.textbox() }
  23     local args      = args or {}
  24     local server    = args.server
  25     local mail      = args.mail
  26     local password  = args.password
  27     local port      = args.port or 993
  28     local timeout   = args.timeout or 60
  29     local is_plain  = args.is_plain or false
  30     local followtag = args.followtag or false
  31     local settings  = args.settings or function() end
  32
  33     local head_command = "curl --connect-timeout 3 -fsm 3"
  34     local request = "-X 'SEARCH (UNSEEN)'"
  35
  36     if not server or not mail or not password then return end
  37
  38     helpers.set_map(mail, 0)
  39
  40     if not is_plain then
  41         if type(password) == "string" or type(password) == "table" then
  42             helpers.async(password, function(f) password = f:gsub("\n", "") end)
  43         elseif type(password) == "function" then
  44             local p = password()
  45         end
  46     end
  47
  48     function update()
  49         mail_notification_preset = {
  50             icon     = helpers.icons_dir .. "mail.png",
  51             position = "top_left"
  52         }
  53
  54         if followtag then
  55             mail_notification_preset.screen = awful.screen.focused()
  56         end
  57
  58         curl = string.format("%s --url imaps://%s:%s/INBOX -u %s:%q %s -k",
  59                head_command, server, port, mail, password, request)
  60
  61         helpers.async(curl, function(f)
  62             _, mailcount = string.gsub(f, "%d+", "")
  63             _ = nil
  64
  65             widget = imap.widget
  66             settings()
  67
  68             if mailcount >= 1 and mailcount > helpers.get_map(mail) then
  69                 if mailcount == 1 then
  70                     nt = mail .. " has one new message"
  71                 else
  72                     nt = mail .. " has <b>" .. mailcount .. "</b> new messages"
  73                 end
  74                 naughty.notify({ preset = mail_notification_preset, text = nt })
  75             end
  76
  77             helpers.set_map(mail, mailcount)
  78         end)
  79
  80     end
  81
  82     imap.timer = helpers.newtimer(mail, timeout, update, true, true)
  83
  84     return imap
  85 end
  86
  87 return setmetatable({}, { __call = function(_, ...) return worker(...) end })