vicious/mdir.lua

---------------------------------------------------
-- 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 })