Keyboard Foley

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176

local cfg = UI.Schema({
  enabled = UI.Toggle(true, {
    label = "Typing sounds (F8)",
    group = "Keyboard Foley",
    tooltip = "F8 mutes or unmutes this package. Typing is not remapped.",
  }),
  theme = UI.Select("Mechanical", { "Mechanical", "Typewriter", "Soft Pop" }, {
    label = "Sound theme (F9)",
    group = "Sound",
    tooltip = "F9 cycles the three original synthesized themes.",
  }),
  volume = UI.Slider(35, {
    label = "Volume",
    group = "Sound",
    min = 0,
    max = 100,
    step = 5,
    suffix = "%",
  }),
  shortcuts = UI.Toggle(false, {
    label = "Sound with Ctrl, Alt, Cmd, or Win",
    group = "Typing",
    tooltip = "Off keeps these shortcuts quiet. Shifted typing still makes sound.",
  }),
})

local NEXT_THEME = {
  Mechanical = "Typewriter",
  Typewriter = "Soft Pop",
  ["Soft Pop"] = "Mechanical",
}
local FOLDERS = {
  Mechanical = "mechanical",
  Typewriter = "typewriter",
  ["Soft Pop"] = "soft-pop",
}
local SPECIAL = {
  Space = "space",
  Enter = "enter",
  KpEnter = "enter",
  Backspace = "backspace",
}
local TYPING_KEYS = {
  Tab = true,
  Minus = true,
  Equal = true,
  LeftBrace = true,
  RightBrace = true,
  Backslash = true,
  Semicolon = true,
  Apostrophe = true,
  Grave = true,
  Comma = true,
  Period = true,
  Slash = true,
  KpPlus = true,
  KpMinus = true,
  KpMultiply = true,
  KpDivide = true,
  KpDot = true,
}
local MAX_VOICES = 12
local voices = {}
local variation = 0
local last_theme = cfg.theme
local last_volume = nil

local function volume()
  local value = cfg.volume
  if type(value) ~= "number" or value ~= value then
    value = 35
  end
  return math.max(0, math.min(100, value)) / 100
end

local function silence()
  for _, sound in voices do
    sound:Stop()
  end
  voices = {}
end

local function prune()
  for i = #voices, 1, -1 do
    if not voices[i]:IsPlaying() then
      table.remove(voices, i)
    end
  end
end

local function update_sounds()
  if cfg.enabled ~= true or cfg.theme ~= last_theme then
    silence()
    last_theme = cfg.theme
  end
  prune()
  local level = volume()
  if level ~= last_volume then
    for _, sound in voices do
      sound:SetVolume(level)
    end
    last_volume = level
  end
end

Bind("F8", function()
  cfg.enabled = cfg.enabled ~= true
  silence()
  UI.Notify(
    cfg.enabled and "Keyboard Foley unmuted." or "Keyboard Foley muted."
  )
end)

Bind("F9", function()
  cfg.theme = NEXT_THEME[cfg.theme] or "Mechanical"
  silence()
  UI.Notify("Keyboard Foley: " .. cfg.theme .. ".")
end)

-- observers cannot swallow input and do not require exclusive key capture.
function OnInputDown(key)
  update_sounds()
  if cfg.enabled ~= true then
    return
  end
  local level = volume()
  if level == 0 then
    return
  end
  local sample = SPECIAL[key]
  if not sample then
    if
      not TYPING_KEYS[key]
      and not key:match("^[A-Z0-9]$")
      and not key:match("^Kp[0-9]$")
    then
      return
    end
    variation = variation % 3 + 1
    sample = "key-" .. variation
  end
  if cfg.shortcuts ~= true then
    local modifiers = Input.GetModifiers()
    if modifiers.ctrl or modifiers.alt or modifiers.win then
      return
    end
  end
  if #voices == MAX_VOICES then
    table.remove(voices, 1):Stop()
  end
  local folder = FOLDERS[cfg.theme] or "mechanical"
  local ok, sound =
    pcall(Audio.Play, "samples/" .. folder .. "/" .. sample .. ".wav", {
      volume = level,
    })
  if not ok then
    cfg.enabled = false
    silence()
    Log.Error("Keyboard Foley could not play a sample: " .. tostring(sound))
    UI.Notify(
      "Keyboard Foley muted after an audio error. Check Logs, then press F8 to retry.",
      "error"
    )
    return
  end
  -- retain handles until playback ends; collecting one stops its native sound.
  table.insert(voices, sound)
end

function OnTick()
  update_sounds()
end

function OnStop()
  silence()
end