FIX icon fonts

This commit is contained in:
Nathan Dwarshuis 2023-05-08 23:00:58 -04:00
parent 09909ac779
commit 770f1dc1dd
1 changed files with 2 additions and 2 deletions

View File

@ -432,7 +432,7 @@ btCmd fontify =
{ csAlias = btAlias
, csRunnable =
Run $
Bluetooth (fontify' "\x0f00af" "+", fontify' "\x0f00af" "-") colors
Bluetooth (fontify' "\x0f00b1" "+", fontify' "\x0f00af" "-") colors
}
where
fontify' i = fontify IconLarge i . T.append "BT"
@ -473,7 +473,7 @@ ckCmd :: Fontifier -> CmdSpec
ckCmd fontify =
CmdSpec
{ csAlias = ckAlias
, csRunnable = Run $ ClevoKeyboard $ fontify IconLarge "\x0f0313" "KB: "
, csRunnable = Run $ ClevoKeyboard $ fontify IconSmall "\xf11c" "KB: "
}
ssCmd :: Fontifier -> CmdSpec