From b4af103dd13c65c94ef3d8af5b6ce5f4d4c54342 Mon Sep 17 00:00:00 2001 From: ndwarshuis Date: Wed, 6 Jul 2022 19:10:28 -0400 Subject: [PATCH] REF make code shiny --- bin/xmobar.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/bin/xmobar.hs b/bin/xmobar.hs index 1370621..b65f85c 100644 --- a/bin/xmobar.hs +++ b/bin/xmobar.hs @@ -324,7 +324,7 @@ btCmd fontify = CmdSpec $ Bluetooth (fontify' "\xf5b0" "+", fontify' "\xf5ae" "-") colors } where - fontify' i a = fontify IconLarge i $ "BT" ++ a + fontify' i = fontify IconLarge i . ("BT" ++) alsaCmd :: Fontifier -> CmdSpec alsaCmd fontify = CmdSpec @@ -333,7 +333,6 @@ alsaCmd fontify = CmdSpec $ Alsa "default" "Master" [ "-t", "%" , "--" - -- TODO just make this gray when muted , "-O", fontify' "\xf028" "+" , "-o", fontify' "\xf026" "-" ++ " " , "-c", T.fgColor @@ -341,7 +340,7 @@ alsaCmd fontify = CmdSpec ] } where - fontify' i a = fontify IconSmall i $ "VOL" ++ a + fontify' i = fontify IconSmall i . ("VOL" ++) blCmd :: Fontifier -> CmdSpec blCmd fontify = CmdSpec