mirror of
https://github.com/Raimondi/delimitMate.git
synced 2025-12-08 05:34:45 +08:00
First commit.
This commit is contained in:
Israel Chauca Fuentes
210
delimater.vim
Normal file
210
delimater.vim
Normal file
@@ -0,0 +1,210 @@
|
|||||||
|
" DELIMITERS MADE LESS ANNOYING:{{{1
|
||||||
|
"
|
||||||
|
" Main novelty here (if it is one): this does NOT try to be helpful by
|
||||||
|
" inserting the closing delimiter for you when you type an opening one.
|
||||||
|
" Instead it only tries to be smart about what to do when you type a closing
|
||||||
|
" delimiter yourself.
|
||||||
|
"
|
||||||
|
" If you just typed an empty delimiter pair, it'll move the cursor back
|
||||||
|
" inside. If you type a closing delimiter the cursor is already on (or to
|
||||||
|
" the left of, if the cursor is on a space), it'll skip the cursor past that
|
||||||
|
" delimiter without inserting it.
|
||||||
|
"
|
||||||
|
" That way you never end with superfluous delimiters to delete, which deletion
|
||||||
|
" itself can be tricky to perform, since the editor might be trying to be
|
||||||
|
" helpful about deletions as well. Instead, you only ever get delimiters you
|
||||||
|
" explicitly typed yourself.
|
||||||
|
"
|
||||||
|
" I had trained myself into the good habit of typing pairs together anyway.
|
||||||
|
" The only annoying part of that habit is the manual cursor placement work;
|
||||||
|
" but that work is quite predictable almost all of the time. That's exactly
|
||||||
|
" the sort of work that computers are for.
|
||||||
|
|
||||||
|
" Init:{{{1
|
||||||
|
if exists("loaded_annoying_delimiters")
|
||||||
|
" finish
|
||||||
|
endif
|
||||||
|
if v:version < 700
|
||||||
|
echoerr "AnnoyingDelimiters: this plugin requires vim >= 7!"
|
||||||
|
finish
|
||||||
|
endif
|
||||||
|
let loaded_annoying_delimiters = 1
|
||||||
|
|
||||||
|
if !exists("g:annoyDelims_delims_list")
|
||||||
|
let s:delims = split (") } ] ' \" `")
|
||||||
|
else
|
||||||
|
let s:delims = g:annoyDelims_delims_list
|
||||||
|
endif
|
||||||
|
|
||||||
|
if !exists("g:annoyDelims_autocomplete")
|
||||||
|
let s:autocomplete = 1
|
||||||
|
else
|
||||||
|
let s:autocomplete = g:annoyDelims_autocomplete
|
||||||
|
endif
|
||||||
|
|
||||||
|
let s:paired_delims = split( &matchpairs, ',' )
|
||||||
|
let s:quote_delims = split("\" ' ` ´")
|
||||||
|
"let s:left_delims = []
|
||||||
|
"let s:right_delims = []
|
||||||
|
|
||||||
|
"for pair in s:paired_delims
|
||||||
|
"let pairl = split(pair,":")
|
||||||
|
"let s:left_delims = s:left_delims + pairl[0]
|
||||||
|
"let s:right_delims = s:right_delims + pairl[1]
|
||||||
|
"endfor
|
||||||
|
|
||||||
|
let s:left_delims = split(&matchpairs, ':.,\=')
|
||||||
|
let s:right_delims = split(&matchpairs, ',\=.:')
|
||||||
|
|
||||||
|
let s:leader = "q"
|
||||||
|
|
||||||
|
" Functions:{{{1
|
||||||
|
function! IsEmptyPair(str)
|
||||||
|
for pair in split( &matchpairs, ',' ) + [ "''", '""', '``' ]
|
||||||
|
if a:str == join( split( pair, ':' ),'' )
|
||||||
|
return 1
|
||||||
|
endif
|
||||||
|
endfor
|
||||||
|
return 0
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
function! WithinEmptyPair()
|
||||||
|
let cur = strpart( getline('.'), col('.')-2, 2 )
|
||||||
|
return IsEmptyPair( cur )
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
function! SkipDelim(char)
|
||||||
|
let cur = strpart( getline('.'), col('.')-2, 3 )
|
||||||
|
if cur[0] == "\\"
|
||||||
|
return a:char
|
||||||
|
elseif cur[1] == a:char
|
||||||
|
return "\<Right>"
|
||||||
|
elseif cur[1] == ' ' && cur[2] == a:char
|
||||||
|
return "\<Right>\<Right>"
|
||||||
|
elseif IsEmptyPair( cur[0] . a:char )
|
||||||
|
return a:char . "\<Left>"
|
||||||
|
else
|
||||||
|
return a:char
|
||||||
|
endif
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
function! QuoteDelim(char)
|
||||||
|
let line = getline('.')
|
||||||
|
let col = col('.')
|
||||||
|
if line[col - 2] == "\\"
|
||||||
|
"Inserting a quoted quotation mark into the string
|
||||||
|
return a:char
|
||||||
|
elseif line[col - 1] == a:char
|
||||||
|
"Escaping out of the string
|
||||||
|
return "\<Right>"
|
||||||
|
else
|
||||||
|
"Starting a string
|
||||||
|
return a:char.a:char."\<Left>"
|
||||||
|
endif
|
||||||
|
endf
|
||||||
|
|
||||||
|
function! ClosePair(char)
|
||||||
|
if getline('.')[col('.') - 1] == a:char
|
||||||
|
return "\<Right>"
|
||||||
|
else
|
||||||
|
return a:char
|
||||||
|
endif
|
||||||
|
endf
|
||||||
|
|
||||||
|
function! ResetMappings()
|
||||||
|
for delim in s:right_delims + s:left_delims + s:quote_delims
|
||||||
|
silent! exec 'iunmap ' . delim
|
||||||
|
silent! exec 'vunmap ' . s:leader . delim
|
||||||
|
endfor
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" Mappings:{{{1
|
||||||
|
|
||||||
|
call ResetMappings()
|
||||||
|
if s:autocomplete == 0
|
||||||
|
" Don't auto-complete:{{{2
|
||||||
|
let test_string = "Don't"
|
||||||
|
"inoremap <expr> ) SkipDelim(')')
|
||||||
|
for delim in s:right_delims + s:quote_delims
|
||||||
|
exec 'imap <expr> ' . delim . ' SkipDelim("\' . delim . '")'
|
||||||
|
endfor
|
||||||
|
|
||||||
|
" Wrap the selection with delimiters:
|
||||||
|
"vmap <expr> q( visualmode() == "<C-V>" ? "I(\<Esc>" : "s(\<C-R>\")\<Esc>"
|
||||||
|
let s:i = 0
|
||||||
|
while s:i < len(s:paired_delims)
|
||||||
|
exec 'vmap <expr> ' . s:leader . s:left_delims[s:i] .
|
||||||
|
\' visualmode() == "<C-V>" ? "I' . s:left_delims[s:i] .
|
||||||
|
\'\<Esc>" : "s' . s:left_delims[s:i] . '\<C-R>\"' .
|
||||||
|
\s:right_delims[s:i] . '\<Esc>"'
|
||||||
|
exec 'vmap <expr> ' . s:leader . s:right_delims[s:i] .
|
||||||
|
\' visualmode() == "<C-V>" ? "I' . s:left_delims[s:i] .
|
||||||
|
\'\<Esc>" : "s' . s:left_delims[s:i] . '\<C-R>\"' .
|
||||||
|
\s:right_delims[s:i] . '\<Esc>"'
|
||||||
|
let s:i = s:i + 1
|
||||||
|
endwhile
|
||||||
|
|
||||||
|
for quote in s:quote_delims
|
||||||
|
exec 'vmap <expr> ' . s:leader . quote .
|
||||||
|
\' visualmode() == "<C-V>" ? "I' . quote .
|
||||||
|
\'\<Esc>" : "s' . quote . '\<C-R>\"' . quote . '\<Esc>"'
|
||||||
|
endfor
|
||||||
|
|
||||||
|
else
|
||||||
|
" Do auto-complete:{{{2
|
||||||
|
let test_string = "Do"
|
||||||
|
let s:i = 0
|
||||||
|
while s:i < len(s:paired_delims)
|
||||||
|
exec 'imap ' . s:left_delims[s:i] . ' ' . s:left_delims[s:i] . s:right_delims[s:i] . '<Left>'
|
||||||
|
let s:i = s:i + 1
|
||||||
|
endwhile
|
||||||
|
"imap ( ()<Left>
|
||||||
|
"imap [ []<Left>
|
||||||
|
"imap { {}<Left>
|
||||||
|
"autocmd Syntax html,vim imap < <lt>><Left>
|
||||||
|
"let test_list = []
|
||||||
|
let s:i = 0
|
||||||
|
for delim in s:quote_delims
|
||||||
|
exec 'imap ' . delim . ' <c-r>=QuoteDelim("\' . delim . '")<CR>'
|
||||||
|
endfor
|
||||||
|
for delim in s:right_delims
|
||||||
|
exec 'imap ' . delim . ' <c-r>=ClosePair("\' . delim . '")<CR>'
|
||||||
|
endfor
|
||||||
|
"imap " <c-r>=QuoteDelim('"')<CR>
|
||||||
|
"imap ' <c-r>=QuoteDelim("'")<CR>
|
||||||
|
"imap ) <c-r>=ClosePair(')')<CR>
|
||||||
|
"imap ] <c-r>=ClosePair(']')<CR>
|
||||||
|
"imap } <c-r>=ClosePair('}')<CR>
|
||||||
|
|
||||||
|
" Wrap the selection with delimiters:
|
||||||
|
"vmap <expr> q( visualmode() == "<C-V>" ? "I(\<Esc>" : "s()\<C-R>\"\<Esc>"
|
||||||
|
let s:i = 0
|
||||||
|
while s:i < len(s:paired_delims)
|
||||||
|
exec 'vmap <expr> ' . s:leader . s:left_delims[s:i] . ' visualmode() == "<C-V>" ? "I' . s:left_delims[s:i] . '\<Esc>" : "s' . s:left_delims[s:i] . s:right_delims[s:i] . '\<C-R>\"\<Esc>"'
|
||||||
|
exec 'vmap <expr> ' . s:leader . s:right_delims[s:i] . ' visualmode() == "<C-V>" ? "I' . s:left_delims[s:i] . '\<Esc>" : "s' . s:left_delims[s:i] . s:right_delims[s:i] . '\<C-R>\"\<Esc>"'
|
||||||
|
let s:i = s:i + 1
|
||||||
|
endwhile
|
||||||
|
|
||||||
|
for quote in s:quote_delims
|
||||||
|
exec 'vmap <expr> ' . s:leader . quote .
|
||||||
|
\' visualmode() == "<C-V>" ? "I' . quote .
|
||||||
|
\'\<Esc>" : "s' . quote . '\<C-R>\"' . quote . '\<Esc>"'
|
||||||
|
endfor
|
||||||
|
"vmap ( <ESC>`>a)<ESC>`<i(<ESC>
|
||||||
|
"vmap ) <ESC>`>a)<ESC>`<i(<ESC>
|
||||||
|
"vmap { <ESC>`>a}<ESC>`<i{<ESC>
|
||||||
|
"vmap } <ESC>`>a}<ESC>`<i{<ESC>
|
||||||
|
"vmap " <ESC>`>a"<ESC>`<i"<ESC>
|
||||||
|
"vmap ' <ESC>`>a'<ESC>`<i'<ESC>
|
||||||
|
"vmap ` <ESC>`>a`<ESC>`<i`<ESC>
|
||||||
|
"vmap [ <ESC>`>a]<ESC>`<i[<ESC>
|
||||||
|
"vmap ] <ESC>`>a]<ESC>`<i[<ESC>
|
||||||
|
|
||||||
|
|
||||||
|
endif
|
||||||
|
" Expansions:{{{2
|
||||||
|
imap <expr> <BS> WithinEmptyPair() ? "\<Right>\<BS>\<BS>" : "\<BS>"
|
||||||
|
imap <expr> <CR> WithinEmptyPair() ? "\<CR>\<CR>\<Up>" : "\<CR>"
|
||||||
|
imap <expr> <Space> WithinEmptyPair() ? "\<Space>\<Space>\<Left>" : "\<Space>"
|
||||||
|
|
||||||
|
" vim:foldmethod=marker:foldcolumn=2
|
||||||
Reference in New Issue
Block a user