diff --git a/src/TreeActions.hs b/src/TreeActions.hs index c8b2612..afe5b54 100644 --- a/src/TreeActions.hs +++ b/src/TreeActions.hs @@ -48,9 +48,9 @@ weissTreeActions = $ scratchpadActions <> [ Node (TSNode "System" "System operations" (return ())) - [ Node (TSNode "Shutdown" "Poweroff the system" (spawn " sudo shutdown now")) [] + [ Node (TSNode "Suspend" "Suspend the system" (spawn "sudo systemctl suspend")) [] , Node (TSNode "Reboot" "Reboot the system" (spawn "sudo reboot")) [] - , Node (TSNode "Suspend" "Suspend the system" (spawn "sudo systemctl suspend")) [] + , Node (TSNode "Shutdown" "Poweroff the system" (spawn " sudo shutdown now")) [] ] ] where diff --git a/src/WeissXMonad.hs b/src/WeissXMonad.hs index 225b10a..abd9a35 100644 --- a/src/WeissXMonad.hs +++ b/src/WeissXMonad.hs @@ -21,6 +21,7 @@ import XMonad.Actions.EasyMotion (EasyMotionConfig (..), selectWindow) import XMonad.Actions.GroupNavigation (historyHook) import XMonad.Actions.MouseResize import XMonad.Actions.ShowText (flashText, handleTimerEvent) +import XMonad.Actions.UpdatePointer (updatePointer) import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicProperty import XMonad.Hooks.EwmhDesktops @@ -136,7 +137,7 @@ myKeys = -- , ("C-" , myFocusDown) -- , ("M-4" , moveFloat $ namedScratchpadAction myScratchPads "tmux") ] - <> workspaceKeys + <> workspaceKeys -- ++ [ ("M-4 " ++ key, fun) -- | (key, fun) <- -- [ ("v", spawnHereNamedScratchpadAction myScratchPads "pavu") @@ -200,7 +201,7 @@ myConfig = , terminal = myTerminal , manageHook = myManageHook , workspaces = myWorkspaces - , logHook = historyHook + , logHook = historyHook >> updatePointer (0.95, 0.5) (0, 0) , borderWidth = myBorderWidth , layoutHook = myLayout , normalBorderColor = myNormColor