From 72eeadc616481c9b2e1b250400cfde363d1fa916 Mon Sep 17 00:00:00 2001 From: Baitinq Date: Wed, 6 Jul 2022 12:09:37 +0200 Subject: fmt --- dotfiles/xmonad.hs | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/dotfiles/xmonad.hs b/dotfiles/xmonad.hs index 1fe7903..bf32d9f 100644 --- a/dotfiles/xmonad.hs +++ b/dotfiles/xmonad.hs @@ -1,6 +1,3 @@ --- xmonad config used by Malcolm MD --- https://github.com/randomthought/xmonad-config - import System.IO import System.Exit @@ -194,15 +191,13 @@ getNumberOfWindowsInWorkpace = withWindowSet (pure . length . W.index) myStatusBar = statusBarProp "xmobar" (do numWindows <- getNumberOfWindowsInWorkpace return $ xmobarPP { - ppCurrent = (\s -> - if numWindows > 0 - then ((xmobarBorder "Top" "#bbbbbb" 4 . xmobarColor "#bbbbbb" "#005577") (" " ++ s ++ " ")) - else (xmobarColor "#bbbbbb" "#005577" (" " ++ s ++ " ")) - ) + ppCurrent = if numWindows > 0 + then xmobarBorder "Top" "#bbbbbb" 4 . xmobarColor "#bbbbbb" "#005577" . wrap " " " " + else xmobarColor "#bbbbbb" "#005577" . wrap " " " " , ppTitle = id , ppSep = " | " , ppLayout = (\_ -> "") - , ppHidden = (\s -> createDwmBox "#bbbbbb" (" " ++ s ++ " ")) --probs better way to do this + , ppHidden = createDwmBox "#bbbbbb" . wrap " " " " , ppHiddenNoWindows = wrap " " " " } ) -- cgit 1.4.1