colorize

AddingCarets := false

return ; End of auto-execute

Add_Carets:
    Send {^ 2}
return

^t::
    AddingCarets := true
    SetTimer Add_Carets, 500
return

Esc::
Enter::
    SetTimer Add_Carets, Off
    if AddingCarets
    {
        bak := ClipboardAll
        Clipboard := ""
        AddingCarets := false
        Send +{Up}^c
        ClipWait
        str := Clipboard
        str := RegExReplace(str, "\^{2,}", "^^")
        while InStr(str, "^^")
        {
            Random rnd, 1, 3
            str := StrReplace(str, "^^", "^" rnd,, 1)
        }
        Clipboard := str
        Send ^v
        Sleep 100
        Clipboard := bak
    }
    Send % "{" A_ThisHotkey "}"
return