fmpfunctions/keyboard.modifiers.fmfn at master · petrowsky/fmpfunctions · GitHub

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
/*
 * =====================================================
 * keyboard.modifiers( keys ; ignore )
 *
 * RETURNS:        (boolean) based on modifier keys being held down
 * PARAMETERS:     @keys = List() of "keys" or string (e.g List("Command"; "Alt") or "command-alt")
 *                 @ignore = (bool) whether or not to ignore caps lock
 * DEPENDENCIES:   none
 * NOTES:          Adapted from http://www.briandunning.com/cf/473 by Peter Wagemans, SHpartners
 * =====================================================
 *
 */

Let ( [
  // Define
  var.keys = Get ( ActiveModifierKeys );
  // Convert keys to their bit values (see note at bottom)
  var.command = Mod ( Int ( var.keys / 16 ) ; 2 );
  var.alt = Mod ( Int ( var.keys / 8 ) ; 2 );
  var.control = Mod ( Int ( var.keys / 4 ) ; 2 );
  var.capslock = Mod ( Int ( var.keys / 2 ) ; 2 );
  var.shift = Mod ( var.keys ; 2 )
];
  // Result (boolean)
  ( var.command xor not PatternCount ( keys ; "command" ) )
  and
    ( var.alt xor not ( PatternCount ( keys ; "alt" ) or PatternCount ( keys ; "option" ) ) )
  and
    ( var.control xor not ( PatternCount ( keys ; "ctrl" ) or PatternCount ( keys ; "control") ) )
  and
    If ( not ignore ; ( var.capslock xor not PatternCount ( keys ; "capslock" ) ) ; True )
  and
    ( var.shift xor not PatternCount ( keys ; "shift" ) )
  and
    ( ( var.keys = 0 ) xor ( keys ≠ "" ) )
)

/*
The Mod() function is used to determine
if the key is within the result of
Get ( ActiveModifierKeys )

16  8  4  2  1
--------------
0   0  1  0  1
|   |  |  |  |
|   |  |  |  Shift
|   |  |  Caps Lock
|   |  Ctrl
|   Alt/Option
Apple Command Key
*/