#Requires AutoHotkey v2.0
#SingleInstance Force

OllamaGui := Gui(, "Ollama API")
OllamaGui.Add("Text", "x10 y14 w60 h14", "Prompt")
OllamaGui.Add("Text", "x100 y14 w200 h14", "Ctrl+Enter=New Line    |    Enter=Send")
Prompt_Edit := OllamaGui.Add("Edit", "x10 y30 w420 h125 -WantReturn +Multi", "How does one go about shop until you drop?")
OllamaGui.Add("Text", "x10 y164 w60 h14", "Response")
Response_Edit := OllamaGui.Add("Edit", "x10 y180 w420 h175 +Multi")
OllamaGui.Add("Text", "x10 y364 w60 h14", "Model")
Model_Edit := OllamaGui.Add("Edit", "x10 y380 w130 h30 -vScroll r1", "dolphin-mistral:latest")
OllamaGui.Add("Text", "x150 y364 w60 h14", "Context")
Context_Edit := OllamaGui.Add("Edit", "x150 y380 w130 h30 -vScroll r1", "2000")
OllamaGui.Add("Text", "x300 y364 w60 h14", "Temperature")
Temperature_Edit := OllamaGui.Add("Edit", "x300 y380 w130 h30 -vScroll r1", "0.8")
H_SendRequest := OllamaGui.AddButton("Default Hidden", "OK")
H_SendRequest.OnEvent("Click", SendRequest)
OllamaGui.Show("w440 h420")

SendRequest(*)
{
	DATA := "
	(
	{
	  "model": "Model_EditValueC",
	  "prompt": "Prompt_EditValueC",
	  "stream": false,
	  "Options": {
	    "temperature": "Temperature_EditValueC",
	    "num_ctx": "Context_EditValueC"
	  }
	}
	)"
	; Is this the (Can't be) best way to variable the above like below, instead of making every escape?
	DATA := StrReplace(DATA, "`"Context_EditValueC`"", Context_Edit.Value)
	DATA := StrReplace(DATA, "`"Temperature_EditValueC`"", Temperature_Edit.Value)
	DATA := StrReplace(DATA, "`"Prompt_EditValueC`"", "`"" Prompt_Edit.Value "`"")
	DATA := StrReplace(DATA, "`"Model_EditValueC`"", "`"" Model_Edit.Value "`"")
	URL := "http://localhost:11434/api/generate"
	WinHttp := ComObject("WinHttp.WinHttpRequest.5.1")
	WinHttp.Open("POST", URL, True)
	WinHttp.SetRequestHeader("Content-Type", "application/json")
	WinHttp.Send(DATA)
	WinHttp.WaitForResponse
	DATA := WinHttp.ResponseText
	RegExMatch(DATA, "s)(?<=`",`"response`":`").*?(?=`",`"done`":true)", &Match)
	DATA := Match[0]
	DATA := StrReplace(DATA, "\`"", "`"")
	DATA := StrReplace(DATA, "\n", "`n")
	Response_Edit.Value := DATA
}

Numpad2::
{
	Reload
}