Remove old R5RS REPL support
							parent
							
								
									0212c6e8d4
								
							
						
					
					
						commit
						d48b4997c7
					
				| 
						 | 
				
			
			@ -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>
 | 
			
		||||
		Loading…
	
		Reference in New Issue