"silent exec "ecl (load \"" . $VIMRUNTIME . "/if_ecl.lisp\")"
"silent 

function! s:New_tmp_lisp_buffer( name, modifiable, listed )
  if -1 == bufnr( a:name )
    silent exec "new" a:name
  else
    silent exec "sb" bufnr( a:name )
  endif

  let bufnr = bufnr( "%" )
  silent setlocal bufhidden=hide buftype=nofile filetype=lisp noswapfile
  let &l:buflisted = a:listed
  let &l:modifiable = a:modifiable
  close

  return bufnr
endfunction

let g:slime_output_buffer = s:New_tmp_lisp_buffer ("--debug-sv--", 1, 1)
let g:slim_vim_buffer = s:New_tmp_lisp_buffer ("--slim-vim-debug--", 1, 0)
let g:slim_vim_inspect_buffer = s:New_tmp_lisp_buffer ("--slim-vim-inspect--", 1, 0)
let g:slim_vim_repl_buffer = s:New_tmp_lisp_buffer ("--slim-vim-repl--", 1, 1)
let g:slim_vim_error_buffer = s:New_tmp_lisp_buffer ("--slim-vim-errors--", 1, 0)

"function! ECLSlime_find_paren( recursive, ... )
"  let recurs = ''
"  if a:recursive > 0
"    let recurs = 'r'
"  endif
"
"  let dir = ''
"  if a:0 > 0
"    let dir = a:1
"  endif
"
"  call searchpair( "(", '', ")", dir . recurs . "W", "ECLIn_comment_or_string()" )
"endfunction

"function! ECLIn_comment_or_string()
"  let line = getline( "." )
"  if line =~ '[";]'
"    let cur_syn_name = synIDattr( synID( line("."), col("."), 0 ), "name" )
"    if cur_syn_name == "lispComment"
"      \ || cur_syn_name == "lispString"
"      return 1
"    endif
"  endif
"  return 0
"endfunction

"function! ECLSlime_append_to_buffer( bufnr, text, fresh_line )
"  let text = a:text
"
"  silent exec "sb" a:bufnr
"  "silent normal G$
"  if a:fresh_line && virtcol( "." ) > 1
"    let text = "\n" . text
"  endif
"
"  "let old_modif = &l:modifiable
"  setl modifiable
"
"  let old_paste = &paste
"  set paste
"
"  silent exec "normal GA\<c-r>=text\<cr>"
"  "silent normal G$
"
"  set nopaste
"
"  "let &l:modifiable = old_modif
"  let &paste = old_paste
"
"  silent close
"endfunction


"function! ECLSlime_append_output (text, fresh_line)
"    call ECLSlime_append_to_buffer (g:slime_output_buffer, a:text, a:fresh_line)
"endfunction

function! s:SlimVim_main_mappings ()
    " <Leader>x is eval  (Slime = C-M-x)
    " Mnemonic eXecute
    nmap <buffer> <Leader>x :ecl (vim-slime::slime-eval-defun)<CR>

    " <Leader>X is eval only the next outer form (Slime = C-x C-e)
    " Mnemonic eXecute
    nmap <buffer> <Leader>X :ecl (vim-slime::slime-eval-last-expression)<CR>

    " <Leader>c compile and load file
    nmap <buffer> <Leader>c :ecl (vim-slime::slime-compile-file t)<CR>

    " <Leader>C compile file
    nmap <buffer> <Leader>C :ecl (vim-slime::slime-compile-file nil)<CR>

    " <Leader>sc is connect to a running Swank instance (Slime = M-x slime)
    " Mnemonic SlimeConnect
    nmap <buffer> <Leader>sc :ecl (vim-slime::slime-connect)<CR>

    " <Leader>sd is disconnect from a running Swank instance
    " Mnemonic SlimeDisconnect
    nmap <buffer> <Leader>sd :ecl (slime::disconnect)<CR>

    " <Leader>i is inspect the word under the cursor
    nmap <buffer> <Leader>i :ecl (vim-slime::slime-inspect)<CR>

    " Mapping for echoing the arglist
    imap <buffer> <Space> <Space><Esc>:ecl (vim-slime::slime-echo-current-arglist)<CR>a

    " Send an interrupt to the Swank backend
    nmap <buffer> <Leader>b :ecl (slime:send-sigint)<CR>

    " macroexpand-1 the form under point
    nmap <buffer> <Leader>m :ecl (vim-slime::slime-macroexpand-1)<CR>

    " macroexpand-all the form under point
    nmap <buffer> <Leader>M :ecl (vim-slime::slime-macroexpand-all)<CR>
endfunction

" need to have 2 status lines
set cmdheight=2

" Stash the original buffer
let s:old_buffer = bufnr ("%")

" Keymappings for the REPL buffer, many are the same as Lisp buffers
buffer --slim-vim-repl--
nmap <buffer> <CR> :ecl (vim-slime::repl-handle-enter-key)<CR>
" Mapping for echoing the arglist
imap <buffer> <Space> <Space><Esc>:ecl (vim-slime::slime-echo-current-arglist :repl t)<CR>a
nmap <buffer> <Leader>i :ecl (vim-slime::slime-inspect)<CR>
" Send an interrupt to the Swank backend
nmap <buffer> <Leader>b :ecl (slime:send-sigint)<CR>

" macroexpand-1 the form under point
nmap <buffer> <Leader>m :ecl (vim-slime::slime-macroexpand-1)<CR>

" macroexpand-all the form under point
nmap <buffer> <Leader>M :ecl (vim-slime::slime-macroexpand-all)<CR>

" Keymappings for the debug buffer
buffer --slim-vim-debug--
nmap <buffer> 0 :ecl (slime::sldb-invoke-restart 0)<CR>
nmap <buffer> 1 :ecl (slime::sldb-invoke-restart 1)<CR>
nmap <buffer> 2 :ecl (slime::sldb-invoke-restart 2)<CR>
nmap <buffer> 3 :ecl (slime::sldb-invoke-restart 3)<CR>
nmap <buffer> 4 :ecl (slime::sldb-invoke-restart 4)<CR>
nmap <buffer> 5 :ecl (slime::sldb-invoke-restart 5)<CR>
nmap <buffer> 6 :ecl (slime::sldb-invoke-restart 6)<CR>
nmap <buffer> 7 :ecl (slime::sldb-invoke-restart 7)<CR>
nmap <buffer> 8 :ecl (slime::sldb-invoke-restart 8)<CR>
nmap <buffer> 9 :ecl (slime::sldb-invoke-restart 9)<CR>
nmap <buffer> <CR> :ecl (interface::sldb-handle-enter-key)<CR>

" Inspector mappings
buffer --slim-vim-inspect--
nmap <buffer> <CR> :ecl (interface::inspector-handle-enter-key)<CR>
nmap <buffer> l    :ecl (interface::slime-inspector-pop)<CR>
nmap <buffer> q    :ecl (interface::slime-inspector-quit)<CR>

" Change back to the original buffer
exec "buffer" s:old_buffer

" Mappings below here are very temporary
nmap <buffer> <Space>3 :ecl (vim-slime::slime-connect)<CR>
nmap <buffer> <Space>r0 :ecl (slime::sldb-invoke-restart 0)<CR>
nmap <buffer> <Space>r1 :ecl (slime::sldb-invoke-restart 1)<CR>
nmap <buffer> <Space>r2 :ecl (slime::sldb-invoke-restart 2)<CR>
nmap <buffer> <Space>r3 :ecl (slime::sldb-invoke-restart 3)<CR>

" Only one function at the moment, but more later.
" NOTE: Only do stuff here directly related to ecl-slime, i.e. do not "set
" lisp" or "set syntax=lisp", etc.  If users want to do general Lisp-related
" stuff, they can create their own autocommands in their own .vimrc.
function! s:SlimVim_bufread()
  call s:SlimVim_main_mappings()
  exec "set efm=%f>%l>%m"
endfunction

augroup slim_vim
  au!
  autocmd BufNewfile,BufRead *.lisp,*.lsp,*.cl,*.lml,*.asd call s:SlimVim_bufread()
  autocmd VimLeave * ecl (slime::disconnect t)
augroup END

if exists("$ECL_SLIME_PATH")
   let s:cwd = getcwd()
   exec "cd" $ECL_SLIME_PATH
   ecl (load "ecl-slime-loader.lisp")
   exec "cd" s:cwd
else
   echoerr "Environment variable ECL_SLIME_PATH isn't set !"
endif

command! Slime :ecl (vim-slime::slime-connect)<cr>
doautoall slim_vim BufRead