function s:exit(code, buffer, start, end, callbacks)
	if len(a:callbacks)>1
		let [l:Success, l:Error] = a:callbacks
	elseif len(a:callbacks)>0
		let l:Success = a:callbacks[0]
		let l:Error = a:callbacks[0]
	else
		let l:Success = { a -> a }
		let l:Error = { a -> a }
	end
	if (a:code == 0)
		return l:Success({"output": a:buffer, "tstart": a:start, "tend": a:end, "code": a:code})
	else
		return l:Error({"output": a:buffer, "tstart": a:start, "tend": a:end, "code": a:code})
	endif
endfun

function Defer(command, ...)
	let l:start = strftime("%s")
	let l:buffer = []
  let l:callbacks = a:000
	if has("nvim")
		call jobstart(a:command, {
					\ "out_io": "pipe",
					\ "out_cb": { pipe, text -> add(l:buffer, text) },
					\ "on_exit": { id, code -> <SID>exit(code, l:buffer, l:start, strftime("%s"), l:callbacks) }
					\ })
	else
		call job_start(a:command, {
					\ "out_io": "pipe",
					\ "out_cb": { pipe, text -> add(l:buffer, text) },
					\ "close_cb": { pipe -> <SID>exit(0, l:buffer, l:start, strftime("%s"), a:000) }
					\ })
	end
endfun

function s:expand(string)
	return substitute(a:string, '%[:a-z]*', '\=expand(submatch(0))', 'g')
endfun

function s:echo(message, ...)
	if (a:0 > 0)
		exec "echohl ".a:1
	end
	echom a:message
	if (a:0 > 0)
		echohl None
	end
endfun

function s:notify(message)
	call Defer('notify-send "Vim" "'.a:message.'"', { b -> 0 })
endfun

comm -complete=shellcmd -nargs=* Defer call Defer(s:expand(<q-args>))
comm -complete=shellcmd -nargs=* DeferEcho call Defer(s:expand(<q-args>), { result -> <SID>echo("Deferred job completed (".(result['tend']-result['tstart'])."s): ".s:expand(<q-args>)) }, { result -> <SID>echo("Deferred job errored with ".result['code']." (".(result['tend']-result['tstart'])."s): ".s:expand(<q-args>), 'WarningMsg') })
comm -complete=shellcmd -nargs=* DeferNotify call Defer(s:expand(<q-args>), { result -> <SID>notify("Deferred job completed (".(result['tend']-result['tstart'])."s):\n$ ".s:expand(<q-args>)) }, { result -> <SID>notify("Deferred job errored with ".result['code']." (".(result['tend']-result['tstart'])."s):\n$ ".s:expand(<q-args>)) })