aboutsummaryrefslogtreecommitdiff
path: root/widgets/mdir.lua
blob: bea90885102e0b0b2c4248d57ca161b6667b1b18 (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
42
43
---------------------------------------------------
-- Licensed under the GNU General Public License v2
--  * (c) 2010, Adrian C. <anrxc@sysphere.org>
--  * (c) Maildir Biff Widget, Fredrik Ax
---------------------------------------------------

-- {{{ Grab environment
local io = { popen = io.popen }
local setmetatable = setmetatable
local helpers = require("vicious.helpers")
-- }}}


-- Mdir: provides the number of new and unread messages in Maildir structures/dirs
-- vicious.widgets.mdir
local mdir = {}


-- {{{ Maildir widget type
local function worker(format, warg)
    if not warg then return end

    -- Initialize counters
    local count = { new = 0, cur = 0 }

    for i=1, #warg do
        quoted_path = helpers.shellquote(warg[i])
        -- Recursively find new messages
        local f = io.popen("find "..quoted_path.." -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 "..quoted_path.." -type f -regex '.*/cur/.*2,[^S]*$'")
        for line in f:lines() do count.cur = count.cur + 1 end
        f:close()
    end

    return {count.new, count.cur}
end
-- }}}

return setmetatable(mdir, { __call = function(_, ...) return worker(...) end })