aboutsummaryrefslogtreecommitdiff
path: root/vim/autoload/perl.vim
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2018-07-04 17:04:08 +1200
committerTom Ryder <tom@sanctum.geek.nz>2018-07-04 17:04:08 +1200
commit6adbfdf6a636aa0920e663c07582787a2162691c (patch)
tree9759e1229efc0e1d579fd84b2a7196d1034a0546 /vim/autoload/perl.vim
parentMerge branch 'release/v1.20.0' (diff)
parentRebuild dotfiles(7) manual page (diff)
downloaddotfiles-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.vim45
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