widgets/maildir.lua

   1 --[[
   2
   3      Licensed under GNU General Public License v2
   4       * (c) 2013,      Luke Bonham
   5       * (c) 2010-2012, Peter Hofmann
   6
   7 --]]
   8
   9 local newtimer        = require("lain.helpers").newtimer
  10
  11 local wibox           = require("wibox")
  12
  13 local io              = io
  14 local os              = { getenv = os.getenv }
  15 local pairs           = pairs
  16 local string          = { len    = string.len,
  17                           match  = string.match }
  18 local table           = { sort   = table.sort }
  19
  20 local setmetatable    = setmetatable
  21
  22 -- Maildir check
  23 -- lain.widgets.maildir
  24 local maildir = {}
  25
  26 local function worker(args)
  27     local args         = args or {}
  28     local timeout      = args.timeout or 60
  29     local mailpath     = args.mailpath or os.getenv("HOME") .. "/Mail"
  30     local ignore_boxes = args.ignore_boxes or {}
  31     local settings     = args.settings or function() end
  32
  33     maildir.widget = wibox.widget.textbox('')
  34
  35     function update()
  36         -- Find pathes to mailboxes.
  37         local p = io.popen("find " .. mailpath ..
  38                            " -mindepth 1 -maxdepth 1 -type d" ..
  39                            " -not -name .git")
  40         local boxes = {}
  41         repeat
  42             line = p:read("*l")
  43             if line ~= nil
  44             then
  45                 -- Find all files in the "new" subdirectory. For each
  46                 -- file, print a single character (no newline). Don't
  47                 -- match files that begin with a dot.
  48                 -- Afterwards the length of this string is the number of
  49                 -- new mails in that box.
  50                 local np = io.popen("find " .. line ..
  51                                     "/new -mindepth 1 -type f " ..
  52                                     "-not -name '.*' -printf a")
  53                 local mailstring = np:read("*all")
  54
  55                 -- Strip off leading mailpath.
  56                 local box = string.match(line, mailpath .. "/*([^/]+)")
  57                 local nummails = string.len(mailstring)
  58                 if nummails > 0
  59                 then
  60                     boxes[box] = nummails
  61                 end
  62             end
  63         until line == nil
  64
  65         table.sort(boxes)
  66
  67         newmail = "no mail"
  68
  69         local count = 0
  70         for box, number in pairs(boxes)
  71         do
  72             count = count + 1
  73             -- Add this box only if it's not to be ignored.
  74             if not util.element_in_table(box, ignore_boxes)
  75             then
  76                 if newmail == ""
  77                 then
  78                     newmail = box .. "(" .. number .. ")"
  79                 else
  80                     newmail = newmail .. ", " ..
  81                               box .. "(" .. number .. ")"
  82                 end
  83             end
  84         end
  85
  86         widget = maildir.widget
  87         settings()
  88     end
  89
  90     newtimer(mailpath, timeout, update, true)
  91     return maildir.widget
  92 end
  93
  94 return setmetatable(maildir, { __call = function(_, ...) return worker(...) end })