From ca84fefdc3d74be165bca3ad09e6e7552ff450a4 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Mon, 14 Sep 2015 19:39:55 +0200 Subject: Remove intermediate myConfig function --- xmonad.hs | 31 ++++++++++++++----------------- 1 file 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 + } --}}} -- cgit v1.2.3