For bsdfox from #lua

gistfile1.lua

#!/usr/bin/lua
local evdev = require "evdev"
local pirsensor = evdev.Device "/dev/input/event0"
local cqueues = require "cqueues"

local sleeptime = 10
local pending = nil

-- ensure backlight is off to start
os.execute("/home/h36sa/Projects/fbtft/backlight_off.sh")

local cq = cqueues.new()
cq:wrap(function()
	while true do
		cqueues.poll(pirsensor)
		local timestamp, eventType, eventCode, value = pirsensor:tryread()
		if timestamp ~= nil and eventType == evdev.EV_KEY then
			if value == 1 then
				print("Motion detected! turn on lcd backlight (minimum 10 sec)")
				os.execute("/home/h36sa/Projects/fbtft/backlight_on.sh")
				pending = cq:wrap(function()
					cqueues.sleep(sleeptime)
					if pending == cqueues.running() then
						print("All quiet right now. turn off lcd backlight")
						os.execute("/home/h36sa/Projects/fbtft/backlight_off.sh")
					end
				end)
			end
		end
	end
end)

assert(cq:loop())