aboutsummaryrefslogtreecommitdiff
path: root/conf/xmonad
diff options
context:
space:
mode:
authorAdrian Kummerlaender2018-04-29 13:53:59 +0200
committerAdrian Kummerlaender2018-04-29 13:53:59 +0200
commite3e23bd6d8778f0f6a79ff6521456752f45a3bbd (patch)
treeaec993dff372c8ff63ca3564ce94c52507fc0291 /conf/xmonad
parent48f9b6c38cf53de4f86c2838c95355430e817c25 (diff)
downloadnixos_home-e3e23bd6d8778f0f6a79ff6521456752f45a3bbd.tar
nixos_home-e3e23bd6d8778f0f6a79ff6521456752f45a3bbd.tar.gz
nixos_home-e3e23bd6d8778f0f6a79ff6521456752f45a3bbd.tar.bz2
nixos_home-e3e23bd6d8778f0f6a79ff6521456752f45a3bbd.tar.lz
nixos_home-e3e23bd6d8778f0f6a79ff6521456752f45a3bbd.tar.xz
nixos_home-e3e23bd6d8778f0f6a79ff6521456752f45a3bbd.tar.zst
nixos_home-e3e23bd6d8778f0f6a79ff6521456752f45a3bbd.zip
Skip scratchpad workspace when cycling in XMonad
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