aboutsummaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
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 }