added ctrl+alt+m for transliterate full sentences

andaluh.ahk

@@ -5,7 +5,27 @@ Menu, Tray, Icon, andalûh-p.ico, , 1 ; set the icon to use when AutoHotkey is s
 Menu, Tray, Icon, andalûh.ico ; set the icon to use when AutoHotkey is running
 SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
 
+; copy the selected text
+^!m::
+  SendInput, ^c
+  ClipWait, 2
+  if ErrorLevel
+    return
+  selected_text := Clipboard
 
+  ; make the API request and get the response
+  url := "https://api.abula.ga/autohotkey.php?q=" . selected_text
+  response := ""
+  oHTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1")
+  oHTTP.Open("GET", url, false)
+  oHTTP.Send()
+  if (oHTTP.Status = 200)
+    response := oHTTP.ResponseText
+
+  ; replace the selected text with the response
+  if (response != "")
+    SendInput, {BS}%response%
+return
 
 ~^!p:: ; Ctrl+Alt+a
    Suspend