Open Quickfix Entries in Source Window

" QuickFix Source Window plugin
" Barry Arthur  June 24, 2011

function! QFSW_MoveBufferToSourceWin()
  if winnr() != g:qfsw_orig_winnr
    let g:qfsw_bufnr = bufnr('%')
    b #
    exe g:qfsw_orig_winnr . "wincmd w"
    exe g:qfsw_qf_winnr . "wincmd w"
    exe "wincmd p"
    exe "b " . g:qfsw_bufnr
    norm! `"
  endif
endfunction

function! QFSW_BufReadPost()
  let g:qfsw_orig_winnr = winnr('#')
  let g:qfsw_qf_winnr = winnr()
  nnoremap <buffer> <CR> <CR><bar>:call QFSW_MoveBufferToSourceWin()<CR>
endfunction

augroup QuickFixSourceWin
  au!
  au BufReadPost quickfix call QFSW_BufReadPost()
augroup END