Add gf and <C-W><C-F> keymaps for jumping to modules from import lines

Author: bitc

autoload/hdevtools.vim

@@ -24,6 +24,29 @@ function! hdevtools#prepare_shutdown()
   endif
 endfunction
 
+function! hdevtools#go_file(opencmd)
+  " Get the import declaration under the cursor
+  let l:module_name = matchstr(getline("."), '^import\s\+\(qualified\s\+\)\=\zs\(\w\|\.\)\+\ze')
+  if l:module_name ==# ''
+    call hdevtools#print_warning("Cursor not on a Haskell import declaration")
+    return
+  endif
+
+  let l:cmd = hdevtools#build_command('modulefile', shellescape(l:module_name))
+  let l:output = system(l:cmd)
+
+  let l:lines = split(l:output, '\n')
+
+  if v:shell_error != 0
+    for l:line in l:lines
+      call hdevtools#print_error(l:line)
+    endfor
+    return
+  endif
+
+  exe a:opencmd fnameescape(l:lines[0])
+endfunction
+
 function! hdevtools#info(identifier)
   let l:identifier = a:identifier
 

ftplugin/haskell/hdevtools.vim

@@ -26,6 +26,9 @@ else
   let b:undo_ftplugin = ''
 endif
 
+nnoremap <buffer> <silent> gf :call hdevtools#go_file("e")<CR>
+nnoremap <buffer> <silent> <C-W><C-F> :call hdevtools#go_file("sp")<CR>
+
 command! -buffer -nargs=0 HdevtoolsType echo hdevtools#type()[1]
 command! -buffer -nargs=0 HdevtoolsClear call hdevtools#type_clear()
 command! -buffer -nargs=? HdevtoolsInfo call hdevtools#info(<q-args>)