Remove intermediate myConfig function

1 files changed, 14 insertions, 17 deletions

diff --git a/xmonad.hs b/xmonad.hs
index 9c38d7d..d70ae03 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -99,23 +99,20 @@ main = do
     -- overwrite the setWMName "LG3D" and some Java apps will not work.
     $ pagerHints
     $ withUrgencyHook myDzenUrgencyConfig
-    $ myConfig dzenStatusFile
-
-myConfig statusFile = defaultConfig
-        { modMask = modM
-        , terminal = term
-        , borderWidth = 1
-        , normalBorderColor  = "#545454"
-        , focusedBorderColor = "#A00000"
-        , logHook = myLogHook statusFile
-        , manageHook = myManageHook
-        , keys = \c -> mkKeymap c $ myKeys c
-        , mouseBindings = \c -> M.union (M.fromList $ myMouse c) $ mouseBindings defaultConfig c
-        , layoutHook = myLayout
-        , workspaces = myWorkspaces
-        , handleEventHook = myEventHook
-        , startupHook = myStartupHook
-        }
+    $ defaultConfig { modMask = modM
+                    , terminal = term
+                    , borderWidth = 1
+                    , normalBorderColor  = "#545454"
+                    , focusedBorderColor = "#A00000"
+                    , logHook = myLogHook dzenStatusFile
+                    , manageHook = myManageHook
+                    , keys = \c -> mkKeymap c $ myKeys c
+                    , mouseBindings = \c -> M.union (M.fromList $ myMouse c) $ mouseBindings defaultConfig c
+                    , layoutHook = myLayout
+                    , workspaces = myWorkspaces
+                    , handleEventHook = myEventHook
+                    , startupHook = myStartupHook
+                    }
 
 --}}}