conky-config/drawing/filesystem.lua

97 lines
2.7 KiB
Lua

local i_o = require 'i_o'
local common = require 'common'
local geometry = require 'geometry'
local pure = require 'pure'
local impure = require 'impure'
-- ASSUME pathspecs will be at least 1 long
return function(config, main_state, point)
-- local config = {
-- show_smart = true
-- }
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(config.fs_paths))
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,
(#config.fs_paths - 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,
{{mk_smart, config.show_smart, SEPARATOR_SPACING}},
common.mk_section(SEPARATOR_SPACING, mk_sep, {mk_bars, true, 0})
-- common.mk_block(mk_sep, config.show_smart, SEPARATOR_SPACING),
-- common.mk_block(mk_bars, true, 0),
-- }
)
end