vis-config

ctags.lua

(3397B)

 local M = {
 	file = '.tags',
 	path = '.',
 	flags = '-R',
 }
 
 local function generate_tags(win, file)
 	local tags = win.tags[file]
 
 	if not tags then
 		return
 	end
 
 	local fd = io.popen(string.format('ctags %s -n -f %s %s', tags.flags, file, tags.path))
 	local success, msg = fd:close()
 
 	if not success then
 		vis:info(string.format('Error: %s', msg))
 	end
 end
 
 local tagstack = {}
 
 vis:option_register('ctags', 'bool', function(value, toggle)
 	local win = vis.win
 	if not win then return false end
 
 	win.ctags = toggle and not win.ctags or value
 
 	if win.ctags then
 		if not win.tags then
 			win.tags = {}
 			M.add(win, M.file)
 		end
 
 		win:map(vis.modes.NORMAL, '<C-t>', function()
 			vis:command('tag-back')
 		end)
 
 		win:map(vis.modes.NORMAL, '<C-]>', function()
 			local tag = win.file:content(win.file:text_object_word(win.selection.pos))
 			vis:command('tag ' .. tag)
 		end)
 
 		win:map(vis.modes.VISUAL, '<C-]>', function()
 			local tag = win.file:content(win.selection.range)
 			vis:command('tag ' .. tag)
 		end)
 	end
 
 	return true
 end, 'Enables ctags')
 
 vis:command_register('tag-generate', function(argv, _, win)
 	local file = argv[1]
 
 	if not win.ctags then
 		vis:info('tag: disabled')
 		return
 	end
 
 	if not win.tags then
 		vis:info('tag-generate: tags not configured')
 		return
 	end
 
 	if file and not win.tags[file] then
 		vis:info('tag-generate: tags file not configured')
 		return
 	end
 
 	for f in pairs(win.tags) do
 		if not file or (file and file == f) then
 			generate_tags(win, f)
 		end
 	end
 end, 'Generate ctags file')
 
 vis:command_register('tag', function(argv, _, win)
 	local tag = argv[1]
 
 	if not win.ctags then
 		vis:info('tag: disabled')
 		return
 	end
 
 	if not win.tags then
 		vis:info('tag: tags not configured')
 		return
 	end
 
 	if not tag or tag == '' then
 		vis:info('tag: missing argument')
 		return false
 	end
 
 	local files = ''
 	for file in pairs(win.tags) do
 		files = files .. ' ' .. file
 	end
 
 	local fd = io.popen(string.format(
 		"sh -c 'cat %s 2>/dev/null | grep -v \'^!_\' | readtags -t - - %s'", files, tag))
 	local line = fd:read()
 	fd:close()
 
 	if not line or line == '' then
 		vis:info('tag: nothing found')
 		return false
 	end
 
 	local prev = {
 		path = win.file.name,
 		line = win.selection.line,
 		col = win.selection.col,
 	}
 
 	local file, lineno = line:match('^[^%s]+%s+([^%s]+)%s+(%d+)') 
 
 	if not vis:command(string.format('e %s', file)) then
 		vis:info(string.format('tag failed: %s cannot be opened', file))
 		return false
 	end
 
 	vis.win.selection:to(lineno, 0)
 	table.insert(tagstack, prev)
 
 	return true
 end, 'Jump to tag')
 
 vis:command_register('tag-back', function()
 	local item = table.remove(tagstack)
 
 	if not item then
 		return
 	end
 
 	if not vis:command(string.format('e %s', item.path)) then
 		vis:info(string.format('tag-back failed: %s cannot be opened', item.path))
 		return
 	end
 	
 	vis.win.selection:to(item.line, item.col)
 end, 'Go back in tag stack')
 
 vis.events.subscribe(vis.events.FILE_SAVE_POST, function()
 	if not vis.win.ctags then
 		return
 	end
 
 	for file, prefs in pairs(vis.win.tags) do
 		if prefs.autosave then
 			generate_tags(vis.win, file)
 		end
 	end
 end)
 
 M.add = function(win, file, prefs)
 	if not prefs       then prefs = {} end
 	if not prefs.path  then prefs.path  = M.path end
 	if not prefs.file  then prefs.file  = M.file end
 	if not prefs.flags then prefs.flags = M.flags end
 	win.tags[file] = prefs
 end
 
 return M