vicious/fs.lua

---------------------------------------------------
-- Licensed under the GNU General Public License v2
--  * (c) 2010, Adrian C. <anrxc@sysphere.org>
--  * (c) 2009, Lucas de Vries <lucas@glacicle.com>
---------------------------------------------------

-- {{{ Grab environment
local tonumber = tonumber
local io = { popen = io.popen }
local setmetatable = setmetatable
local string = {
    match = string.match,
    format = string.format
}
-- }}}


-- FS: provides file system disk space usage
module("vicious.fs")


-- {{{ Helper functions
local function uformat(array, key, value)
    array["{"..key.."_mb}"] = string.format("%.1f", value/1024)
    array["{"..key.."_gb}"] = string.format("%.1f", value/1024/1024)
    return array
end
-- }}}

-- {{{ Filesystem widget type
local function worker(format, nfs)
    -- Fallback to listing only local file systems
    if nfs then nfs = "" else nfs = "--local" end

    -- Get data from df
    local f = io.popen("LANG=C df -kP " .. nfs)
    local fs_info = {}

    for line in f:lines() do
        if not string.match(line, "^Filesystem.*") then
            local s, u, a, p, m = string.match(line, -- Match all at once (including NFS)
             "^[%w%p]+[%s]+([%d]+)[%s]+([%d]+)[%s]+([%d]+)[%s]+([%d]+)%%[%s]+([%w%p]+)$")

            uformat(fs_info, m .. " size",  s)
            uformat(fs_info, m .. " used",  u)
            uformat(fs_info, m .. " avail", a)
            fs_info["{" .. m .. " used_p}"] = tonumber(p)
        end
    end
    f:close()

    return fs_info
end
-- }}}

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