aboutsummaryrefslogtreecommitdiff
path: root/vim/autoload/vertical_region.vim
blob: 6f2cf8d6c2eb16b6ba952cd9729544f1c17bc89b (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
" Function for expression maps returning navigaton keys to press
function! vertical_region#Map(count, up, mode) abort

  " Get line and column number
  let l:num = line('.')
  let l:col = col('.')

  " Move up or down through buffer, counting hits as we go
  let l:hits = 0
  while a:up ? l:num > 1 : l:num < line('$')

    " Increment or decrement line number
    let l:num += a:up ? -1 : 1

    " If the line has any non-space characters up to the current column, we
    " have a hit; break the loop as soon as we have the count we need
    let l:line = getline(l:num)
    if strpart(l:line, 0, l:col) =~# '\S'
      let l:hits += 1
      if l:hits == a:count
        break
      endif
    endif

  endwhile

  " If not moving linewise for operator mode and not in first column, move to
  " same column after line jump; is there a way to do this in one jump?
  let l:keys = l:num . 'G'
  if a:mode !=# 'o' && l:col > 1
    let l:keys .= l:col - 1 . 'l'
  endif

  " Return normal mode commands
  return l:keys

endfunction