" Exuberant Ctags creator
" Maintainer: Sergey Matveev <stargrave@stargrave.org>
" License: GNU General Public License version 3 of the License or later
"
" Create "tags" file in your project's root first.
" Then :Ctags LANG to fill it.

function! s:ctags(lang, verbose)
    let dst = tagfiles()[0]
    let src = "/" . join(split(dst, "/")[:-2], "/")
    if dst[0] != "/"
        let dst = getcwd() . "/tags"
        let src = getcwd()
    endif
    let cmdline = [
        \'uctags',
        \'--languages=' . a:lang,
        \'--python-kinds=-i',
        \'--recurse',
    \]
    if a:verbose == v:true | let cmdline += ['--verbose'] | endif
    let cmdline += ['-f', dst, src]
    execute "!" . join(cmdline, " ")
    if a:verbose != v:true | redraw! | endif
endfunction

command! -nargs=1 Ctags silent call s:ctags(<f-args>, v:false)
command! -nargs=1 Ctagsv silent call s:ctags(<f-args>, v:true)