window.vim

" Copyright (c) 2013 Junegunn Choi
"
" MIT License
"
" Permission is hereby granted, free of charge, to any person obtaining
" a copy of this software and associated documentation files (the
" "Software"), to deal in the Software without restriction, including
" without limitation the rights to use, copy, modify, merge, publish,
" distribute, sublicense, and/or sell copies of the Software, and to
" permit persons to whom the Software is furnished to do so, subject to
" the following conditions:
"
" The above copyright notice and this permission notice shall be
" included in all copies or substantial portions of the Software.
"
" THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
" EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
" MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
" NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
" LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
" OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
" WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

let s:quickfix_bfr  = 0
let s:console_bfr   = 0
let s:console_tab   = 0
let s:workbench_tab = 0
let s:workbench_bfr = 0

function! s:switch_to_console()
  execute 'normal! '.s:console_tab.'gt'
  if tabpagenr() != s:console_tab
    call vader#window#append(printf('Vader warning: could not change to console tab (%d)', s:console_tab), 0)
  endif
  call append(line('$') - 1, s:console_buffered)
  let s:console_buffered = []
endfunction

function! s:switch_to_workbench()
  execute 'normal! '.s:workbench_tab.'gt'
  execute 'b!' s:workbench_bfr
endfunction

function! vader#window#open()
  execute 'silent! bd' s:console_bfr
  execute 'silent! bd' s:workbench_bfr
  if bufexists(s:quickfix_bfr)
    execute "silent! bd ".s:quickfix_bfr
  endif

  let s:prev_winid = exists('*win_getid') ? win_getid() : 0
  tabnew
  setlocal buftype=nofile noswapfile nospell
  setf vader-result
  silent f \[Vader\]
  let s:console_tab = tabpagenr()
  let s:console_bfr = bufnr('')
  let s:console_buffered = []
  let b:vader_data = {}
  nnoremap <silent> <buffer> <CR> :call <SID>action(line('.'))<CR>

  tabnew
  setlocal buftype=nofile
  setlocal noswapfile
  silent f \[Vader-workbench\]
  let s:workbench_tab = tabpagenr()
  let s:workbench_bfr = bufnr('')
endfunction

function! vader#window#execute(lines, lang_if)
  let temp = tempname()
  try
    if empty(a:lang_if)
      let lines = a:lines
    else
      let lines = copy(a:lines)
      call insert(lines, a:lang_if . ' << __VADER__LANG__IF__')
      call add(lines, '__VADER__LANG__IF__')
    endif
    call writefile(lines, temp)
    execute 'source '.temp
  finally
    call delete(temp)
  endtry
endfunction

function! vader#window#replay(lines)
  call setreg('x', substitute(join(a:lines, ''), '\\<[^>]\+>', '\=eval("\"".submatch(0)."\"")', 'g'), 'c')
  normal! @x
endfunction

function! vader#window#result()
  return getline(1, line('$'))
endfunction

function! vader#window#append(message, indent, ...)
  let message = repeat('  ', a:indent) . a:message
  if get(a:, 1, 1)
    let message = substitute(message, '\s*$', '', '')
  endif
  if !exists('s:console_buffered')
    call vader#print_stderr(printf("Vader: got message before startup: %s\n", message))
    return 0
  endif
  if get(g:, 'vader_bang', 0)
    call vader#print_stderr(message."\n")
    return 0
  endif
  call add(s:console_buffered, message)
  return len(s:console_buffered)
endfunction

function! vader#window#prepare(lines, type)
  call s:switch_to_workbench()
  execute 'setlocal modifiable filetype='.a:type

  silent %d _
  for line in a:lines
    call append(line('$') - 1, line)
  endfor
  silent d _
  execute "normal! \<c-\>\<c-n>gg0"

  let &undolevels = &undolevels " Break undo block
endfunction

function! vader#window#cleanup()
  execute 'silent! bd' s:workbench_bfr
  call s:switch_to_console()
  setlocal nomodifiable
  nnoremap <silent> <buffer> q :call <SID>quit()<CR><CR>
  normal! Gzb
endfunction

function! vader#window#copen()
  copen
  let s:quickfix_bfr = bufnr('')
  1wincmd w
  normal! Gzb
  2wincmd w
  nnoremap <silent> <buffer> q :call <SID>quit()<CR><CR>
  nnoremap <silent> <buffer> <CR> :call <SID>move()<CR><CR>
endfunction

function! vader#window#set_data(l1, l2, data)
  try
    let var = getbufvar(s:console_bfr, 'vader_data', {})
    for l in range(a:l1, a:l2)
      let var[l] = a:data
    endfor
    call setbufvar(s:console_bfr, 'vader_data', var)
  catch
  endtry
endfunction

function! s:scratch(type, data, title)
  setlocal buftype=nofile bufhidden=wipe nobuflisted noswapfile nowrap modifiable
  silent! execute 'setf '.a:type
  call append(0, a:data)
  nnoremap <silent> <buffer> q :tabclose<cr>
  autocmd TabLeave <buffer> tabclose

  execute 'silent f '.escape(a:title, '[]')
  normal! G"_ddgg
  diffthis
  setlocal nomodifiable
endfunction

function! s:action(line)
  if has_key(b:vader_data, a:line)
    let data = b:vader_data[a:line]
    if has_key(data, 'expect')
      tabnew
      call s:scratch(data.type, data.expect, '[Vader-expected]')

      vertical botright new
      call s:scratch(data.type, data.got, '[Vader-got]')

      redraw
      echo "Press 'q' to close"
    endif
  else
    execute "normal! \<CR>"
  endif
endfunction

function! s:move()
  let lno = matchstr(getline('.'), '(#[0-9]\+)')[2:-2]
  let wq = winnr()
  let wc = bufwinnr(s:console_bfr)
  if wc >= 0
    execute wc . 'wincmd w'
    let scrolloff = &scrolloff
    set scrolloff=0
    execute lno
    normal! zt
    redraw
    let &scrolloff = scrolloff
    execute wq . 'wincmd w'
  endif
endfunction

function! s:quit()
  if s:prev_winid
    let [s:t, s:w] = win_id2tabwin(s:prev_winid)
    if s:t
      execute printf('tabnext %d | %dwincmd w | %dtabclose', s:t, s:w, s:console_tab)
      return
    endif
  endif
  tabclose
endfunction