diff options
Diffstat (limited to 'gui/conf/xmonad.hs')
| -rw-r--r-- | gui/conf/xmonad.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |