script_name = "Check pre-timing"
script_description = "Put stuff in empty dialogue lines, so you can see subtitles.\nformerly known as A-B"
script_author = "garret"
script_version = "4.0.0"
script_namespace = "garret.a-b"

local haveDepCtrl, DependencyControl, depctrl = pcall(require, "l0.DependencyControl")
if haveDepCtrl then
    depctrl = DependencyControl {
        --feed="TODO",
    }
end

local function switch_indicator(i)
    if i == "a" then
        return "b"
    elseif i == "b" then
        return "a"
    end
end

local function strip_tags(text)
    return text:gsub("{[^}]-}","")
end

local function get_indicator(letter, actor)
    local indicator
    if actor == "" then
        indicator = letter
    else
    indicator = actor.." "..letter
    end
    return indicator
end

local function escape_pattern(txt)
    local magic_chars = "%^%$%(%)%%.%[%]%*%+%-%?"
    return txt:gsub("(["..magic_chars.."])", "%%%1")
end

local function main(sub, sel)
    local i = "a"
    for _,li in ipairs(sel) do
        local line = sub[li]
        local indicator = get_indicator(i, line.actor)

        if line.text == "" then
            line.text = indicator
        elseif strip_tags(line.text) == "" then
            line.text = line.text .. indicator -- apply tags
        end

        sub[li] = line
        i = switch_indicator(i)
    end
    aegisub.set_undo_point(script_name)
end

local function undo(sub, sel)
    local i = "a"
    for _,li in ipairs(sel) do
        local line = sub[li]
        local indicator = get_indicator(i, line.actor)

        if line.text == indicator then
            line.text = ""
        else
            local escaped = escape_pattern(indicator)
            line.text = line.text:gsub(escaped, "")
        end
        sub[li] = line
        i = switch_indicator(i)
    end
end

local macros = {
    {"Add indicators", script_description, main},
    {"Clean up","Gets rid of the indicators once you've adjusted the lines", undo}
}
if haveDepCtrl then
    depctrl:registerMacros(macros)
else
    for _,macro in ipairs(macros) do
        local name, desc, fun = unpack(macro)
        aegisub.register_macro(script_name .. '/' .. name, desc, fun)
    end
end