:Conly Vim command to close all windows in the current column.

Conly.vim

" :Co[nly] closes all other windows in the current column.
" For example, if the cursor is in the "cur" window, below, windows 1, 2, and
" 4 will be closed:
"     +-------+                +-------+
"     | win 1 |                |       |
"     +-------+                |       |
"     | win 2 |                |       |
"     +-------+ --> :Conly --> |  cur  |
"     |  cur  |                |       |
"     +-------+                |       |
"     | win 4 |                |       |
"     +-------+                +-------+

fun! Conly()
    for dir in ['j', 'k']
        while 1
            let cur = winnr()
            execute "normal \<c-w>".dir
            if winnr() == cur
                break
            endif
            close
        endwhile
    endfor
endfun
command! Conly call Conly()