aboutsummaryrefslogtreecommitdiff
path: root/plugin/fixed_join.vim
blob: d039d534ba6e606f144c29273250c5466152d933 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
"
" fixed_join.vim: User-defined key mapping and optional command to keep cursor
" in place when joining lines in normal mode.
"
" Author: Tom Ryder <tom@sanctum.geek.nz>
" License: Same as Vim itself
"
if exists('g:loaded_fixed_join') || &compatible
  finish
endif
if v:version < 600
  finish
endif
let g:loaded_fixed_join = 1

" Declare function
function! s:FixedJoin()

  " Save current cursor position
  let l:cursor_line = line('.')
  let l:cursor_col = col('.')

  " Find last line of join; silently cap it to last buffer line
  let l:join_line = l:cursor_line + v:count1
  let l:last_line = line('$')
  if l:join_line > l:last_line
    let l:join_line = l:last_line
  endif

  " Build and execute join command
  let l:command = '.,' . l:join_line . 'join'
  execute l:command

  " Return the cursor to the saved position (Vim 6.0 fallback)
  if exists('*cursor')
    call cursor(l:cursor_line, l:cursor_col)
  else
    execute 'normal! '
          \ . l:cursor_line . 'G'
          \ . l:cursor_col . '|'
  endif

endfunction

" Create mapping proxy to the function just defined
noremap <silent> <unique>
      \ <Plug>FixedJoin
      \ :<C-U>call <SID>FixedJoin()<CR>

" If there's no mapping to it already, try to bind normal-mode J to it, to
" simply replace the old functionality
nmap <unique>
      \ J
      \ <Plug>FixedJoin