From 1b3327dc7cd7f87aa8dee335889fde734a8ac48b Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sat, 23 Oct 2010 21:57:55 +0200 Subject: Export types to reduce haddock warnings. Ignore-this: 1cac9202784711ce0fc902d14543bab0 darcs-hash:20101023195755-1499c-57c41357d20cbf0d57522ce99bdbfff7b686ed52.gz --- XMonad/Actions/DynamicWorkspaceGroups.hs | 4 +++- XMonad/Actions/DynamicWorkspaces.hs | 9 ++------- XMonad/Actions/FloatKeys.hs | 4 +++- XMonad/Actions/Search.hs | 5 ++++- XMonad/Actions/TagWindows.hs | 3 ++- XMonad/Actions/WindowNavigation.hs | 2 +- XMonad/Actions/WorkspaceCursors.hs | 5 ++++- XMonad/Actions/WorkspaceNames.hs | 7 ++----- 8 files changed, 21 insertions(+), 18 deletions(-) (limited to 'XMonad/Actions') diff --git a/XMonad/Actions/DynamicWorkspaceGroups.hs b/XMonad/Actions/DynamicWorkspaceGroups.hs index 46b8e1f..4bd0679 100644 --- a/XMonad/Actions/DynamicWorkspaceGroups.hs +++ b/XMonad/Actions/DynamicWorkspaceGroups.hs @@ -31,6 +31,8 @@ module XMonad.Actions.DynamicWorkspaceGroups , promptWSGroupView , promptWSGroupAdd , promptWSGroupForget + + , WSGPrompt ) where import Data.List (find) @@ -134,4 +136,4 @@ promptWSGroupAdd xp s = promptWSGroupForget :: XPConfig -> String -> X () promptWSGroupForget xp s = do gs <- fmap (M.keys . unWSG) XS.get - mkXPrompt (WSGPrompt s) xp (mkComplFunFromList' gs) forgetWSGroup \ No newline at end of file + mkXPrompt (WSGPrompt s) xp (mkComplFunFromList' gs) forgetWSGroup diff --git a/XMonad/Actions/DynamicWorkspaces.hs b/XMonad/Actions/DynamicWorkspaces.hs index 4b8156b..893dbf7 100644 --- a/XMonad/Actions/DynamicWorkspaces.hs +++ b/XMonad/Actions/DynamicWorkspaces.hs @@ -28,8 +28,8 @@ module XMonad.Actions.DynamicWorkspaces ( import XMonad hiding (workspaces) import XMonad.StackSet hiding (filter, modify, delete) -import XMonad.Prompt.Workspace -import XMonad.Prompt ( XPConfig, mkXPrompt, XPrompt(..) ) +import XMonad.Prompt.Workspace ( Wor(Wor), workspacePrompt ) +import XMonad.Prompt ( XPConfig, mkXPrompt ) import XMonad.Util.WorkspaceCompare ( getSortByIndex ) import Data.List (find) import Data.Maybe (isNothing) @@ -61,11 +61,6 @@ import Control.Monad (when) -- "XMonad.Actions.CopyWindow", 'windows', 'shift', and 'defaultXPConfig'. -data Wor = Wor String - -instance XPrompt Wor where - showXPrompt (Wor x) = x - mkCompl :: [String] -> String -> IO [String] mkCompl l s = return $ filter (\x -> take (length s) x == s) l diff --git a/XMonad/Actions/FloatKeys.hs b/XMonad/Actions/FloatKeys.hs index 12cbb41..cad70a0 100644 --- a/XMonad/Actions/FloatKeys.hs +++ b/XMonad/Actions/FloatKeys.hs @@ -17,7 +17,9 @@ module XMonad.Actions.FloatKeys ( keysMoveWindow, keysMoveWindowTo, keysResizeWindow, - keysAbsResizeWindow) where + keysAbsResizeWindow, + P, G, + ) where import XMonad diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs index 535edf3..cb15898 100644 --- a/XMonad/Actions/Search.hs +++ b/XMonad/Actions/Search.hs @@ -51,9 +51,12 @@ module XMonad.Actions.Search ( -- * Usage wikipedia, wiktionary, youtube, - multi + multi, -- * Use case: searching with a submap -- $tip + + -- * Types + Browser, Site, Query, Name, Search ) where import Codec.Binary.UTF8.String (encode) diff --git a/XMonad/Actions/TagWindows.hs b/XMonad/Actions/TagWindows.hs index a300f88..10331fe 100644 --- a/XMonad/Actions/TagWindows.hs +++ b/XMonad/Actions/TagWindows.hs @@ -22,7 +22,8 @@ module XMonad.Actions.TagWindows ( focusDownTagged, focusDownTaggedGlobal, shiftHere, shiftToScreen, tagPrompt, - tagDelPrompt + tagDelPrompt, + TagPrompt, ) where import Prelude hiding (catch) diff --git a/XMonad/Actions/WindowNavigation.hs b/XMonad/Actions/WindowNavigation.hs index c8b4deb..c607dd2 100644 --- a/XMonad/Actions/WindowNavigation.hs +++ b/XMonad/Actions/WindowNavigation.hs @@ -36,7 +36,7 @@ module XMonad.Actions.WindowNavigation ( withWindowNavigationKeys, WNAction(..), go, swap, - Direction2D(..) + Direction2D(..), WNState, ) where import XMonad diff --git a/XMonad/Actions/WorkspaceCursors.hs b/XMonad/Actions/WorkspaceCursors.hs index 0e229b0..c33d998 100644 --- a/XMonad/Actions/WorkspaceCursors.hs +++ b/XMonad/Actions/WorkspaceCursors.hs @@ -32,10 +32,13 @@ module XMonad.Actions.WorkspaceCursors -- * Functions to pass to 'modifyLayer' ,focusNth' - ,noWrapUp,noWrapDown + ,noWrapUp,noWrapDown, -- * Todo -- $todo + + -- * Types + Cursors, ) where import qualified XMonad.StackSet as W 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 -- cgit v1.2.3