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 | |
| parent | 81cf0868325a7514bed385dac9d140a30c351135 (diff) | |
| download | rde-42f81370dfe278a18e61e1a6a8e5caa580be37d7.tar.gz rde-42f81370dfe278a18e61e1a6a8e5caa580be37d7.tar.bz2 rde-42f81370dfe278a18e61e1a6a8e5caa580be37d7.zip | |
Added xev to float. Added keybindings for programmer dvorak
| -rw-r--r-- | src/Internal/Keys.hs | 10 | ||||
| -rw-r--r-- | src/Main.hs | 5 |
2 files changed, 14 insertions, 1 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 ()) diff --git a/src/Main.hs b/src/Main.hs index d4f5dae..2234a97 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -31,12 +31,15 @@ main = do , focusedBorderColor = "#ff6c00" , normalBorderColor = "#ffd9bf" , layoutHook = myLayout - , startupHook = spawn fp + , startupHook = do + ewmhDesktopsStartup + spawn fp , manageHook = composeAll [ isFullscreen --> doFullFloat , className =? "Tilda" --> doFloat , className =? "yakuake" --> doFloat , className =? "MPlayer" --> doFloat + , title =? "Event Tester" --> doFloat , className =? "mpv" --> doFloat , className =? "gnubby_ssh_prompt" --> doFloat ] |