local lm        = require 'lm'
local attention = require 'lm.attention'

attention.handler (
	function ( mesg, from )
		local times = 0
		if from then
			main.print_info ( from, "Buddy wants your attention!" )
		end
		main.timer ( 1,
			function ()
				if times < 6 then
					main.beep ()
					times = times + 1
					return true
				end
				return false
			end )
	end )

main.command ( 'attention',
	function ( args )
		local connection = main.connection ()
		if not connection then
			print "You are not online!"
			return
		end
		local who
		if args.t then
			who = args.t
		else
			who = main.full_jid ()
		end
		attention.send ( lm.connection.bless ( connection ), who, args[1] )
	end, true, 'jid' )

local attention_handler = lm.message_handler.new ( attention.message_handler )
local attention_handler_registered = false

local attention_pc_handler =
	function ( args )
		local connection = main.connection ()
		if connection then
			lm.connection.bless(connection):handler ( attention_handler, 'message', 'normal' )
			attention_handler_registered = true
		end
	end
local attention_pd_handler = 
	function ( args )
		if attention_handler_registered then
			local connection = main.connection ()
			if connection then
				lm.connection.bless(connection):handler ( attention_handler, 'message' )
			end
			attention_handler_registered = false
		end
	end
main.hook ( 'hook-post-connect',   attention_pc_handler )
main.hook ( 'hook-pre-disconnect', attention_pd_handler )

-- register handler, if we are already connected
main.hook ( 'hook-lua-start',
	function ( args )
		main.add_feature ( 'urn:xmpp:attention:0' )
		attention_pc_handler ()
	end )
main.hook ('hook-lua-quit',
	function ( args )
		main.del_feature ( 'urn:xmpp:attention:0' )
		attention_pd_handler ()
	end )

-- vim: se ts=4 sw=4: --