better autotags

dag · Apr 2, 2012 · 349f084 · 349f084
1 parent d14c097
commit 349f084
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/autoload/vim2hs/haskell/tags.vim b/autoload/vim2hs/haskell/tags.vim
@@ -1,8 +1,13 @@
-function! vim2hs#haskell#tags#fasttags() " {{{
-  silent !find -iname '*.hs' | xargs fast-tags
+function! vim2hs#haskell#tags#fasttags(...) " {{{
+  if a:0
+    let l:files = map(copy(a:000), 'shellescape(v:val)')
+    execute 'silent !fast-tags ' . join(l:files)
+  else
+    silent !find * -iname '*.hs' | xargs fast-tags
+  endif
 endfunction " }}}
 
 
 function! vim2hs#haskell#tags#hasktags() " {{{
-  silent !hasktags -c --ignore-close-implementation .
+  silent !hasktags -c --ignore-close-implementation *
 endfunction " }}}
diff --git a/plugin/haskell_tags.vim b/plugin/haskell_tags.vim
@@ -11,7 +11,7 @@ endif
 
 if g:haskell_tags_generator ==# 'fast-tags'
   if !executable('fast-tags') | finish | endif
-  autocmd BufWritePost *.hs call vim2hs#haskell#tags#fasttags()
+  autocmd BufWritePost *.hs call vim2hs#haskell#tags#fasttags(expand('%'))
   call vim2hs#haskell#tags#fasttags()
 elseif g:haskell_tags_generator == 'hasktags'
   if !executable('hasktags') | finish | endif