-------------------------------------------------------------------------------------------
--
--	PURPOSE:
--	Shows system available memory catching [free] command outputs.
--	It is intended to make it simpler than statusd_meminfo, plus user configurable
--	measurement units and alarms for "all" available memory metters.
--
--	USAGE:
--	Just set any of the following labels on cfg_statusbar.lua: %mem_hused, %mem_shared
--	%mem_free, %mem_hfree, %mem_swap, %mem_used, %mem_cached. Example: [MF: %mem_free]
--
--	MEANINGS:
-->	** "mem_hfree" poses as "htop free memory" or "mem_free +cached +buffers",
--	in oposition, "mem_hused" is "mem_used -cached -buffers"; other labels have
--	transparent meanings.
--
------- CONFIG EXAMPLE:	------------------------------------------------------------------
--
--	To modify settings is quite simple and flexible, write (on cfg_statusbar.lua)
--	something like this, without comments:
--					mem = {
--					   update_interval = 15*1000, --> Milliseconds
--					   free_alarm = 25,   --> Limits percentaje ...
--					   used_alarm = 65,
--					   units = "m" 	      --> "g" or "k" too
--					   }
--	Write only the settings that do you want to change or leave this section as is...
-->	** "update_interval" means "time in milliseconds to update info (default = 15)"
--	"xx_alarm" means "do a color advise when memory *percentage* reaches this value".
--	(both defaults are 50). "units" means Gb "g", Mb "m" or Kb "k" (default = "m")
------------------------------------------------------------------------------------------
--
--	NOTES:
--    *	Alarms for used memory are inverse to alarms for free memory (think about it...)
--	"mem_total" label is useless. If total memory varies, its time to open your
--	hardware and check this script from barebone. Seriously, may be your video or wifi
--	devices were claiming some free R.A.M. on your machine start-up.
--	However, I included "mem_total" just in case.
--   ** This script has non blocking I/O.
--
--	LICENSE:
--	GPL2 Copyright(C)2006 Mario Garcia H.
--	(Please see http://www.gnu.org/licenses/gpl.html to read complete license)
--
--	T.STAMP: Thu Dec  7 03:28:04 2006
--
--	DEPENDS: "free" command. Probably, all GNU/Linux distros have one.
--
--	INSECTS: Not known.
--
--	CONTACT:
--	G.H. <drosophila (at) nmental (dot) com>
--
------- DEFAULT SETTINGS :-----------------------------------------------------------------

local mem_timer
local defaults = {
	update_interval = 15*1000,
	free_alarm = 50,
	used_alarm = 50,
	used_sw_alarm = 50,
	free_sw_alarm = 50,
	units = "m"
}
local settings = table.join(statusd.get_config("mem"), defaults)

------- MEM MONITOR :----------------------------------------------------------------------

local function show_meminfo(status)
	while status do
		local ok, _, total, used, free, shared, buffers, cached =
			string.find(status, "Mem:%s+(%d+)%s+(%d+)%s+" ..
				"(%d+)%s+(%d+)%s+(%d+)%s+(%d+)")
		local sw_ok, _, sw_total, sw_used, sw_free =
			string.find(status, "Swap:%s+(%d+)%s+(%d+)%s+(%d+)")
		--
		if not ok or not sw_ok
		then
			statusd.inform("mem_template", "--")
			return
		end
		--
		local hused = tostring(used - cached - buffers)
		local hfree = tostring(free + cached + buffers)
		statusd.inform("mem_total", total)
		statusd.inform("mem_used", used)
		statusd.inform("mem_free", free)
		statusd.inform("mem_shared", shared)
		statusd.inform("mem_buffers", buffers)
		statusd.inform("mem_cached", cached)
		statusd.inform("mem_hused", hused)
		statusd.inform("mem_hfree", hfree)
		statusd.inform("mem_sw_total", sw_total)
		statusd.inform("mem_sw_used", sw_used)
		statusd.inform("mem_sw_free", sw_free)
		--
		statusd.inform("mem_used_hint",
			(used * 100 / total >= settings.used_alarm) and
				"critical" or "normal")
		statusd.inform("mem_hused_hint",
			(hused * 100 / total >= settings.used_alarm) and
				"critical" or "normal")
		statusd.inform("mem_free_hint",
			(free * 100 / total <= settings.free_alarm) and
				"critical" or "normal")
		statusd.inform("mem_hfree_hint",
			(hfree * 100 / total <= settings.free_alarm) and
				"critical" or "normal")
		--
		statusd.inform("mem_sw_used_hint",
			(sw_used * 100 / total >= settings.used_sw_alarm) and
				"critical" or "normal")
		statusd.inform("mem_sw_free_hint",
			(sw_free * 100 / total <= settings.free_sw_alarm) and
				"critical" or "normal")
		--
		status = coroutine.yield()
	end
end

local function update_mem()
	statusd.popen_bgread("free -"..settings.units.."o", coroutine.wrap(show_meminfo))
	mem_timer:set(settings.update_interval, update_mem)
end

mem_timer = statusd.create_timer()
update_mem()