vi-plugin/parse.lua at main · micro-garden/vi-plugin · GitHub

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
local config = import("micro/config")
local plug_path = config.ConfigDir .. "/plug/?.lua"
if not package.path:find(plug_path, 1, true) then
	package.path = package.path .. ";" .. plug_path
end

local utils = require("vi/utils")
local bell = require("vi/bell")
local combuf = require("vi/combuf")
local mode = require("vi/mode")
local command = require("vi/command")
local prompt = require("vi/prompt")

-- internal constants
local TEXT_EVENT_INSERT = 1
local TEXT_EVENT_REPLACE = 0
local TEXT_EVENT_REMOVE = -1

function onBeforeTextEvent(buf, ev)
	if mode.is_insert() or mode.is_search() then
		return true
	end

	if ev.EventType == TEXT_EVENT_REMOVE or ev.EventType == TEXT_EVENT_REPLACE then
		return true
	end

	-- assert
	if ev.EventType ~= TEXT_EVENT_INSERT then
		bell.program_error("invalid ev.EventType == " .. ev.EventType)
		return true
	end

	if #ev.Deltas ~= 1 then
		return true
	end
	local delta = ev.Deltas[1]

	-- pass through pasted long text
	if #delta.Text ~= 1 then
		return true
	end

	-- Text is byte array
	local input = utils.bytes_to_string(delta.Text)

	delta.Text = ""
	delta.Start.X = 0
	delta.Start.Y = 0
	delta.End.X = 0
	delta.End.Y = 0

	if mode.is_prompt() then
		if input == "\n" then
			prompt.enter()
		else
			prompt.insert_chars(input)
		end
		return true
	end

	combuf.insert_chars(input)
	local comb = combuf.get()

	local num_str, op, subnum_str, mv, _ = comb:match(
		"^(%d*)([:mziaIARoOdyYxXDsScCpPrJ><%.uUZ]*)(%d*)([hjkl0%$%^|wbeWBE\n%+%-G%)%(}{%]%[HML'`/?nNfFtT;,g]*)(.-)$"
	)

	local letter_command, letter = comb:match("([m'`fFtT;,r])(.)$")
	if letter_command then
		if letter_command == "m" or letter_command == "r" then
			op = letter_command
			mv = ""
		elseif letter_command == "'" or letter_command == "`" then
			mv = letter_command
		elseif letter_command:match("[fFtT;,]") then
			mv = letter_command
		end
	end

	if not num_str then
		bell.error("not (yet) a vi command [" .. comb .. "]")
		combuf.clear()
		return true
	end

	local no_num = false
	local num = 1
	if #num_str < 1 then
		no_num = true
	elseif num_str == "0" then
		mv = "0"
	else
		num = tonumber(num_str)
	end

	local no_subnum = false
	local subnum = 1
	if #subnum_str < 1 then
		no_subnum = true
	elseif subnum_str == "0" then
		mv = "0"
	else
		subnum = tonumber(subnum_str)
	end

	if command.run(no_num, num, op, no_subnum, subnum, mv, letter, false) then
		combuf.clear()
		return true
	end

	mode.show()
	return true
end