-- 让写在 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