Selene OLed plug-in

Examples

• Drawing.sel
• DrawingPatterns.sel
• HelloWorld.sel
• PowerGraph.sel
• SnowFall.sel
• SysMinitor.sel

Classes

• SelOLED

SysMinitor.sel

#!./Selene
-- Display system information

-- Helper
if not table.pack then
    function table.pack (...)
        return {n=select('#',...); ...}
    end
end

Selene.UseOLED()

if not arg or #arg ~=2 then
	print "Missing expected arguments :"
	print "- Screen identifier"
	print "- I2c bus to use"
	print ""
	print("Example : ", SELENE_SCRIPT_NAME .." 2 /dev/i2c-2")
	print ""

	print "Known screens :"
	print("ident","name")
	local l = table.pack( SelOLED.oled_type() )
	for _,x in ipairs(l)
	do
		print(_, x)
	end
else
	if SelOLED.Init(arg[1], arg[2]) == false then
		error("Can't open I2C Device\n")
	end

	SelOLED.Flip(true)	-- If needed

	while true do	-- Endless loop to display information
		local f = io.open('/proc/loadavg','r')
		local r1 = f:read('*n')
		f:close()

		f = io.open('/proc/meminfo','r')
		local mtotal, mfree, stotal, sfree
		for l in f:lines() do
			local tok, v = l:match("(%a+):%s*(%d+)")
			v = tonumber(v)

			if tok == "MemTotal" then
				mtotal = v
			elseif tok == "MemFree" then
				mfree = v
			elseif tok == "SwapTotal" then
				stotal = v
			elseif tok == "SwapFree" then
				sfree = v
			end
		end
		f:close()

		SelOLED.Clear()
		SelOLED.SetTextColor(1)
		SelOLED.SetTextSize(2)
		SelOLED.SetCursor(0,0)
		SelOLED.Print(Selene.Hostname())

		SelOLED.SetTextSize(1)
		SelOLED.SetCursor(0,19)
		SelOLED.Print("CPU : " .. string.format("%0.2f",r1))
		local max = math.ceil(r1)
		SelOLED.SetCursor(116,19)
		SelOLED.Print(string.format("%2d", max))
		SelOLED.HorizontalGauge(0,29, SelOLED.Width(),6, r1/max*100)

		SelOLED.SetCursor(0,38)
		local pmem = mfree / mtotal * 100
		local pswap = sfree / stotal * 100
		SelOLED.Print(
			"MEM :" .. string.format("%3d%%",100-pmem) ..
			"  Swap :" .. string.format("%3d%%",100-pswap)
		)
		SelOLED.HorizontalGauge(0,48, SelOLED.Width()/2-2,6, 100-pmem)
		SelOLED.HorizontalGauge(SelOLED.Width()/2+2,48, SelOLED.Width()/2-2,6, 100-pswap)

		SelOLED.Display()
-- SelOLED.SaveToPBM("/tmp/tst.pbm")
		Selene.Sleep(10)
	end

	SelOLED.Close()	-- Never reached by ... clean :)
end