diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2018-07-04 11:08:55 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2018-07-04 11:08:55 +1200 |
commit | cd28ccec63f7c1cb00b5f35aca6a8bff2a750581 (patch) | |
tree | 4d01583f7e057fc0a2e06d798592554f82b3ab18 /vim | |
parent | Simplify .vimrc leader map settings (diff) | |
download | dotfiles-cd28ccec63f7c1cb00b5f35aca6a8bff2a750581.tar.gz dotfiles-cd28ccec63f7c1cb00b5f35aca6a8bff2a750581.zip |
Have Vim Perl major version bump map reset minor
Diffstat (limited to 'vim')
-rw-r--r-- | vim/autoload/perl.vim | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/vim/autoload/perl.vim b/vim/autoload/perl.vim index 5349eb49..a4c8724a 100644 --- a/vim/autoload/perl.vim +++ b/vim/autoload/perl.vim @@ -16,9 +16,10 @@ function! perl#BumpVersion(major) abort let [l:lvalue, l:major, l:minor, l:rest] \ = matchlist(getline(l:li), g:perl#verpat)[1:4] if a:major - let l:major = perl#Incf(l:major) + let l:major = perl#Setf(l:major, l:major + 1) + let l:minor = perl#Setf(l:minor, 0) else - let l:minor = perl#Incf(l:minor) + let l:minor = perl#Setf(l:minor, l:minor + 1) endif let l:version = l:major.'.'.l:minor call setline(l:li, l:lvalue.l:version.l:rest) @@ -39,7 +40,6 @@ function! perl#BumpVersionMajor() abort endfunction " Helper function to format a number without decreasing its digit count -function! perl#Incf(num) abort - let l:inc = a:num + 1 - return repeat('0', strlen(a:num) - strlen(l:inc)).l:inc +function! perl#Setf(old, new) abort + return repeat('0', strlen(a:old) - strlen(a:new)).a:new endfunction |