Hyper Caps Lock

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

-- Hyper Caps Lock: hold the source key and it acts as Ctrl; tap it on its own
-- and it sends Escape.

local cfg = UI.Schema({
  source = UI.Keybind("CapsLock", { label = "Key to change" }),
  holdAs = UI.Keybind("LCtrl", { label = "Held, it acts as" }),
  tapAs = UI.Keybind("Escape", { label = "Tapped alone, it sends" }),
  tapMs = UI.Slider(180, {
    min = 100,
    max = 400,
    suffix = " ms",
    label = "A tap is shorter than",
  }),
})

local down, used = false, false

function OnDown(key)
  if key == cfg.source then
    if not down then
      down, used = true, false
      HID.Down(cfg.holdAs)
    end
    return false
  end
  if down then
    used = true
  end
  return true
end

function OnUp(key, durationMs)
  if key ~= cfg.source then
    return true
  end
  if not down then
    return false
  end
  HID.Up(cfg.holdAs)
  if not used and (durationMs or 0) < cfg.tapMs then
    HID.Combo(cfg.tapAs)
  end
  down = false
  return false
end

function OnStop()
  if down then
    HID.Up(cfg.holdAs)
  end
end