Keyboard Maestro: App & Keystroke Automation

-- rebind: min_sdk=0.1.0
-- rebind: name=Keyboard Maestro
-- rebind: description=Chain application launches and keystroke sequences

local cfg = UI.Schema({
    hotkey = UI.Keybind("F12", { label = "Maestro Hotkey" }),
    enabled = UI.Toggle(true, { label = "Enable" }),
})

-- Define chains: each entry launches an app and/or runs keystrokes
local chains = {
    {
        name = "Email Workflow",
        hotkey = "F9",
        steps = {
            { action = "app", path = "explorer shell:appsFolder\\Microsoft.OutlookforWindows_8wekyb3d8bbwe!App", wait = 3000 },
            { action = "keys", sequence = "LCtrl+N" },
            { action = "wait", ms = 500 },
            { action = "type", text = "Subject: Report\n\nHello,\n\nPlease find the report attached.\n\nBest regards" },
        },
    },
    {
        name = "Browser Search",
        hotkey = "F10",
        steps = {
            { action = "app", path = "chrome.exe", wait = 2000 },
            { action = "keys", sequence = "LCtrl+T" },
            { action = "wait", ms = 300 },
            { action = "type", text = "rebind keyboard automation" },
            { action = "keys", sequence = "Enter" },
        },
    },
    {
        name = "Code Session",
        hotkey = "F11",
        steps = {
            { action = "app", path = "code.exe", wait = 3000 },
            { action = "keys", sequence = "LCtrl+K LCtrl+O" },
            { action = "wait", ms = 1000 },
            { action = "type", text = "C:\\Projects" },
            { action = "keys", sequence = "Enter" },
        },
    },
}

local function executeChain(chain)
    Log.Info("Executing chain: " .. chain.name)

    Run(function()
        for _, step in ipairs(chain.steps) do
            if step.action == "app" then
                System.Exec('start "" "' .. step.path .. '"')
                if step.wait then
                    Sleep(step.wait)
                end

            elseif step.action == "keys" then
                -- Parse multiple keys separated by space
                for key in step.sequence:gmatch("%S+") do
                    HID.Press(key)
                    Sleep(50)
                end

            elseif step.action == "type" then
                HID.Type(step.text, 20)

            elseif step.action == "wait" then
                Sleep(step.wait or 500)
            end
        end

        UI.Notify("Chain complete: " .. chain.name, "success")
    end)
end

-- Register hotkeys for each chain
function OnStart()
    for _, chain in ipairs(chains) do
        local bindHotkey = chain.hotkey
        Bind(bindHotkey, function()
            if not cfg.enabled then
                return true
            end
            executeChain(chain)
            return false
        end)
    end

    Log.Info("Keyboard Maestro ready")
    for _, chain in ipairs(chains) do
        Log.Info("  " .. chain.hotkey .. " → " .. chain.name)
    end
end

function OnStop()
    Audio.StopAll()
end

function OnBlur()
    Audio.StopAll()
end