You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
1.5 KiB
62 lines
1.5 KiB
-- http://lua-users.org/lists/lua-l/2014-04/msg00590.html
|
|
local function utf8_sub(s, i, j)
|
|
i = i or 1
|
|
j = j or -1
|
|
|
|
if i < 1 or j < 1 then
|
|
local n = utf8.len(s)
|
|
if not n then return nil end
|
|
if i < 0 then i = n + 1 + i end
|
|
if j < 0 then j = n + 1 + j end
|
|
if i < 0 then i = 1 elseif i > n then i = n end
|
|
if j < 0 then j = 1 elseif j > n then j = n end
|
|
end
|
|
|
|
if j < i then return "" end
|
|
|
|
i = utf8.offset(s, i)
|
|
j = utf8.offset(s, j + 1)
|
|
|
|
if i and j then
|
|
return s:sub(i, j - 1)
|
|
elseif i then
|
|
return s:sub(i)
|
|
else
|
|
return ""
|
|
end
|
|
end
|
|
|
|
local function first_character(s)
|
|
return utf8_sub(s, 1, 1)
|
|
end
|
|
|
|
local function last_character(s)
|
|
return utf8_sub(s, -1, -1)
|
|
end
|
|
|
|
local function select_character(key, env)
|
|
local engine = env.engine
|
|
local context = engine.context
|
|
local commit_text = context:get_commit_text()
|
|
local config = engine.schema.config
|
|
local first_key = config:get_string('key_binder/select_first_character') or 'bracketleft'
|
|
local last_key = config:get_string('key_binder/select_last_character') or 'bracketright'
|
|
|
|
if (key:repr() == first_key and commit_text ~= "") then
|
|
engine:commit_text(first_character(commit_text))
|
|
context:clear()
|
|
|
|
return 1 -- kAccepted
|
|
end
|
|
|
|
if (key:repr() == last_key and commit_text ~= "") then
|
|
engine:commit_text(last_character(commit_text))
|
|
context:clear()
|
|
|
|
return 1 -- kAccepted
|
|
end
|
|
|
|
return 2 -- kNoop
|
|
end
|
|
|
|
return select_character
|
|
|