From 237470c8f45190b213e3a173ce6ae1a74b3e11fe Mon Sep 17 00:00:00 2001
From: "Adrian C. (anrxc)" <anrxc@sysphere.org>
Date: Sun, 14 Mar 2010 01:55:33 +0100
Subject: API: transform widgets namespace table to a directory

---
 widgets/mdir.lua | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 widgets/mdir.lua

(limited to 'widgets/mdir.lua')

diff --git a/widgets/mdir.lua b/widgets/mdir.lua
new file mode 100644
index 0000000..858a9b1
--- /dev/null
+++ b/widgets/mdir.lua
@@ -0,0 +1,38 @@
+---------------------------------------------------
+-- 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
+-- }}}
+
+
+-- Mdir: provides the number of new and unread messages in Maildir structures/dirs
+module("vicious.widgets.mdir")
+
+
+-- {{{ Maildir widget type
+local function worker(format, warg)
+    -- Initialise counters
+    local count = { new = 0, cur = 0 }
+
+    for i=1, #warg do
+        -- Recursively find new messages
+        local f = io.popen("find "..warg[i].." -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 "..warg[i].." -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
+-- }}}
+
+setmetatable(_M, { __call = function(_, ...) return worker(...) end })
-- 
cgit v1.2.3