Some MIT Scheme bindings intended for Neovim

scheme.vim

function! scheme#connect()
  vnew
  let s:repl_term_id = termopen('mit-scheme')
  normal! G
endfunction

function! scheme#eval_top_form()
  let l:save_clipboard = &clipboard
  set clipboard=
  let l:save_reg = getreg('s')
  let l:save_regmode = getregtype('s')

  normal yaF``

  let l:text = @@
  call setreg('s', l:save_reg, l:save_regmode)

  let &clipboard = l:save_clipboard

  call jobsend(s:repl_term_id, l:text . "\n")
endfunction

function! scheme#eval_file()
  for line in getline(1, '$')
    call jobsend(s:repl_term_id, line . "\n")
  endfor
endfunction

command SchemeConnect call scheme#connect()
command SchemeEvalTopForm call scheme#eval_top_form()
command SchemeEvalFile call scheme#eval_file()

autocmd FileType scheme nnoremap <buffer> <localleader>sc :SchemeConnect<cr>
autocmd FileType scheme nnoremap <buffer> <localleader>se :SchemeEvalTopForm<cr>
autocmd FileType scheme nnoremap <buffer> <localleader>sf :SchemeEvalFile<cr>

From my dotfiles https://github.com/Olical/dotfiles

Requires vim-sexp for the form grabbing.

Now here as a plugin https://github.com/Olical/vim-scheme