93 lines
2.5 KiB
Lua
93 lines
2.5 KiB
Lua
local i_o = require 'i_o'
|
|
local common = require 'common'
|
|
local geometry = require 'geometry'
|
|
local pure = require 'pure'
|
|
local impure = require 'impure'
|
|
|
|
return function(pathspecs, main_state, point)
|
|
local SPACING = 20
|
|
local BAR_PAD = 100
|
|
local SEPARATOR_SPACING = 20
|
|
|
|
-----------------------------------------------------------------------------
|
|
-- smartd
|
|
|
|
local mk_smart = function(y)
|
|
local obj = common.make_text_row(
|
|
point.x,
|
|
y,
|
|
geometry.SECTION_WIDTH,
|
|
'SMART Daemon'
|
|
)
|
|
local update = function()
|
|
if main_state.trigger10 == 0 then
|
|
local pid = i_o.execute_cmd('pidof smartd', nil, '*n')
|
|
common.text_row_set(obj, (pid == '') and 'Error' or 'Running')
|
|
end
|
|
end
|
|
return common.mk_acc(
|
|
geometry.SECTION_WIDTH,
|
|
0,
|
|
update,
|
|
pure.partial(common.text_row_draw_static, obj),
|
|
pure.partial(common.text_row_draw_dynamic, obj)
|
|
)
|
|
end
|
|
|
|
local mk_sep = pure.partial(
|
|
common.mk_seperator,
|
|
geometry.SECTION_WIDTH,
|
|
point.x
|
|
)
|
|
|
|
-----------------------------------------------------------------------------
|
|
-- filesystem bar chart
|
|
|
|
local mk_bars = function(y)
|
|
local paths, names = table.unpack(pure.unzip(pathspecs))
|
|
local CONKY_CMDS = pure.map(
|
|
pure.partial(string.format, '${fs_used_perc %s}', true),
|
|
paths
|
|
)
|
|
local obj = common.make_compound_bar(
|
|
point.x,
|
|
y,
|
|
geometry.SECTION_WIDTH,
|
|
BAR_PAD,
|
|
names,
|
|
SPACING,
|
|
12,
|
|
80
|
|
)
|
|
local read_fs = function(index, cmd)
|
|
common.compound_bar_set(obj, index, i_o.conky_numeric(cmd))
|
|
end
|
|
local update = function()
|
|
if main_state.trigger10 == 0 then
|
|
impure.ieach(read_fs, CONKY_CMDS)
|
|
end
|
|
end
|
|
return common.mk_acc(
|
|
geometry.SECTION_WIDTH,
|
|
(#pathspecs - 1) * SPACING,
|
|
update,
|
|
pure.partial(common.compound_bar_draw_static, obj),
|
|
pure.partial(common.compound_bar_draw_dynamic, obj)
|
|
)
|
|
end
|
|
|
|
-----------------------------------------------------------------------------
|
|
-- main functions
|
|
|
|
return common.reduce_blocks_(
|
|
'FILE SYSTEMS',
|
|
point,
|
|
geometry.SECTION_WIDTH,
|
|
{
|
|
common.mk_block(mk_smart, true, 0),
|
|
common.mk_block(mk_sep, true, SEPARATOR_SPACING),
|
|
common.mk_block(mk_bars, true, SEPARATOR_SPACING),
|
|
}
|
|
)
|
|
end
|