From 34694958c83c6cb1b363153ad6b09551fa0f9ee2 Mon Sep 17 00:00:00 2001
From: Vidhu Kant Sharma <vidhukant@protonmail.ch>
Date: Sat, 11 Dec 2021 16:54:58 +0530
Subject: configured discord to start on WS 10 and added super-tab key to cycle
workspaces
---
.config/XMonad/xmonad.hs | 14 ++++++++++++--
1 file 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
--
cgit v1.2.3