Changeset 12662 for lang/vim

Timestamp:

05/29/08 02:59:37 (6 months ago)

Author:

nanki

Message:

lang/vim/misc/gosh.vim: partial S-exp evaluation.

Files:

• lang/vim/misc/gosh.vim (modified) (2 diffs)

lang/vim/misc/gosh.vim

@@ -4 +4 @@
 "     for example: let mapleader=","
 command! Gosh :call <SID>Gosh()
+command! GoshPartial :call <SID>GoshPartial()
 
 nmap <leader>go :Gosh<cr>
+nmap <leader>gp :GoshPartial<cr>
 
 func! s:Gosh()
-  let cmd = join(getline(1, line("$")), "\n")
-  exe 'bo sp [gosh]'
-  call eval("append(0, split(system('echo \"'.cmd.'\" | gosh'), '\n'))")
+  call s:GoshReal(join(getline(1, line("$")), "\n"))
+endfunc
+
+func! s:GoshReal(cmd)
+  exe 'bo 5sp [gosh]'
+  call eval("append(0, split(system('echo \"'.a:cmd.'\" | gosh'), '\n'))")
 
   setlocal nomodifiable
@@ -21 +26 @@
   setlocal nowrap
   noremap <buffer> <silent> q :close<cr>
+  noremap <buffer> <silent> <Enter> :close<cr>
 endfunc
+
+func! s:GoshPartial()
+  normal "ay%
+  call s:GoshReal('(print '.getreg('a').')')
+endfunc