2022-08-21 10:56:08 +02:00
|
|
|
"
|
|
|
|
|
" Source: https://wiki.call-cc.org/vim / Jonathan Palardy
|
|
|
|
|
"
|
|
|
|
|
|
|
|
|
|
" Note, this is assuming you have an R5RS Scheme REPL runnning in the second
|
|
|
|
|
" TMUX pane.
|
|
|
|
|
|
|
|
|
|
" Send `(load <current-file>)` to tmux pane
|
2023-04-07 22:53:27 +02:00
|
|
|
nmap <leader>rf :call Scheme_send_sexp("(#%require xrepl)(load \"" . expand("%:p") . "\")\n")<cr>
|
2022-08-21 10:56:08 +02:00
|
|
|
nmap <leader>re :call Scheme_eval_defun()<cr>
|
|
|
|
|
|
|
|
|
|
" Send s-expression to TMUX buffer
|
|
|
|
|
fun! Scheme_send_sexp(sexp)
|
|
|
|
|
let ss = escape(a:sexp, '\"')
|
|
|
|
|
" Send to second tmux pane
|
|
|
|
|
call system("tmux send-keys -t 1 \"" . ss . "\n\"")
|
|
|
|
|
endfun
|
|
|
|
|
|
|
|
|
|
" Send s-expression under cursor to TMUX buffer
|
|
|
|
|
fun! Scheme_eval_defun()
|
|
|
|
|
let pos = getpos('.')
|
|
|
|
|
silent! exec "normal! 99[(yab"
|
|
|
|
|
call Scheme_send_sexp(@")
|
|
|
|
|
call setpos('.', pos)
|
|
|
|
|
endfun
|
