summaryrefslogtreecommitdiff
path: root/config/essentials/vis/yank-highlight.lua
blob: 37a9578e84a3087566111276b05d80b020f84844 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
require("vis")

local M = {
	style = "reverse", -- Style used for highlighting
	duration = 0.2,    -- [s] Time to remain highlighted (10 ms precision)
}

vis.events.subscribe(vis.events.INIT, function()
	local yank = vis:action_register("highlighted-yank", function()
		vis.win:style_define(vis.win.STYLE_SELECTION, M.style)
		vis:redraw()
		local tstamp = os.clock()
		while os.clock() - tstamp < M.duration do end
		vis.win:style_define(vis.win.STYLE_SELECTION, vis.lexers.STYLE_SELECTION)
		vis:redraw()
		vis:feedkeys("<vis-operator-yank>")
	end, "Yank operator with highlighting")
	vis:map(vis.modes.OPERATOR_PENDING, "y", yank)
	vis:map(vis.modes.VISUAL, "y", yank)
	vis:map(vis.modes.VISUAL_LINE, "y", yank)

	vis:map(vis.modes.NORMAL, "y", function(keys)
		local sel_end_chrs = "$%^{}()wp"
		if #keys < 1 or sel_end_chrs:find(keys:sub(-1), 1, true) == nil then
			if keys:find("<Escape>") then
				return #keys
			end
			return -1
		end
		vis:feedkeys("<vis-mode-visual-charwise>")
		vis:feedkeys(keys)
		vis:feedkeys("y<Escape>")
		return #keys
	end)
end)

return M