[XMonad] Add rename workspace binding

This commit is contained in:
Ivan Malison 2017-09-09 19:40:13 -07:00
parent cfd5d383ae
commit bc211078fc
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -30,7 +30,7 @@ import XMonad hiding ( (|||) )
import XMonad.Actions.CycleWS hiding (nextScreen) import XMonad.Actions.CycleWS hiding (nextScreen)
import XMonad.Actions.CycleWorkspaceByScreen import XMonad.Actions.CycleWorkspaceByScreen
import qualified XMonad.Actions.DynamicWorkspaceOrder as DWO 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.Minimize
import XMonad.Actions.Navigation2D import XMonad.Actions.Navigation2D
import qualified XMonad.Actions.SwapWorkspaces as SW import qualified XMonad.Actions.SwapWorkspaces as SW
@ -963,6 +963,7 @@ addKeys conf@XConfig { modMask = modm } =
, ((hyper, xK_3), addWorkspacePrompt def) , ((hyper, xK_3), addWorkspacePrompt def)
, ((modalt, xK_3), selectWorkspace def) , ((modalt, xK_3), selectWorkspace def)
, ((hyper .|. mod1Mask, xK_3), removeWorkspace) , ((hyper .|. mod1Mask, xK_3), removeWorkspace)
, ((hyper .|. mod1Mask, xK_r), renameWorkspace def)
-- Non-XMonad -- Non-XMonad