blob: 5aafdd14c253035aff85ba89527a0e758d74e4ae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
---------------------------------------------------
-- Licensed under the GNU General Public License v2
-- * (c) 2009, Adrian C. <anrxc.sysphere.org>
-- * (c) Maildir Biff Widget, Fredrik Ax
---------------------------------------------------
-- {{{ Grab environment
local io = { popen = io.popen }
local setmetatable = setmetatable
-- }}}
-- Mdir: provides a number of new and unread messages in a Maildir structure
module("vicious.mdir")
-- {{{ Maildir widget type
local function worker(format, mdir)
-- Initialise counters
local count = { new = 0, cur = 0 }
-- Recursively find new messages
local f = io.popen("find " .. mdir .. " -type f -wholename '*/new/*'")
for line in f:lines() do count.new = count.new + 1 end
f:close()
-- Recursively find "old" messages lacking the Seen flag
local f = io.popen("find " .. mdir .. " -type f -regex '.*/cur/.*2,[^S]*$'")
for line in f:lines() do count.cur = count.cur + 1 end
f:close()
return {count.new, count.cur}
end
-- }}}
setmetatable(_M, { __call = function(_, ...) return worker(...) end })
|