#SingleInstance, force



RAlt:: gosub, Accatures ; Accents + Ligatures = Accetures



Accatures:
clipboard := ""
SendInput, +{Left 2}^c{Del}
sleep, 64
aChar = %clipboard%
stLenth := StrLen(achar)

if stLenth = 2
{

    if (CharSet := "'E") ; Acute
    {
        Send, {asc 0201}
    }
    else if (CharSet := "'e")
    {
        Send, {asc 0233}
    }
    else if (CharSet := "`A") ; Grave
    {
        Send, {asc 0192}
    }
    else if (CharSet := "`a")
    {
        Send, {asc 0224}
    }
    else if (CharSet := "`E")
    {
        Send, {asc 0200}
    }
    else if (CharSet := "`e")
    {
        Send, {asc 0232}
    }
    else if (CharSet := "`U")
    {
        Send, {asc 0217}
    }
    else if (CharSet := "`u")
    {
        Send, {asc 0249}
    }
    else if (CharSet := "^A") ; Circumflex
    {
        Send, {asc 0194}
    }
    else if (CharSet := "^a")
    {
        Send, {asc 0226}
    }
    else if (CharSet := "^e")
    {
        Send, {asc 0202}
    }
    else if (CharSet := "^E")
    {
        Send, {asc 0234}
    }
    else if (CharSet := "^I")
    {
        Send, {asc 0206}
    }
    else if (CharSet := "^i")
    {
        Send, {asc 0238}
    }
    else if (CharSet := "^O")
    {
        Send, {asc 0212}
    }
    else if (CharSet := "^o")
    {
        Send, {asc 0244}
    }
    else if (CharSet := "^U")
    {
        Send, {asc 0219}
    }
    else if (CharSet := "^u")
    {
        Send, {asc 0251}
    }
    else if (CharSet := ":E") ; Diaeresis
    {
        Send, {asc 0203}
    }
    else if (CharSet := ":e")
    {
        Send, {asc 0235}
    }
    else if (CharSet := ":I")
    {
        Send, {asc 0207}
    }
    else if (CharSet := ":i")
    {
        Send, {asc 0238}
    }
    else if (CharSet := ":U")
    {
        Send, {asc 0220}
    }
    else if (CharSet := ":u")
    {
        Send, {asc 0252}
    }
    else if (CharSet := ":Y")
    {
        Send, {asc 0159}
    }
    else if (CharSet := ":y")
    {
        Send, {asc 0255}
    }
    else if (CharSet := ",C") ; Cedille
    {
        Send, {asc 0199}
    }
    else if (CharSet := ",c")
    {
        Send, {asc 0231}
    }
    else if (CharSet := "~N") ; Tilde
    {
        Send, {asc 0209}
    }
    else if (CharSet := "~n")
    {
        Send, {asc 0241}
    }
    else if (CharSet := "OE") ; Ligatures
    {
        Send, {asc 0140}
    }
    else if (CharSet := "oe")
    {
        Send, {asc 0156}
    }
    else if (CharSet := "AE")
    {
        Send, {asc 0198}
    }
    else if (CharSet := "ae")
    {
        Send, {asc 0230}
    }
    else if (CharSet := "<<") ; Quotation
    {
        Send, {asc 0171}
    }
    else if (CharSet := ">>")
    {
        Send, {asc 0187}
    }
    else
    {
        Send {asc 0020}
    }

}