Skip to content

Commit

Permalink
disable balance check, add ,t command
Browse files Browse the repository at this point in the history
  • Loading branch information
okuoku committed Feb 22, 2012
1 parent 584117d commit c705560
Show file tree
Hide file tree
Showing 2 changed files with 13 additions and 1 deletion.
7 changes: 7 additions & 0 deletions .netrwhist
@@ -0,0 +1,7 @@
let g:netrw_dirhistmax =10
let g:netrw_dirhist_cnt =5
let g:netrw_dirhist_1='/cygdrive/c/repos/r7rs-bridge/lib-r6rs/base-srfi'
let g:netrw_dirhist_2='/cygdrive/c/repos/r7rs-bridge/lib-r6rs/scheme'
let g:netrw_dirhist_3='/cygdrive/c/repos/ironscheme/IronScheme/IronScheme.Console/ironscheme'
let g:netrw_dirhist_4='/cygdrive/c/repos/ironscheme/IronScheme/IronScheme.Console/ironscheme/clr'
let g:netrw_dirhist_5='/cygdrive/c/repos/r7rs-bridge/lib/srfi'
7 changes: 6 additions & 1 deletion plugin/paredit.vim
Expand Up @@ -126,6 +126,7 @@ function! PareditInitBuffer()
execute 'vnoremap <buffer> <silent> ' . g:paredit_leader.'w( :<C-U>call PareditWrapSelection("(",")")<CR>'
execute 'nnoremap <buffer> <silent> ' . g:paredit_leader.'w" :<C-U>call PareditWrap('."'".'"'."','".'"'."')<CR>"
execute 'vnoremap <buffer> <silent> ' . g:paredit_leader.'w" :<C-U>call PareditWrapSelection('."'".'"'."','".'"'."')<CR>"
nnoremap <buffer> <silent> ,t :<C-U>call PareditToggle()<CR>
if &ft == 'clojure'
inoremap <buffer> <expr> [ PareditInsertOpening('[',']')
inoremap <buffer> <expr> ] PareditInsertClosing('[',']')
Expand Down Expand Up @@ -366,6 +367,10 @@ endfunction
" Is the current top level form balanced, i.e all opening delimiters
" have a matching closing delimiter
function! s:IsBalanced()
return 1
endfunction

function! s:IsBalancedOriginal()
let l = line( '.' )
let c = col( '.' )
let line = getline( '.' )
Expand Down Expand Up @@ -562,7 +567,7 @@ function! PareditInsertOpening( open, close )
endif
if pos > 0 && line[pos-1] !~ b:any_wsopen_char && line[pos-1] !~ s:any_macro_prefix
" Add a space before if needed
let retval = " " . retval
"let retval = " " . retval
endif
return retval
endfunction
Expand Down

0 comments on commit c705560

Please sign in to comment.