@@ -64,7 +64,7 @@ defmodule Scenic.Driver.KeyMap do
64
64
"""
65
65
@ spec caps_lock? ( keys :: keys ) :: boolean
66
66
def caps_lock? ( keys ) do
67
- is_pressed ?( keys [ :virt_caps_lock ] )
67
+ pressed ?( keys [ :virt_caps_lock ] )
68
68
end
69
69
70
70
@ doc """
@@ -74,7 +74,7 @@ defmodule Scenic.Driver.KeyMap do
74
74
"""
75
75
@ spec num_lock? ( keys :: keys ) :: boolean
76
76
def num_lock? ( keys ) do
77
- is_pressed ?( keys [ :virt_num_lock ] )
77
+ pressed ?( keys [ :virt_num_lock ] )
78
78
end
79
79
80
80
@ doc """
@@ -84,7 +84,7 @@ defmodule Scenic.Driver.KeyMap do
84
84
"""
85
85
@ spec scroll_lock? ( keys :: keys ) :: boolean
86
86
def scroll_lock? ( keys ) do
87
- is_pressed ?( keys [ :virt_scroll_lock ] )
87
+ pressed ?( keys [ :virt_scroll_lock ] )
88
88
end
89
89
90
90
@ doc """
@@ -94,39 +94,39 @@ defmodule Scenic.Driver.KeyMap do
94
94
"""
95
95
@ spec shift? ( keys :: keys ) :: boolean
96
96
def shift? ( keys ) do
97
- is_pressed ?( keys [ :key_shift ] ) ||
98
- is_pressed ?( keys [ :key_leftshift ] ) ||
99
- is_pressed ?( keys [ :key_rightshift ] )
97
+ pressed ?( keys [ :key_shift ] ) ||
98
+ pressed ?( keys [ :key_leftshift ] ) ||
99
+ pressed ?( keys [ :key_rightshift ] )
100
100
end
101
101
102
102
@ doc """
103
103
Is any alt key pressed?
104
104
"""
105
105
@ spec alt? ( keys :: keys ) :: boolean
106
106
def alt? ( keys ) do
107
- is_pressed ?( keys [ :key_alt ] ) ||
108
- is_pressed ?( keys [ :key_leftalt ] ) ||
109
- is_pressed ?( keys [ :key_rightalt ] )
107
+ pressed ?( keys [ :key_alt ] ) ||
108
+ pressed ?( keys [ :key_leftalt ] ) ||
109
+ pressed ?( keys [ :key_rightalt ] )
110
110
end
111
111
112
112
@ doc """
113
113
Is any ctrl key pressed?
114
114
"""
115
115
@ spec ctrl? ( keys :: keys ) :: boolean
116
116
def ctrl? ( keys ) do
117
- is_pressed ?( keys [ :key_ctrl ] ) ||
118
- is_pressed ?( keys [ :key_leftctrl ] ) ||
119
- is_pressed ?( keys [ :key_rightctrl ] )
117
+ pressed ?( keys [ :key_ctrl ] ) ||
118
+ pressed ?( keys [ :key_leftctrl ] ) ||
119
+ pressed ?( keys [ :key_rightctrl ] )
120
120
end
121
121
122
122
@ doc """
123
123
Is any meta key pressed? This is usually the command button.
124
124
"""
125
125
@ spec meta? ( keys :: keys ) :: boolean
126
126
def meta? ( keys ) do
127
- is_pressed ?( keys [ :key_meta ] ) ||
128
- is_pressed ?( keys [ :key_leftmeta ] ) ||
129
- is_pressed ?( keys [ :key_rightmeta ] )
127
+ pressed ?( keys [ :key_meta ] ) ||
128
+ pressed ?( keys [ :key_leftmeta ] ) ||
129
+ pressed ?( keys [ :key_rightmeta ] )
130
130
end
131
131
132
132
@ doc """
@@ -144,9 +144,9 @@ defmodule Scenic.Driver.KeyMap do
144
144
|> add_if_set ( :scroll_lock , scroll_lock? ( keys ) )
145
145
end
146
146
147
- defp is_pressed ?( nil ) , do: false
148
- defp is_pressed ?( 0 ) , do: false
149
- defp is_pressed ?( _ ) , do: true
147
+ defp pressed ?( nil ) , do: false
148
+ defp pressed ?( 0 ) , do: false
149
+ defp pressed ?( _ ) , do: true
150
150
151
151
defp add_if_set ( list , value , true ) , do: [ value | list ]
152
152
defp add_if_set ( list , _value , false ) , do: list
0 commit comments