Remove old R5RS REPL support

master
Hektor Misplon 2022-08-21 11:02:29 +02:00
parent 0212c6e8d4
commit d48b4997c7
1 changed files with 0 additions and 31 deletions

View File

@ -1,31 +0,0 @@
"
" Originally from:
" https://github.com/ward/dotfiles/blob/master/vim/ftplugin/scheme/icp1.vim
"
fu! s:OpenR5RS(path)
let prelude = [
\ "(#%require xrepl)",
\ "(load \"" . a:path . "\")",
\ "\<CR>"
\ ]->join("")
let s:term = term_start("plt-r5rs --no-prim", {"term_finish": "close", "vertical": 1})
call term_sendkeys("", prelude)
endfu
fu! s:GetVisualSelection()
try
let a_save = @a
normal! gv"ay
return @a
finally
let @a = a_save
endtry
endfu
fu! s:SendR5RSkeys()
call term_sendkeys(s:term, s:GetVisualSelection())
endfu
nnoremap <buffer> <leader>o :call <sid>OpenR5RS(@%)<cr>
vnoremap <buffer> <leader>r <esc>:call <sid>SendR5RSkeys()<cr>