diff options
author | Tom Ryder <tom@sanctum.geek.nz> | 2018-07-04 17:04:08 +1200 |
---|---|---|
committer | Tom Ryder <tom@sanctum.geek.nz> | 2018-07-04 17:04:08 +1200 |
commit | 6adbfdf6a636aa0920e663c07582787a2162691c (patch) | |
tree | 9759e1229efc0e1d579fd84b2a7196d1034a0546 /vim/autoload/perl.vim | |
parent | Merge branch 'release/v1.20.0' (diff) | |
parent | Rebuild dotfiles(7) manual page (diff) | |
download | dotfiles-1.21.0.tar.gz (sig) dotfiles-1.21.0.zip |
Merge branch 'release/v1.21.0'v1.21.0
* release/v1.21.0:
Rebuild dotfiles(7) manual page
Bump VERSION
Spin off Vim Perl version bump into ftplugin
Have Vim Perl major version bump map reset minor
Simplify .vimrc leader map settings
Correct alphabetical order of filetype.vim
Break up some long VimL lines
Use :nnoremap for Perl vim maps
Diffstat (limited to 'vim/autoload/perl.vim')
-rw-r--r-- | vim/autoload/perl.vim | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/vim/autoload/perl.vim b/vim/autoload/perl.vim deleted file mode 100644 index 5349eb49..00000000 --- a/vim/autoload/perl.vim +++ /dev/null @@ -1,45 +0,0 @@ -" Version number specifier format -let g:perl#verpat = '\m\C^' - \ . '\(our\s\+\$VERSION\s*=\D*\)' - \ . '\(\d\+\)\.\(\d\+\)' - \ . '\(.*\)' - -" Version number bumper -function! perl#BumpVersion(major) abort - let l:view = winsaveview() - let l:li = search(g:perl#verpat) - if !l:li - echomsg 'No version number declaration found' - return - endif - let l:matches = matchlist(getline(l:li), g:perl#verpat) - 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) - else - let l:minor = perl#Incf(l:minor) - endif - let l:version = l:major.'.'.l:minor - call setline(l:li, l:lvalue.l:version.l:rest) - if a:major - echomsg 'Bumped major $VERSION: '.l:version - else - echomsg 'Bumped minor $VERSION: '.l:version - endif - call winrestview(l:view) -endfunction - -" Explanatory wrappers -function! perl#BumpVersionMinor() abort - call perl#BumpVersion(0) -endfunction -function! perl#BumpVersionMajor() abort - call perl#BumpVersion(1) -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 -endfunction |