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/xmonad.hs') 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