" commentary.vim - Comment stuff out " Maintainer: Tim Pope " Version: 1.1 " GetLatestVimScripts: 3695 1 :AutoInstall: commentary.vim if exists("g:loaded_commentary") || &cp || v:version < 700 finish endif let g:loaded_commentary = 1 function! s:go(type,...) abort if a:0 let [lnum1, lnum2] = [a:type, a:1] else let [lnum1, lnum2] = [line("'["), line("']")] endif let [l, r] = split(substitute(substitute(&commentstring,'\S\zs%s',' %s',''),'%s\ze\S','%s ',''),'%s',1) let uncomment = 2 for lnum in range(lnum1,lnum2) let line = matchstr(getline(lnum),'\S.*\s\@ 2 && l.r !~# '\\' let line = substitute(line, \'\M'.r[0:-2].'\zs\d\*\ze'.r[-1:-1].'\|'.l[0].'\zs\d\*\ze'.l[1:-1], \'\=substitute(submatch(0)+1-uncomment,"^0$\\|^-\\d*$","","")','g') endif if uncomment let line = substitute(line,'\S.*\s\@CommentaryUndo") endfunction xnoremap Commentary :call go(line("'<"),line("'>")) nnoremap Commentary :set opfunc=gog@ nnoremap CommentaryLine :set opfunc=goexe 'norm! 'v:count1.'g@_' nnoremap CommentaryUndo :call undo() if !hasmapto('Commentary') || maparg('gc','n') ==# '' xmap gc Commentary nmap gc Commentary nmap gcc CommentaryLine nmap gcu CommentaryUndo endif if maparg('\\','n') ==# '' && maparg('\','n') ==# '' xmap \\ Commentary nmap \\ Commentary nmap \\\ CommentaryLine nmap \\u CommentaryUndo endif " vim:set et sw=2: