diff options
Diffstat (limited to '.config/XMonad/xmonad.hs')
| -rw-r--r-- | .config/XMonad/xmonad.hs | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs index 5957e22..06dbd38 100644 --- a/.config/XMonad/xmonad.hs +++ b/.config/XMonad/xmonad.hs @@ -1,6 +1,7 @@ import XMonad import qualified XMonad.StackSet as W import XMonad.ManageHook +import System.Exit -- data import Data.Tree @@ -101,6 +102,8 @@ powerTS = [ Node (TS.TSNode "Confirm" "" (spawn "shutdown now")) [] ] , Node (TS.TSNode "Restart" "" (return())) [ Node (TS.TSNode "Confirm" "" (spawn "reboot")) [] ] + , Node (TS.TSNode "Logout" "" (return())) + [ Node (TS.TSNode "Confirm" "" (io exitSuccess)) [] ] ] myPowerTS a = TS.treeselectAction a powerTS @@ -204,7 +207,7 @@ main = do emptyBSP ||| tabbed shrinkText myTabTheme ||| emptyBSP ||| Grid) , startupHook = do -- spawnOnce "lxsession" - spawnOnce "sleep 2 && polybar mybar" + spawnOnce "polybar mybar" spawnOnce "picom" spawnOnce "flameshot" spawnOnce "dunst" @@ -216,7 +219,12 @@ main = do -- spawnOnce "" setWMName "LG3D" setDefaultCursor xC_left_ptr - , manageHook = namedScratchpadManageHook myScratchpads <+> manageDocks + , manageHook = namedScratchpadManageHook myScratchpads + <+> manageDocks <+> composeAll [ + className =? "discord" --> doShift ( myWorkspaces !! 9 ) + , className =? "vlc" --> doShift ( myWorkspaces !! 6 ) + ] + } `additionalMouseBindings` [ ((myModMask, 4), \w -> prevWS), ((myModMask, 5), \w -> nextWS) ] `additionalKeys` ([ @@ -230,6 +238,8 @@ main = do , ((myModMask .|. shiftMask, xK_minus), decScreenSpacing 1) -- view prev/next workspaces + , ((myModMask .|. shiftMask, xK_Tab), prevWS) + , ((myModMask, xK_Tab), nextWS) , ((altMask, xK_h), prevWS) , ((altMask, xK_l), nextWS) -- do the same without the evil alt key |