diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2021-10-11 01:18:41 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2021-10-11 01:18:41 -0600 |
| commit | 42f81370dfe278a18e61e1a6a8e5caa580be37d7 (patch) | |
| tree | 4a15f2d720c496562f6f42b95bb89eece482bd79 /src/Internal | |
| parent | 81cf0868325a7514bed385dac9d140a30c351135 (diff) | |
| download | rde-42f81370dfe278a18e61e1a6a8e5caa580be37d7.tar.gz rde-42f81370dfe278a18e61e1a6a8e5caa580be37d7.tar.bz2 rde-42f81370dfe278a18e61e1a6a8e5caa580be37d7.zip | |
Added xev to float. Added keybindings for programmer dvorak
Diffstat (limited to 'src/Internal')
| -rw-r--r-- | src/Internal/Keys.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 19ff5b5..44f4481 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -149,6 +149,16 @@ mapNumbers km fn = , ((km, xK_7), fn '7') , ((km, xK_8), fn '8') , ((km, xK_9), fn '9') + , ((km, xK_bracketright), fn '6') + , ((km, xK_exclam), fn '8') + , ((km, xK_bracketleft), fn '7') + , ((km, xK_braceleft), fn '5') + , ((km, xK_braceright), fn '3') + , ((km, xK_parenleft), fn '1') + , ((km, xK_equal), fn '9') + , ((km, xK_asterisk), fn '0') + , ((km, xK_parenright), fn '2') + , ((km, xK_plus), fn '4') ] mapAlpha :: KeyMask -> (Char -> X ()) -> Map (KeyMask, KeySym) (X ()) |