Clean Paste

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

-- Clean Paste: paste the clipboard as plain text, with smart quotes
-- straightened and runs of spaces collapsed. Plain paste is untouched.

local IS_MAC = _REBIND.platform == "macos"

local MODS = {
  ["Ctrl+Shift"] = { ctrl = true, shift = true },
  ["Cmd/Win+Shift"] = { win = true, shift = true },
  ["Ctrl+Alt"] = { ctrl = true, alt = true },
  ["Alt+Shift"] = { alt = true, shift = true },
}

local cfg = UI.Schema({
  key = UI.Keybind("V", { label = "Key" }),
  modifier = UI.Select(
    if IS_MAC then "Cmd/Win+Shift" else "Ctrl+Shift",
    { "Ctrl+Shift", "Cmd/Win+Shift", "Ctrl+Alt", "Alt+Shift" },
    { label = "Held with the key" }
  ),
  quotes = UI.Toggle(true, { label = "Straighten smart quotes" }),
  spaces = UI.Toggle(true, { label = "Collapse extra spaces" }),
})

local function chordHeld()
  local want = MODS[cfg.modifier] or {}
  local have = Input.GetModifiers()
  for _, m in { "ctrl", "alt", "shift", "win" } do
    if (want[m] == true) ~= have[m] then
      return false
    end
  end
  return true
end

local function clean(text)
  if cfg.quotes then
    text =
      text:gsub("“", '"'):gsub("”", '"'):gsub("‘", "'"):gsub("’", "'")
  end
  if cfg.spaces then
    text = text:gsub("[ \t]+", " "):gsub(" +\n", "\n")
  end
  return text
end

Bind(cfg.key, {
  when = chordHeld,
  action = Async(function()
    local ok, text = pcall(Clipboard.Get)
    if not ok or not text then
      UI.Notify("The clipboard has no text", "warning")
      return
    end
    Clipboard.Set(clean(text))
    -- let go of the chord first, or the paste becomes another chord
    while Input.GetModifiers().shift or Input.GetModifiers().alt do
      Sleep(10)
    end
    HID.Press(if IS_MAC then "LWin+V" else "LCtrl+V")
  end),
})