ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF make code shiny

This commit is contained in:
Nathan Dwarshuis 2022-07-06 19:10:28 -04:00
parent 2704021150
commit b4af103dd1
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bin/xmobar.hs
View File

@ -324,7 +324,7 @@ btCmd fontify = CmdSpec
$ Bluetooth (fontify' "\xf5b0" "+", fontify' "\xf5ae" "-") colors $ Bluetooth (fontify' "\xf5b0" "+", fontify' "\xf5ae" "-") colors
} }
where where
fontify' i a = fontify IconLarge i $ "BT" ++ a fontify' i = fontify IconLarge i . ("BT" ++)
alsaCmd :: Fontifier -> CmdSpec alsaCmd :: Fontifier -> CmdSpec
alsaCmd fontify = CmdSpec alsaCmd fontify = CmdSpec
@ -333,7 +333,6 @@ alsaCmd fontify = CmdSpec
$ Alsa "default" "Master" $ Alsa "default" "Master"
[ "-t", "<status><volume>%" [ "-t", "<status><volume>%"
, "--" , "--"
-- TODO just make this gray when muted
, "-O", fontify' "\xf028" "+" , "-O", fontify' "\xf028" "+"
, "-o", fontify' "\xf026" "-" ++ " " , "-o", fontify' "\xf026" "-" ++ " "
, "-c", T.fgColor , "-c", T.fgColor
@ -341,7 +340,7 @@ alsaCmd fontify = CmdSpec
] ]
} }
where where
fontify' i a = fontify IconSmall i $ "VOL" ++ a fontify' i = fontify IconSmall i . ("VOL" ++)
blCmd :: Fontifier -> CmdSpec blCmd :: Fontifier -> CmdSpec
blCmd fontify = CmdSpec blCmd fontify = CmdSpec