quickrun.vim

let s:P = g:V.import('ProcessManager')

let s:p = s:P.of('qr', 'clojure-1.6')

nnoremap <Space>r :<C-u>call <SID>run()<Cr>

function! s:run()
  if s:p.is_new()
    call s:p.wait(['user=> '])
  endif

  call s:p.writeln2(join(getline(1, '$'), "\n"))
  call s:p.read_until(['user=> '])

  new
  let s:winbufnr = winbufnr('.')
  wincmd p

  augroup process-manager-example
    autocmd! CursorHold,CursorHoldI * call s:loop()
  augroup END
endfunction

function! s:loop()
  let result = s:p.go_acc()
  if result.fail
    echomsg 'failed'
    augroup process-manager-example
      autocmd!
    augroup END
  elseif result.done
    execute s:winbufnr . 'wincmd w'
    for line in split(result.err . result.out, "\n")
      call append(line('$'), line)
  endfor
    wincmd p

    augroup process-manager-example
      autocmd!
    augroup END
  else
    call feedkeys(mode() ==# 'i' ? "\<C-g>\<ESC>" : "g\<ESC>", 'n')
  endif
endfunction