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
|
--- Send keys for luakit.
--
-- This module parses a vim-like keystring into single keys and sends
-- them to the window. A keystring is a string of keys to press, with
-- special keys denoted in between angle brackets:
--
-- keysym.send(w, "<Shift-Home><BackSpace>")
--
-- See gdk/gdkkeysyms.h for a complete list of recognized key names.
--
-- @module keysym
-- @author Amos Bird amosbird@gmail.com
-- @author Fabian Streitel luakit@rottenrei.be
-- @author Mason Larobina mason.larobina@gmail.com
-- @copyright 2017 Amos Bird amosbird@gmail.com
-- @copyright 2010 Fabian Streitel luakit@rottenrei.be
-- @copyright 2010 Mason Larobina mason.larobina@gmail.com
local _M = {}
--- Send synthetic keys to given widget.
-- This function parses a vim-like keystring into single keys and sends
-- them to the widget. A keystring is a string of keys to press, with
-- special keys denoted in between angle brackets:
--
-- keysym.send(w, "<Shift-Home><BackSpace>")
-- keysym.send(w, "<Control-a>")
--
-- Sending special unicode characters needs related keyboard layout to be set.
-- keysym.send(w, "Приветствую, мир")
--
-- When `window.act_on_synthetic_keys` is disabled, synthetic key events sent to
-- a window widget will not trigger other key bindings.
-- @tparam w The widget to send keys to.
-- @tparam string keystring The key string representing synthetic keys.
_M.send = function (w, keystring)
assert(w)
-- _M.send previously took a window object/table, and sent keys to w.win.
-- It can now take any widget, and send keys to that.
-- If w is a table, assume that the old interface is desired,
-- and re-assign w to w.win to retain backwards compatibility.
if type(w) == "table" then
w = w.win
end
assert(type(keystring) == "string", "string expected, found "..type(keystring))
local symbol = nil
local modifiers = {}
local keys = {}
for char in keystring:gmatch(utf8.charpattern) do
if char == "<" then
symbol = ""
elseif char == ">" and symbol then
if #symbol == 0 then
error("bad keystring: " .. keystring)
else
table.insert(keys, {
key = symbol,
mods = modifiers,
})
end
symbol = nil
modifiers = {}
elseif symbol and char == "-" then
if symbol:match("^[Ss]hift$") or
symbol:match("^[Cc]ontrol$") or
symbol:match("^[Ll]ock$") or
symbol:match("^[Mm]od[1-5]$")
then
table.insert(modifiers, symbol:lower())
symbol = ""
else
error("bad modifier in keystring: " .. symbol)
return
end
elseif not symbol then
table.insert(keys, {
key = char,
mods = {},
})
else
symbol = symbol .. char
end
end
if symbol then error("unterminated symbol: " .. symbol) end
for _, key in ipairs(keys) do
w:send_key(key.key, key.mods)
end
end
return _M
-- vim: et:sw=4:ts=8:sts=4:tw=80
|
