5157
|
1 " We don't want the status line to cause problems:
|
|
2 set laststatus=0
|
|
3 redraw!
|
|
4 let g:totalLines = &lines * 20
|
|
5 let middle = g:totalLines / 2
|
|
6 wincmd n
|
|
7 wincmd o
|
|
8 for i in range(1, g:totalLines)
|
|
9 call setline(i, 'LINE ' . i)
|
|
10 endfor
|
|
11
|
|
12 exe string(middle)
|
|
13 normal zt
|
|
14 normal M
|
|
15
|
|
16 aboveleft vert new
|
|
17 for i in range(1, g:totalLines)
|
|
18 call setline(i, 'line ' . i)
|
|
19 endfor
|
|
20 exe string(middle)
|
|
21 normal zt
|
|
22 normal M
|
|
23 setl scb
|
|
24
|
|
25 wincmd p
|
|
26
|
|
27 call feedkeys(":setl scb\n\<C-w>\<C-w>", 't')
|