Move plugin.

[profile.git] / .vim / plugin / move.vim

diff --git a/.vim/plugin/move.vim b/.vim/plugin/move.vim
new file mode 100644 (file)
index 0000000..150a170
--- /dev/null
+++ b/.vim/plugin/move.vim
@@ -0,0 +1,141 @@
+" =============================================================================
+" File: plugin/move.vim
+" Description: Move lines and selections up and even down.
+" Author: Matthias Vogelgesang <github.com/matze>
+" =============================================================================
+
+if exists('loaded_move') || &cp
+    finish
+endif
+
+let loaded_move = 1
+
+if !exists('g:move_map_keys')
+    let g:move_map_keys = 1
+endif
+
+if !exists('g:move_key_modifier')
+    let g:move_key_modifier = 'A'
+endif
+
+function! s:ResetCursor()
+    normal! gv=gv^
+endfunction
+
+function! s:MoveBlockDown(start, end, count)
+    let next_line = a:end + a:count
+
+    if v:count > 0
+        let next_line = next_line + v:count - 1
+    endif
+
+    if next_line > line('$')
+        call s:ResetCursor()
+        return
+    endif
+
+    execute "silent" a:start "," a:end "m " next_line
+    call s:ResetCursor()
+endfunction
+
+function! s:MoveBlockUp(start, end, count)
+    let prev_line = a:start - a:count - 1
+
+    if v:count > 0
+        let prev_line = prev_line - v:count + 1
+    endif
+
+    if prev_line < 0
+        call s:ResetCursor()
+        return
+    endif
+
+    execute "silent" a:start "," a:end "m " prev_line
+    call s:ResetCursor()
+endfunction
+
+function! s:MoveLineUp(count) range
+    let distance = a:count + 1
+
+    if v:count > 0
+        let distance = distance + v:count - 1
+    endif
+
+    if (line('.') - distance) < 0
+        execute 'silent m 0'
+        normal! ==
+        return
+    endif
+
+    execute 'silent m-' . distance
+
+    normal! ==
+endfunction
+
+function! s:MoveLineDown(count) range
+    let distance = a:count
+
+    if v:count > 0
+        let distance = distance + v:count - 1
+    endif
+
+    if (line('.') + distance) > line('$')
+        execute 'silent m $'
+        normal! ==
+        return
+    endif
+
+    execute 'silent m+' . distance
+    normal! ==
+endfunction
+
+function! s:MoveBlockOneLineUp() range
+    call s:MoveBlockUp(a:firstline, a:lastline, 1)
+endfunction
+
+function! s:MoveBlockOneLineDown() range
+    call s:MoveBlockDown(a:firstline, a:lastline, 1)
+endfunction
+
+function! s:MoveBlockHalfPageUp() range
+    let distance = winheight('.') / 2
+    call s:MoveBlockUp(a:firstline, a:lastline, distance)
+endfunction
+
+function! s:MoveBlockHalfPageDown() range
+    let distance = winheight('.') / 2
+    call s:MoveBlockDown(a:firstline, a:lastline, distance)
+endfunction
+
+function! s:MoveLineHalfPageUp() range
+    let distance = winheight('.') / 2
+    call s:MoveLineUp(distance)
+endfunction
+
+function! s:MoveLineHalfPageDown() range
+    let distance = winheight('.') / 2
+    call s:MoveLineDown(distance)
+endfunction
+
+function! s:MoveKey(key)
+    return '<' . g:move_key_modifier . '-' . a:key . '>'
+endfunction
+
+
+vnoremap <silent> <Plug>MoveBlockDown           :call <SID>MoveBlockOneLineDown()<CR>
+vnoremap <silent> <Plug>MoveBlockUp             :call <SID>MoveBlockOneLineUp()<CR>
+vnoremap <silent> <Plug>MoveBlockHalfPageDown   :call <SID>MoveBlockHalfPageDown()<CR>
+vnoremap <silent> <Plug>MoveBlockHalfPageUp     :call <SID>MoveBlockHalfPageUp()<CR>
+
+nnoremap <silent> <Plug>MoveLineDown            :call <SID>MoveLineDown(1)<CR>
+nnoremap <silent> <Plug>MoveLineUp              :call <SID>MoveLineUp(1)<CR>
+nnoremap <silent> <Plug>MoveLineHalfPageDown    :call <SID>MoveLineHalfPageDown()<CR>
+nnoremap <silent> <Plug>MoveLineHalfPageUp      :call <SID>MoveLineHalfPageUp()<CR>
+
+
+if g:move_map_keys
+    execute 'vmap' s:MoveKey('j') '<Plug>MoveBlockDown'
+    execute 'vmap' s:MoveKey('k') '<Plug>MoveBlockUp'
+    execute 'nmap' s:MoveKey('j') '<Plug>MoveLineDown'
+    execute 'nmap' s:MoveKey('k') '<Plug>MoveLineUp'
+endif