aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gui/conf/xmonad.hs7
1 files changed, 6 insertions, 1 deletions
diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index ae8613c..e85b121 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -6,6 +6,7 @@ import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.InsertPosition
+import XMonad.Hooks.SetWMName
import XMonad.Layout.Tabbed
import XMonad.Layout.MultiColumns
@@ -279,6 +280,10 @@ customLogHook = do
updatePointer (0.5, 0.5) (0, 0)
customizeBorderWhen (isFloat <&&> isNotFullscreen) "#aadb0f" 6
+customStartupHook host = do
+ checkKeymap def (customKeybindings host)
+ setWMName "LG3D"
+
main = do
host <- fmap nodeName getSystemID
xmonad $ ewmh
@@ -290,7 +295,7 @@ main = do
, focusedBorderColor = "#909636"
, keys = \c -> mkKeymap c (customKeybindings host)
, mouseBindings = customMousebindings
- , startupHook = return () >> checkKeymap def (customKeybindings host)
+ , startupHook = customStartupHook host
, handleEventHook = customEventHook
, manageHook = customManageHook host
, logHook = customLogHook