aboutsummaryrefslogtreecommitdiff
path: root/widgets/mbox.lua
blob: 7b92e36c8092ab8117715c84b019f7adbd5a0099 (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
44
45
46
47
48
49
50
51
52
53
---------------------------------------------------
-- Licensed under the GNU General Public License v2
--  * (c) 2010, Adrian C. <anrxc@sysphere.org>
---------------------------------------------------

-- {{{ Grab environment
local type = type
local io = { open = io.open }
local setmetatable = setmetatable
local string = { gfind = string.gfind }
local helpers = require("vicious.helpers")
-- }}}


-- Mbox: provides the subject of last e-mail in a mbox file
-- vicious.widgets.mbox
local mbox = {}


-- Initialize variables
local subject = "N/A"

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

    -- mbox could be huge, get a 30kb chunk from EOF
    if type(warg) ~= "table" then _mbox = warg end
    -- * attachment could be much bigger than 30kb
    local f = io.open(_mbox or warg[1])
    f:seek("end", -30720)
    local txt = f:read("*all")
    f:close()

    -- Find all Subject lines
    for i in string.gfind(txt, "Subject: ([^\n]*)") do
       subject = i
    end

    -- Check if we should scroll, or maybe truncate
    if type(warg) == "table" then
        if warg[3] ~= nil then
            subject = helpers.scroll(subject, warg[2], warg[3])
        else
            subject = helpers.truncate(subject, warg[2])
        end
    end

    return {helpers.escape(subject)}
end
-- }}}

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