aboutsummaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
authorJosh Rahm <rahm@google.com>2020-02-06 15:25:31 -0700
committerJosh Rahm <rahm@google.com>2020-02-06 15:25:31 -0700
commit8c6abcaebc16c8dd805a3a8f9cc57e35890c3bc5 (patch)
tree06bf11d9bd386c4b0ca7f35793d71fa3b5955cac /src/Main.hs
parent9169597a7dcef8046f415b77e0e6cbad696ff5a2 (diff)
downloadrde-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.hs8
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 }