-- ATTENTION (XEP-0224)

-- library

require 'lm'

-- public

attention = {

	handler =

		function ( mesg )

		end,

}

function attention.send ( conn, to, message )

	local body = nil

	if message then

		body = { message }

	end

	conn:send (

		lm.message.create { mtype = 'message-headline', to = to,

			attention = { xmlns = 'urn:xmpp:attention:0' },

			body = body,

		} )

end

-- private

local attention_incoming_message_handler = lm.message_handler.new (

	function ( conn, mess )

		local a = mess:child ( 'attention' )

		if a and a:attribute ( 'xmlns' ) == 'urn:xmpp:attention:0' then

			local body = mess:child ( 'body' )

			if body then

				body = body:value ()

			end

			attention.handler ( body )

		end

		return false

	end )

-- mcabber

attention.handler =

	function ( mesg )

		local times = 0

		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 who

		if args.t then

			who = args.t

		else

			who = main.full_jid ()

		end

		attention.send ( lm.connection.bless ( main.connection () ), who, args[1] )

	end, true, 'jid' )

commands_help['attention'] = "[-t to] [message]\n\nTries to get buddy's attention."

local attention_handler_registered = false

hooks_d['hook-post-connect'].attention =

	function ( args )

		lm.connection.bless( main.connection () ):handler ( attention_incoming_message_handler, 'message', 'normal' )

		attention_handler_registered = true

		hooks_d['hook-post-connect'].attention = nil

		hooks_d['hook-quit'].attention =

			function ( args )

				if attention_handler_registered then

					lm.connection.bless( main.connection () ):handler ( attention_incoming_message_handler, 'message' )

				end

			end

	end

main.add_feature ( 'urn:xmpp:attention:0' )

-- vim: se ts=4: --