summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Core.hs30
1 files changed, 15 insertions, 15 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 160b2a0..3b97ed3 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -73,21 +73,21 @@ data XConf = XConf
-- todo, better name
data XConfig l = XConfig
- { normalBorderColor :: !String -- ^ Non focused windows border color. Default: \"#dddddd\"
- , focusedBorderColor :: !String -- ^ Focused windows border color. Default: \"#ff0000\"
- , terminal :: !String -- ^ The preferred terminal application. Default: \"xterm\"
- , layoutHook :: !(l Window) -- ^ The available layouts
- , manageHook :: !ManageHook -- ^ The action to run when a new window is opened
- , workspaces :: [String] -- ^ The list of workspaces' names
- , defaultGaps :: [(Int,Int,Int,Int)] -- ^ The list of gaps, per screen
- , numlockMask :: !KeyMask -- ^ The numlock modifier
- , modMask :: !KeyMask -- ^ the mod modifier
- , keys :: XConfig Layout -> M.Map (ButtonMask,KeySym) (X ())
- -- ^ The key binding: a map from key presses and actions
- , mouseBindings :: XConfig Layout -> M.Map (ButtonMask, Button) (Window -> X ())
- -- ^ The mouse bindings
- , borderWidth :: !Dimension -- ^ The border width
- , logHook :: X () -- ^ The action to perform when the windows set is changed
+ { normalBorderColor :: !String -- ^ Non focused windows border color. Default: \"#dddddd\"
+ , focusedBorderColor :: !String -- ^ Focused windows border color. Default: \"#ff0000\"
+ , terminal :: !String -- ^ The preferred terminal application. Default: \"xterm\"
+ , layoutHook :: !(l Window) -- ^ The available layouts
+ , manageHook :: !ManageHook -- ^ The action to run when a new window is opened
+ , workspaces :: ![String] -- ^ The list of workspaces' names
+ , defaultGaps :: ![(Int,Int,Int,Int)] -- ^ The list of gaps, per screen
+ , numlockMask :: !KeyMask -- ^ The numlock modifier
+ , modMask :: !KeyMask -- ^ the mod modifier
+ , keys :: !(XConfig Layout -> M.Map (ButtonMask,KeySym) (X ()))
+ -- ^ The key binding: a map from key presses and actions
+ , mouseBindings :: !(XConfig Layout -> M.Map (ButtonMask, Button) (Window -> X ()))
+ -- ^ The mouse bindings
+ , borderWidth :: !Dimension -- ^ The border width
+ , logHook :: !(X ()) -- ^ The action to perform when the windows set is changed
}