Merge pull request #37 from shiena/patch/another_quickfix

Add another way to open the quickfix

Author: eagletmt

README.md

@@ -92,6 +92,21 @@ let g:ghcmod_hlint_options = ['--ignore=Redundant $']
 
 ![lint](http://cache.gyazo.com/3b64724ce2587e03761fe618457f1c2e.png)
 
+If you'd like to open in another way the quickfix, set `g:ghcmod_open_quickfix_function`.
+
+```vim
+let g:ghcmod_open_quickfix_function = 'GhcModQuickFix'
+function! GhcModQuickFix()
+  " for unite.vim and unite-quickfix
+  :Unite -no-empty quickfix
+
+  " for ctrlp
+  ":CtrlPQuickfix
+
+  " for FuzzyFinder
+  ":FufQuickfix
+endfunction
+```
 
 ### :GhcModCheckAsync, :GhcModLintAsync, :GhcModCheckAndLintAsync
 You can run check and/or lint asynchronously.

autoload/ghcmod/command.vim

@@ -153,7 +153,7 @@ function! ghcmod#command#make(type, force) "{{{
 
   let l:qflist = ghcmod#make(a:type, l:path)
   call setqflist(l:qflist)
-  cwindow
+  call s:open_quickfix()
   if empty(l:qflist)
     echo printf('ghc-mod %s: No errors found', a:type)
   endif
@@ -168,7 +168,7 @@ function! ghcmod#command#async_make(type, force) "{{{
   let l:callback = { 'type': a:type }
   function! l:callback.on_finish(qflist)
     call setqflist(a:qflist)
-    cwindow
+    call s:open_quickfix()
     if &l:buftype ==# 'quickfix'
       " go back to original window
       wincmd p
@@ -194,7 +194,7 @@ function! ghcmod#command#check_and_lint_async(force) "{{{
       let self.first = 0
     else
       call setqflist(a:qflist, 'a')
-      cwindow
+      call s:open_quickfix()
       if &l:buftype ==# 'quickfix'
         " go back to original window
         wincmd p
@@ -218,7 +218,21 @@ function! ghcmod#command#expand(force) "{{{
   endif
 
   call setqflist(ghcmod#expand(l:path))
-  cwindow
+  call s:open_quickfix()
 endfunction "}}}
 
+function! s:open_quickfix()
+  let l:func = get(g:, 'ghcmod_open_quickfix_function', '')
+  if empty(l:func)
+    cwindow
+  else
+    try
+      call call(l:func, [])
+    catch
+      echomsg substitute(v:exception, '^.*:[WE]\d\+: ', '', '')
+            \ .': Please check g:ghcmod_open_quickfix_function'
+    endtry
+  endif
+endfunction
+
 " vim: set ts=2 sw=2 et fdm=marker: