From bc211078fcce7cd96474ab7754f1b32b05515033 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 9 Sep 2017 19:40:13 -0700 Subject: [PATCH] [XMonad] Add rename workspace binding --- 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 8b5741b7..d4270c2f 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -30,7 +30,7 @@ import XMonad hiding ( (|||) ) import XMonad.Actions.CycleWS hiding (nextScreen) import XMonad.Actions.CycleWorkspaceByScreen import qualified XMonad.Actions.DynamicWorkspaceOrder as DWO -import XMonad.Actions.DynamicWorkspaces hiding (withWorkspace) +import XMonad.Actions.DynamicWorkspaces hiding (withWorkspace, renameWorkspace) import XMonad.Actions.Minimize import XMonad.Actions.Navigation2D import qualified XMonad.Actions.SwapWorkspaces as SW @@ -963,6 +963,7 @@ addKeys conf@XConfig { modMask = modm } = , ((hyper, xK_3), addWorkspacePrompt def) , ((modalt, xK_3), selectWorkspace def) , ((hyper .|. mod1Mask, xK_3), removeWorkspace) + , ((hyper .|. mod1Mask, xK_r), renameWorkspace def) -- Non-XMonad