--- 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: --