diff options
Diffstat (limited to 'widgets/org.lua')
-rw-r--r-- | widgets/org.lua | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/widgets/org.lua b/widgets/org.lua new file mode 100644 index 0000000..8764e3a --- /dev/null +++ b/widgets/org.lua @@ -0,0 +1,59 @@ +--------------------------------------------------- +-- Licensed under the GNU General Public License v2 +-- * (c) 2010, Adrian C. <anrxc@sysphere.org> +-- * (c) org-awesome, Damien Leone +--------------------------------------------------- + +-- {{{ Grab environment +local io = { lines = io.lines } +local setmetatable = setmetatable +local string = { find = string.find } +local os = { + time = os.time, + date = os.date +} +-- }}} + + +-- Org: provides agenda statistics for Emacs org-mode +module("vicious.widgets.org") + + +-- {{{ OrgMode widget type +local function worker(format, warg) + -- Compute delays + local today = os.time{ year=os.date("%Y"), month=os.date("%m"), day=os.date("%d") } + local soon = today + 24 * 3600 * 3 -- 3 days ahead is close + local future = today + 24 * 3600 * 7 -- 7 days ahead is maximum + + -- Initialise counters + local count = { past = 0, today = 0, soon = 0, future = 0 } + + -- Get data from agenda files + for i=1, #warg do + for line in io.lines(warg[i]) do + local scheduled = string.find(line, "SCHEDULED:") + local closed = string.find(line, "CLOSED:") + local deadline = string.find(line, "DEADLINE:") + + if (scheduled and not closed) or (deadline and not closed) then + local b, e, y, m, d = string.find(line, "(%d%d%d%d)-(%d%d)-(%d%d)") + + if b then + local t = os.time{ year = y, month = m, day = d } + + if t < today then count.past = count.past + 1 + elseif t == today then count.today = count.today + 1 + elseif t <= soon then count.soon = count.soon + 1 + elseif t <= future then count.future = count.future + 1 + end + end + end + end + end + + return {count.past, count.today, count.soon, count.future} +end +-- }}} + +setmetatable(_M, { __call = function(_, ...) return worker(...) end }) |