widgets/maildir.lua

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