137 lines
3.7 KiB
VimL
137 lines
3.7 KiB
VimL
|
" vim-cool - Disable hlsearch when you are done searching.
|
||
|
|
" Maintainer: romainl <romainlafourcade@gmail.com>
|
||
|
|
" Version: 0.0.2
|
||
|
|
" License: MIT License
|
||
|
|
" Location: plugin/cool.vim
|
||
|
|
" Website: https://github.com/romainl/vim-cool
|
||
|
|
|
||
|
|
if exists("g:loaded_cool") || v:version < 704 || &compatible
|
||
|
|
finish
|
||
|
|
endif
|
||
|
|
let g:loaded_cool = 1
|
||
|
|
|
||
|
|
let s:save_cpo = &cpo
|
||
|
|
set cpo&vim
|
||
|
|
|
||
|
|
augroup Cool
|
||
|
|
autocmd!
|
||
|
|
augroup END
|
||
|
|
|
||
|
|
if exists('##OptionSet')
|
||
|
|
if !exists('*execute')
|
||
|
|
autocmd Cool OptionSet highlight let <SID>saveh = &highlight
|
||
|
|
endif
|
||
|
|
" toggle coolness when hlsearch is toggled
|
||
|
|
autocmd Cool OptionSet hlsearch call <SID>PlayItCool(v:option_old, v:option_new)
|
||
|
|
endif
|
||
|
|
|
||
|
|
function! s:StartHL()
|
||
|
|
if !v:hlsearch || mode() isnot 'n'
|
||
|
|
return
|
||
|
|
endif
|
||
|
|
let g:cool_is_searching = 1
|
||
|
|
let [pos, rpos] = [winsaveview(), getpos('.')]
|
||
|
|
silent! exe "keepjumps go".(line2byte('.')+col('.')-(v:searchforward ? 2 : 0))
|
||
|
|
try
|
||
|
|
silent keepjumps norm! n
|
||
|
|
if getpos('.') != rpos
|
||
|
|
throw 0
|
||
|
|
endif
|
||
|
|
catch /^\%(0$\|Vim\%(\w\|:Interrupt$\)\@!\)/
|
||
|
|
call <SID>StopHL()
|
||
|
|
return
|
||
|
|
finally
|
||
|
|
call winrestview(pos)
|
||
|
|
endtry
|
||
|
|
if !get(g:,'cool_total_matches') || !exists('*reltimestr')
|
||
|
|
return
|
||
|
|
endif
|
||
|
|
exe "silent! norm! :let g:cool_char=nr2char(screenchar(screenrow(),1))\<cr>"
|
||
|
|
let cool_char = remove(g:,'cool_char')
|
||
|
|
if cool_char !~ '[/?]'
|
||
|
|
return
|
||
|
|
endif
|
||
|
|
let [f, ws, now, noOf] = [0, &wrapscan, reltime(), [0,0]]
|
||
|
|
set nowrapscan
|
||
|
|
try
|
||
|
|
while f < 2
|
||
|
|
if reltimestr(reltime(now))[:-6] =~ '[1-9]'
|
||
|
|
" time >= 100ms
|
||
|
|
return
|
||
|
|
endif
|
||
|
|
let noOf[v:searchforward ? f : !f] += 1
|
||
|
|
try
|
||
|
|
silent exe "keepjumps norm! ".(f ? 'n' : 'N')
|
||
|
|
catch /^Vim[^)]\+):E38[45]\D/
|
||
|
|
call setpos('.',rpos)
|
||
|
|
let f += 1
|
||
|
|
endtry
|
||
|
|
endwhile
|
||
|
|
finally
|
||
|
|
call winrestview(pos)
|
||
|
|
let &wrapscan = ws
|
||
|
|
endtry
|
||
|
|
redraw|echo cool_char.@/ 'match' noOf[0] 'of' noOf[0] + noOf[1] - 1
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
function! s:StopHL()
|
||
|
|
if !v:hlsearch || mode() isnot 'n'
|
||
|
|
return
|
||
|
|
else
|
||
|
|
let g:cool_is_searching = 0
|
||
|
|
silent call feedkeys("\<Plug>(StopHL)", 'm')
|
||
|
|
endif
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
if !exists('*execute')
|
||
|
|
let s:saveh = &highlight
|
||
|
|
" toggle highlighting, a workaround for :nohlsearch in autocmds
|
||
|
|
function! s:AuNohlsearch()
|
||
|
|
noautocmd set highlight+=l:-
|
||
|
|
autocmd Cool Insertleave *
|
||
|
|
\ noautocmd let &highlight = s:saveh | autocmd! Cool InsertLeave *
|
||
|
|
return ''
|
||
|
|
endfunction
|
||
|
|
endif
|
||
|
|
|
||
|
|
function! s:PlayItCool(old, new)
|
||
|
|
if a:old == 0 && a:new == 1
|
||
|
|
" nohls --> hls
|
||
|
|
" set up coolness
|
||
|
|
noremap <silent> <Plug>(StopHL) :<C-U>nohlsearch<cr>
|
||
|
|
if !exists('*execute')
|
||
|
|
noremap! <expr> <Plug>(StopHL) <SID>AuNohlsearch()
|
||
|
|
|
||
|
|
" If no "execute()", ":tnoremap" isn't probably implemented too.
|
||
|
|
else
|
||
|
|
noremap! <expr> <Plug>(StopHL) execute('nohlsearch')[-1]
|
||
|
|
if exists(':tnoremap')
|
||
|
|
tnoremap <expr> <Plug>(StopHL) execute('nohlsearch')[-1]
|
||
|
|
endif
|
||
|
|
endif
|
||
|
|
|
||
|
|
autocmd Cool CursorMoved * call <SID>StartHL()
|
||
|
|
autocmd Cool InsertEnter * call <SID>StopHL()
|
||
|
|
elseif a:old == 1 && a:new == 0
|
||
|
|
" hls --> nohls
|
||
|
|
" tear down coolness
|
||
|
|
nunmap <Plug>(StopHL)
|
||
|
|
unmap! <expr> <Plug>(StopHL)
|
||
|
|
if exists(':tunmap')
|
||
|
|
tunmap <Plug>(StopHL)
|
||
|
|
endif
|
||
|
|
|
||
|
|
autocmd! Cool CursorMoved
|
||
|
|
autocmd! Cool InsertEnter
|
||
|
|
else
|
||
|
|
" nohls --> nohls
|
||
|
|
" do nothing
|
||
|
|
return
|
||
|
|
endif
|
||
|
|
endfunction
|
||
|
|
|
||
|
|
" play it cool
|
||
|
|
call <SID>PlayItCool(0, &hlsearch)
|
||
|
|
|
||
|
|
let &cpo = s:save_cpo
|