From eda7f71b7e65adf47389bc9593ee73ee7be4fe84 Mon Sep 17 00:00:00 2001 From: Michal Minar Date: Sun, 2 Aug 2015 10:43:03 +0200 Subject: Fix focus issues for tabbed windows Use TackFloating module with full or tabbed layouts. Signed-off-by: Michal Minar --- xminad.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'xminad.hs') diff --git a/xminad.hs b/xminad.hs index 9e62cb9..f117093 100644 --- a/xminad.hs +++ b/xminad.hs @@ -1,16 +1,14 @@ {-# LANGUAGE NoMonomorphismRestriction #-} {-# OPTIONS -fno-warn-missing-signatures #-} -import qualified Data.Map as M import qualified DBus as D import qualified DBus.Client as D import XMonad -import qualified XMonad.Actions.FlexibleResize as FlexR +import XMonad.Actions.UpdateFocus import XMonad.Config.Desktop import XMonad.Hooks.SetWMName import XMonad.Hooks.UrgencyHook -import qualified XMonad.StackSet as W -- local modules ************************************************************** import qualified XMonad.Local.Config as Local @@ -19,6 +17,7 @@ import qualified XMonad.Local.LogHook as Local import qualified XMonad.Local.Keys as Local import qualified XMonad.Local.Layout as Local import qualified XMonad.Local.ManageHook as Local +import qualified XMonad.Local.Mouse as Local import qualified XMonad.Local.TopicSpace as Local import qualified XMonad.Local.XConfig as Local @@ -35,13 +34,12 @@ myConfig dbus = Local.xConfig , handleEventHook = Local.eventHook , manageHook = Local.manageHook , startupHook = myStartupHook - , mouseBindings = mouseBindings + , mouseBindings = Local.mouseBindings } where - mc = myConfig dbus myStartupHook = do startupHook Local.xConfig - -- adjustEventInput + adjustEventInput setWMName "LG3D" getWellKnownName :: D.Client -> IO () -- cgit