From 49664650f6a6c65f49cb1f75f282aa757a08aa9d Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 23 Dec 2016 19:07:12 -0800 Subject: [PATCH] [XMonad] Create NSP on mod x if it doesn't exist --- dotfiles/xmonad/xmonad.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 6b9d7516..16245a5f 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -22,6 +22,7 @@ import Text.Printf import XMonad hiding ( (|||) ) import XMonad.Actions.CycleWS hiding (nextScreen) import qualified XMonad.Actions.DynamicWorkspaceOrder as DWO +import XMonad.Actions.DynamicWorkspaces hiding (withWorkspace) import XMonad.Actions.Minimize import XMonad.Actions.WindowBringer import XMonad.Actions.WindowGo @@ -612,7 +613,7 @@ addKeys conf@XConfig {modMask = modm} = , ((modm, xK_space), deactivateFullOr $ sendMessage NextLayout) , ((modm, xK_z), shiftToNextScreen) , ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen) - , ((modm, xK_x), windows $ W.shift "NSP") + , ((modm, xK_x), addHiddenWorkspace "NSP" >> (windows $ W.shift "NSP")) , ((modm .|. shiftMask, xK_h), shiftToEmptyAndView) -- These need to be rebound to support boringWindows , ((modm, xK_j), focusDown)