diff options
| author | Josh Rahm <rahm@google.com> | 2020-02-06 15:25:31 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2020-02-06 15:25:31 -0700 |
| commit | 8c6abcaebc16c8dd805a3a8f9cc57e35890c3bc5 (patch) | |
| tree | 06bf11d9bd386c4b0ca7f35793d71fa3b5955cac /src/Main.hs | |
| parent | 9169597a7dcef8046f415b77e0e6cbad696ff5a2 (diff) | |
| download | rde-8c6abcaebc16c8dd805a3a8f9cc57e35890c3bc5.tar.gz rde-8c6abcaebc16c8dd805a3a8f9cc57e35890c3bc5.tar.bz2 rde-8c6abcaebc16c8dd805a3a8f9cc57e35890c3bc5.zip | |
Multiple changes. Mostly added a prompt to quickly switch between windows by fuzzy-finding them
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index e3c1cc1..acde5a2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -33,19 +33,20 @@ main = do , normalBorderColor = "#000000" , layoutHook = spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True $ - InterceptLayout $ myLayout , startupHook = do spawn fp , manageHook = composeAll [ isFullscreen --> doFullFloat , className =? "Tilda" --> doFloat + , className =? "yakuake" --> doFloat , className =? "MPlayer" --> doFloat , className =? "mpv" --> doFloat , className =? "gnubby_ssh_prompt" --> doFloat ] , workspaces = map return (['0'..'9'] ++ ['a'..'z']) - , handleEventHook = fullscreenEventHook + , handleEventHook = fullscreenEventHook + , focusFollowsMouse = False } let toggleStructsKey XConfig {XMonad.modMask = modMask} = (modMask, xK_b) @@ -66,7 +67,8 @@ main = do , ppLayout = const "" , ppExtras = [showLayout] , ppOrder = \ss -> - let (icons, etc) = partition ("<icon"`isPrefixOf`) ss in icons ++ etc + let (icons, etc) = partition ("<icon"`isPrefixOf`) ss + in icons ++ etc } toggleStructsKey config { modMask = mod4Mask } |