aboutsummaryrefslogtreecommitdiff
path: root/mdir.lua
blob: e0fe3926279132ba559e3ed9f237a14711954e80 (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 }
-- }}}


-- Mdir: provides a number of new and unread messages in a Maildir structure
module("vicious.mdir")


-- {{{ Maildir widget type
function worker(format, mdir)
    -- Widgets like this one are not agressive like CPU or NET, so we
    -- can keep it simple, find is OK with me if we execute every >60s
    --
    -- 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
-- }}}