diff options
Diffstat (limited to 'XMonad/Config')
| -rw-r--r-- | XMonad/Config/Desktop.hs | 3 | ||||
| -rw-r--r-- | XMonad/Config/Droundy.hs | 3 | ||||
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 11 |
3 files changed, 9 insertions, 8 deletions
diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs index e72e461..bb4ae74 100644 --- a/XMonad/Config/Desktop.hs +++ b/XMonad/Config/Desktop.hs @@ -170,9 +170,8 @@ desktopConfig = defaultConfig { logHook = ewmhDesktopsLogHook , layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig , manageHook = manageHook defaultConfig <+> manageDocks - , startupHook = setDefaultCursor xC_left_ptr , handleEventHook = ewmhDesktopsEventHook - , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } + , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } desktopKeys (XConfig {modMask = modm}) = M.fromList $ [ ((modm, xK_b), sendMessage ToggleStruts) ] diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs index b5af291..61e17c5 100644 --- a/XMonad/Config/Droundy.hs +++ b/XMonad/Config/Droundy.hs @@ -43,7 +43,7 @@ import XMonad.Actions.CycleWS ( moveTo, WSType( HiddenNonEmptyWS ), Direction1D( Prev, Next) ) import XMonad.Hooks.ManageDocks ( avoidStruts, manageDocks ) -import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsLogHook, +import XMonad.Hooks.EwmhDesktops ( ewmhDesktopsStartup, ewmhDesktopsLogHook, ewmhDesktopsEventHook ) myXPConfig :: XPConfig @@ -132,6 +132,7 @@ config = defaultConfig --mosaic 0.25 0.5 , manageHook = manageHook defaultConfig <+> manageDocks -- add panel-handling , logHook = ewmhDesktopsLogHook -- actually, no logging here, just other stuff + , startupHook = ewmhDesktopsStartup , terminal = "xterm" -- The preferred terminal program. , normalBorderColor = "#222222" -- Border color for unfocused windows. , focusedBorderColor = "#00ff00" -- Border color for focused windows. diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index 3e98172..4182c8e 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -34,14 +34,15 @@ sjanssenConfig = do , ((modm, button2), (\w -> focus w >> windows W.swapMaster)) , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ] , keys = \c -> mykeys sp c `M.union` keys defaultConfig c - , layoutHook = modifiers layouts - , logHook = ewmhDesktopsLogHook - , manageHook = composeAll [className =? x --> doShift w + , layoutHook = modifiers layouts + , logHook = ewmhDesktopsLogHook + , startupHook = ewmhDesktopsStartup + , manageHook = composeAll [className =? x --> doShift w | (x, w) <- [ ("Firefox", "web") , ("Ktorrent", "7") , ("Amarokapp", "7")]] - <+> manageHook defaultConfig <+> manageDocks <+> manageSpawn sp - <+> (isFullscreen --> doFullFloat) + <+> manageHook defaultConfig <+> manageDocks <+> manageSpawn sp + <+> (isFullscreen --> doFullFloat) } where tiled = HintedTile 1 0.03 0.5 TopLeft |