[XMonad] Add rename workspace binding
This commit is contained in:
parent
cfd5d383ae
commit
bc211078fc
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user