diff options
Diffstat (limited to 'src')
| -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 ] |