From d44a8b2312e70ff8d0d6e9c7b39869337e049330 Mon Sep 17 00:00:00 2001 From: James Bunton Date: Thu, 9 Jun 2016 21:09:34 +1000 Subject: [PATCH] xmonad: use mapM to avoid duplicate xmobar lines --- .xmonad/xmonad.hs | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 755447f..0f93fae 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -106,12 +106,11 @@ myPP = xmobarPP ppTitle = xmobarColor "#10A010" "" } -myLogHook h1 h2 = - dynamicLogWithPP myPP { ppOutput = hPutStrLn h1 } >> - dynamicLogWithPP myPP { ppOutput = hPutStrLn h2 } >> +myLogHook hooks = do + mapM (\h -> dynamicLogWithPP myPP { ppOutput = hPutStrLn h }) hooks takeTopFocus -- fix for Java Swing apps -myStartupHook = +myStartupHook = do setWMName "LG3D" -- fix for Java Swing apps @@ -193,13 +192,12 @@ myLayout = main = do xmonadDir <- getXMonadDir - xmobar <- spawnPipe ("xmobar " ++ xmonadDir ++ "/xmobar.hs") - xmobar2 <- spawnPipe ("xmobar -x 1 " ++ xmonadDir ++ "/xmobar.hs") + xmobars <- mapM (\x -> spawnPipe ("xmobar -x " ++ (show x) ++ " " ++ xmonadDir ++ "/xmobar.hs")) [1, 2] xmonad $ ewmh defaultConfig { manageHook = myManageHook, layoutHook = myLayout, workspaces = myWorkspaces, - logHook = myLogHook xmobar xmobar2, + logHook = myLogHook xmobars, startupHook = myStartupHook, keys = myKeys, handleEventHook = handleEventHook defaultConfig <+> fullscreenEventHook, -- 2.39.2