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
}
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", "<status><volume>%"
, "--"
-- 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