diff options
Diffstat (limited to '')
-rw-r--r-- | XMonad/Actions/WorkspaceNames.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/XMonad/Actions/WorkspaceNames.hs b/XMonad/Actions/WorkspaceNames.hs index c2dadd5..30d3d01 100644 --- a/XMonad/Actions/WorkspaceNames.hs +++ b/XMonad/Actions/WorkspaceNames.hs @@ -41,7 +41,8 @@ import qualified XMonad.Util.ExtensibleState as XS import XMonad.Actions.CycleWS (findWorkspace, WSType(..), Direction1D(..)) import qualified XMonad.Actions.SwapWorkspaces as Swap import XMonad.Hooks.DynamicLog (PP(..)) -import XMonad.Prompt (showXPrompt, mkXPrompt, XPrompt, XPConfig) +import XMonad.Prompt (mkXPrompt, XPConfig) +import XMonad.Prompt.Workspace (Wor(Wor)) import XMonad.Util.WorkspaceCompare (getSortByIndex) import qualified Data.Map as M @@ -106,10 +107,6 @@ setCurrentWorkspaceName name = do current <- gets (W.currentTag . windowset) setWorkspaceName current name -data Wor = Wor String -instance XPrompt Wor where - showXPrompt (Wor x) = x - -- | Prompt for a new name for the current workspace and set it. renameWorkspace :: XPConfig -> X () renameWorkspace conf = do |