--- JOBS

delayed_jobs = {}

-- may fail

dofile ( main.fileoption 'lua_jobs_file' )

function save_jobs ()

	local h = io.open ( main.fileoption 'lua_jobs_file', "w" )

	if not h then

		print ( 'Cannot open jobs file for writing!' )

		return

	end

	h:write ( "-- This is autogenerated file, do not edit it manually\n\ndelayed_jobs = {\n" );

	for jid, more in pairs ( delayed_jobs ) do

		h:write ( string.format ( "\t[%q] = {\n", jid ) )

		for status, action in pairs ( more ) do

			if action then -- remove fired jobs

				h:write ( string.format ( "\t\t[%q] = %q,\n", status, action ) )

			end

		end

		h:write ( "\t},\n" )

	end

	h:write ( "}\n" )

	h:close ()

end

main.command ( 'delay',

	function ( args )

		local who

		if args.t then

			who = args.t

		else

			who = main.current_buddy ()

		end

		local stat = args[1]

		local mess = args[2]

		delayed_jobs[who] = { }

		delayed_jobs[who][stat] = 'say_to -q ' .. who .. ' ' .. mess

	end, true )

main.command ( 'job',

	function ( args )

		local action, jid, stat = args[1], args[2], args[3]

		if action == 'del' then

			delayed_jobs[jid][stat] = nil

		else

			local text = ''

			for jid, jobs in pairs ( delayed_jobs ) do

				for status, job in pairs ( jobs ) do

					text = text .. '\n - ' .. jid .. ' -> ' .. status .. ': ' .. job

				end

			end

			if text ~= '' then

				print ( 'List of jobs:' .. text )

			else

				print ( 'No jobs' )

			end

		end

	end, true, { "del" } )

commands_help['delay'] = "[-t target_jid] status_letter message\n\nDelays sending a message to target jid (or current buddy) until it switches to specified status."

commands_help['job'] = "[del jid status_letter]\n\nLists available jobs or deletes specified one."

main.hook ( 'hook-status-change',

	function ( args )

		if delayed_jobs[args.jid] and delayed_jobs[args.jid][args.new_status] then

			main.run ( delayed_jobs[args.jid][args.new_status] )

			delayed_jobs[args.jid][args.new_status] = nil

		end

	end )

main.hook ( 'hook-lua-quit', save_jobs )

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