aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Config')
-rw-r--r--XMonad/Config/Desktop.hs3
-rw-r--r--XMonad/Config/Droundy.hs3
-rw-r--r--XMonad/Config/Sjanssen.hs11
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