twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Export types to reduce haddock warnings.

Browse Source
This commit is contained in:
Adam Vogt
2010-10-23 19:57:55 +00:00
parent 0226b8cb4f
commit 067ccb950e
65 changed files with 125 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Actions/WorkspaceNames.hs
View File

@@ -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