From 4c221de75d4ef123808d77057081f029490a628f Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Sat, 15 Sep 2018 14:58:03 +0200
Subject: Add basic multihead setup for docked asterix

---
 gui/conf/xmonad.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'gui/conf')

diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index 84a2485..bcdd98c 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -27,6 +27,7 @@ import XMonad.Actions.CycleWS
 import XMonad.Actions.WindowBringer
 import XMonad.Actions.GroupNavigation
 import XMonad.Actions.FloatKeys
+import XMonad.Actions.UpdatePointer
 
 import Data.Maybe
 import Control.Monad (when)
@@ -136,7 +137,7 @@ commonKeybindings host =
   , ("M-m"           , namedScratchpadAction (scratchpads host) "messaging") ] ++
 -- workspace selection
   [ (p ++ [k]        , windows $ f i) | (i, k) <- zip Main.workspaces ['1' .. '9']
-                                      , (p, f) <- [ ("M-"   , S.greedyView)
+                                      , (p, f) <- [ ("M-"   , S.view)
                                                   , ("M-S-" , S.shift) ] ] ++
   [ ("M-s p"         , toggleWS' ["NSP"])
 -- workspace movement
@@ -188,6 +189,7 @@ customManageHook host = composeOne
 
 customLogHook = do
   historyHook
+  updatePointer (0.5, 0.5) (0, 0)
   customizeBorderWhen (isFloat <&&> isNotFullscreen) "#aadb0f" 6
 
 main = do
-- 
cgit v1.2.3