aboutsummaryrefslogtreecommitdiff
path: root/conf/xmonad
diff options
context:
space:
mode:
Diffstat (limited to 'conf/xmonad')
-rw-r--r--conf/xmonad/xmonad.hs13
1 files changed, 9 insertions, 4 deletions
diff --git a/conf/xmonad/xmonad.hs b/conf/xmonad/xmonad.hs
index 35b24c4..c4ff2e6 100644
--- a/conf/xmonad/xmonad.hs
+++ b/conf/xmonad/xmonad.hs
@@ -16,6 +16,7 @@ import XMonad.Actions.WindowBringer
import XMonad.Actions.GroupNavigation
import System.Exit
+import Data.Maybe
customTabTheme = (theme xmonadTheme)
{ fontName = "xft:Iosevka Medium-12"
@@ -78,10 +79,10 @@ main = xmonad $ ewmh
, ("M-S-a" , bringMenuConfig windowBringerDmenuConfig)
-- workspace management
, ("M-w p" , toggleWS' ["NSP"])
- , ("M-w j" , moveTo Next NonEmptyWS)
- , ("M-w k" , moveTo Prev NonEmptyWS)
- , ("M-S-w j" , shiftToNext >> nextWS)
- , ("M-S-w k" , shiftToPrev >> prevWS)
+ , ("M-w j" , moveTo Next nonEmptyWS)
+ , ("M-w k" , moveTo Prev nonEmptyWS)
+ , ("M-S-w j" , shiftTo Next nonEmptyWS >> moveTo Next nonEmptyWS)
+ , ("M-S-w k" , shiftTo Prev nonEmptyWS >> moveTo Prev nonEmptyWS)
-- scratchpads
, ("M-s t" , namedScratchpadAction scratchpads "terminal")
, ("M-s h" , namedScratchpadAction scratchpads "zeal")
@@ -92,3 +93,7 @@ main = xmonad $ ewmh
, ("M-c m" , spawn "amixer sset Master toggle") ]
`additionalKeys`
[ ((noModMask, xK_Menu) , namedScratchpadAction scratchpads "terminal") ]
+
+nonEmptyWS = WSIs $ return (\w -> nonNSP w && nonEmpty w)
+ where nonNSP (Workspace tag _ _) = tag /= "NSP"
+ nonEmpty = isJust . stack