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