Send to Your AI

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

-- Send to Your AI: copy the selection, switch to your AI app, and paste it
-- with your prompt in front. It stops there, so you send it yourself.

local IS_MAC = _REBIND.platform == "macos"
local MOD = if IS_MAC then "LWin" else "LCtrl"

local cfg = UI.Schema({
  hotkey = UI.Keybind("F8", { label = "Send selection" }),
  app = UI.Select("Codex", { "Codex", "Claude", "ChatGPT" }, { label = "Send to" }),
  prefix = UI.Text("Here is what I am looking at:", { label = "Starts with" }),
  launch = UI.Text("", {
    label = "Launch command if the app is closed (Windows)",
    placeholder = "full path to the app",
  }),
})

local function copySelection()
  Clipboard.Set("")
  HID.Combo(MOD .. "+C")
  for _ = 1, 10 do
    Sleep(50)
    local text = Clipboard.Get()
    if text and text ~= "" then
      return text
    end
  end
  return nil
end

local function waitFront(app)
  for _ = 1, 30 do
    if App.IsFront(app) then
      return true
    end
    Sleep(100)
    pcall(App.Activate, app)
  end
  return false
end

local function focus(app)
  if pcall(App.Activate, app) and waitFront(app) then
    return true
  end
  if IS_MAC then
    return false
  end
  -- Windows focuses only running apps: start it, then keep asking
  local ok = if cfg.launch ~= ""
    then pcall(System.ExecDetached, cfg.launch, {})
    else pcall(System.ExecDetached, "cmd", { "/c", "start", "", app })
  if not ok then
    return false
  end
  return waitFront(app)
end

Bind(
  cfg.hotkey,
  Async(function()
    local text = copySelection()
    if not text then
      UI.Notify("Nothing selected", "warning")
      return
    end
    Clipboard.Set(cfg.prefix .. "\n\n" .. text)
    if not focus(cfg.app) then
      UI.Notify(`Could not open {cfg.app}. Your text is on the clipboard.`, "warning")
      return
    end
    Sleep(400)
    HID.Combo(MOD .. "+V")
  end)
)