91 lines
3.0 KiB
Lua
91 lines
3.0 KiB
Lua
-- 让写在 alphabet 中的某标点自动上屏
|
||
--
|
||
-- 感谢 @[Mirtle](https://github.com/mirtlecn) 的 PR
|
||
--
|
||
-- 配置，在方案中填写 auto_commit_single_punct: '`'
|
||
-- 用途示例： `（反引号）被添加到了 speller/alphabet 来响应辅码，如 gan`shuijin 得到「淦」。
|
||
-- 这样导致在输入单个的 ` 时仍然需要按空格选择一下。
|
||
-- 因为 ` 只在非开头状态下产生作用，所以我希望输入单个的 ` 时和其他标点一样都直接上屏。
|
||
-- 支持设置多个符号，例如双拼可以设置为 auto_commit_single_punct: '`;' 让单个的分号也直接上屏
|
||
|
||
local P = {}
|
||
|
||
function P.get_punct_text(cfg, path)
|
||
if cfg:is_list(path) then
|
||
-- null value or list -> return nil
|
||
-- `: [`,-] -> nil
|
||
return nil
|
||
elseif cfg:is_map(path) then
|
||
local map = cfg:get_map(path)
|
||
-- map and has commit key -> return commit text
|
||
-- `: {commit: '*'} -> *
|
||
-- `: {pair: ["‘", "’"]} -> nil
|
||
if map:has_key("commit") then
|
||
return map:get_value("commit").value
|
||
end
|
||
elseif cfg:is_value(path) then
|
||
-- string -> return value
|
||
-- `: '`' -> `
|
||
return cfg:get_string(path)
|
||
end
|
||
return nil
|
||
end
|
||
|
||
function P.init(env)
|
||
local cfg = env.engine.schema.config
|
||
local puncts = cfg:get_string(env.name_space:gsub('^*', ''))
|
||
if not puncts then
|
||
return
|
||
end
|
||
|
||
P.puncts = {}
|
||
for punct in puncts:gmatch(".") do
|
||
table.insert(P.puncts, punct)
|
||
end
|
||
|
||
P.full_shape_texts = {}
|
||
P.half_shape_texts = {}
|
||
for _, punct in ipairs(P.puncts) do
|
||
local full_shape_path = "punctuator/full_shape/" .. punct
|
||
local half_shape_path = "punctuator/half_shape/" .. punct
|
||
P.full_shape_texts[punct] = P.get_punct_text(cfg, full_shape_path)
|
||
P.half_shape_texts[punct] = P.get_punct_text(cfg, half_shape_path)
|
||
end
|
||
end
|
||
|
||
function P.func(key, env)
|
||
local context = env.engine.context
|
||
|
||
-- 不影响组合键
|
||
if not P.puncts or key:release() or key:ctrl() or key:alt() or key:super() then
|
||
return 2 -- kNoop
|
||
end
|
||
|
||
local ascii_str = ''
|
||
if key.keycode > 0x20 and key.keycode < 0x7f then
|
||
ascii_str = string.char(key.keycode)
|
||
end
|
||
|
||
-- 解开下面三行，将只允许一次辅码上屏（辅码检索时，将会阻止再次输入辅码）
|
||
-- if context.input:find("^[a-z;]+" .. P.char) and ascii_str == P.char then
|
||
-- return 1
|
||
-- end
|
||
|
||
for _, punct in ipairs(P.puncts) do
|
||
if not context:is_composing() and ascii_str == punct then
|
||
local is_full_shape = env.engine.context:get_option("full_shape")
|
||
if is_full_shape and P.full_shape_texts[punct] then
|
||
env.engine:commit_text(P.full_shape_texts[punct])
|
||
return 1
|
||
elseif (not is_full_shape) and P.half_shape_texts[punct] then
|
||
env.engine:commit_text(P.half_shape_texts[punct])
|
||
return 1
|
||
end
|
||
end
|
||
end
|
||
|
||
return 2 -- kNoop
|
||
end
|
||
|
||
return P
|