summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--xmonad.hs40
1 files changed, 20 insertions, 20 deletions
diff --git a/xmonad.hs b/xmonad.hs
index 7bc3214..eaf987f 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -108,20 +108,20 @@ main = do
-- end of your custom hooks (esp. the startup hook) and this would
-- overwrite the setWMName "LG3D" and some Java apps will not work.
$ withUrgencyHook myDzenUrgencyConfig
- $ defaultConfig { modMask = modM hostname
- , terminal = term
- , borderWidth = 1
- , normalBorderColor = "#545454"
- , focusedBorderColor = "#A00000"
- , logHook = myLogHook dzenStatusFile
- , manageHook = myManageHook
- , keys = \c -> mkKeymap c $ myKeys c hostname
- , mouseBindings = \c -> M.union (M.fromList $ myMouse (modM hostname) c) $ mouseBindings defaultConfig c
- , layoutHook = myLayout
- , workspaces = topics
- , handleEventHook = myEventHook
- , startupHook = myStartupHook
- }
+ $ def { modMask = modM hostname
+ , terminal = term
+ , borderWidth = 1
+ , normalBorderColor = "#545454"
+ , focusedBorderColor = "#A00000"
+ , logHook = myLogHook dzenStatusFile
+ , manageHook = myManageHook
+ , keys = \c -> mkKeymap c $ myKeys c hostname
+ , mouseBindings = \c -> M.union (M.fromList $ myMouse (modM hostname) c) $ mouseBindings def c
+ , layoutHook = myLayout
+ , workspaces = topics
+ , handleEventHook = myEventHook
+ , startupHook = myStartupHook
+ }
--}}}
@@ -224,7 +224,7 @@ notNspHiddenWS = do notNsp <- notNspWS
--{{{ Themes
-myPP statusFile = namedScratchpadFilterOutWorkspacePP $ defaultPP
+myPP statusFile = namedScratchpadFilterOutWorkspacePP $ def
{ ppCurrent = wrap "^fg(#FF0000) " " "
, ppVisible = wrap "^fg(#0000FF) " " "
, ppHiddenNoWindows = \_ -> ""
@@ -258,7 +258,7 @@ myPP statusFile = namedScratchpadFilterOutWorkspacePP $ defaultPP
| otherwise = prefix:l
alexTheme :: Theme
-alexTheme = defaultTheme
+alexTheme = def
{ inactiveBorderColor = "#545454"
, activeBorderColor = "#6E0000"
, activeColor = "#6E0000"
@@ -270,13 +270,13 @@ alexTheme = defaultTheme
}
alexXPConfig :: XPConfig
-alexXPConfig = P.defaultXPConfig
+alexXPConfig = def
{ P.font = font
, P.height = 20
}
historyGridConfig :: GSConfig String
-historyGridConfig = defaultGSConfig
+historyGridConfig = def
{ gs_cellheight = 50
, gs_cellwidth = 300
, gs_navigate = navNSearch
@@ -293,14 +293,14 @@ topicsColorizer topic selected
empty = null $ W.integrate' $ W.stack topic
topicsGridConfig :: GSConfig (W.Workspace tag layout stack)
-topicsGridConfig = defaultGSConfig
+topicsGridConfig = def
{ gs_navigate = navNSearch
, gs_font = font
, gs_colorizer = topicsColorizer
}
confirmConfig :: GSConfig Bool
-confirmConfig = defaultGSConfig
+confirmConfig = def
{ gs_cellheight = 150
, gs_cellwidth = 300
, gs_cellpadding = 50