blob: 39683c065437cdde89e3b7329d50a7018b518955 (
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
37
38
39
40
41
|
----------------------------------------------------------
-- Licensed under the GNU General Public License version 2
-- * Copyright (C) 2009 Adrian C. <anrxc_sysphere_org>
-- * Derived from Maildir Biff Widget, by 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 newcount = 0
local curcount = 0
-- Recursively find new messages
local fnew = io.popen("find " .. mdir .. " -type f -wholename '*/new/*'")
for line in fnew:lines() do
newcount = newcount + 1
end
fnew:close()
-- Recursively find "old" messages lacking the Seen flag
local fcur = io.popen("find " .. mdir .. " -type f -regex '.*/cur/.*2,[^S]*$'")
for line in fcur:lines() do
curcount = curcount + 1
end
fcur:close()
return {newcount, curcount}
end
-- }}}
setmetatable(_M, { __call = function(_, ...) return worker(...) end })
|
