feat: switch to upward battery icons

1 files changed, 10 insertions, 5 deletions

diff --git a/app/Sensor.hs b/app/Sensor.hs
index 8bfed22..f913826 100644
--- a/app/Sensor.hs
+++ b/app/Sensor.hs
@@ -211,12 +211,17 @@ bat :: (S.MonadSensor m) => S.Sensor m () P.Doc
 bat =
   S.sensor BatStat >>= \value ->
     if
-      | value >= 0.8 -> pure (P.pretty "\xf240 ")
-      | value >= 0.6 -> pure (P.pretty "\xf241 ")
-      | value >= 0.4 -> pure (P.pretty "\xf242 ")
-      | value >= 0.2 -> pure (P.pretty "\xf243 ")
+      | value >= 0.9 -> pure (P.pretty "\xf0082")
+      | value >= 0.8 -> pure (P.pretty "\xf0081")
+      | value >= 0.7 -> pure (P.pretty "\xf0080")
+      | value >= 0.6 -> pure (P.pretty "\xf008f")
+      | value >= 0.5 -> pure (P.pretty "\xf008e")
+      | value >= 0.4 -> pure (P.pretty "\xf007d")
+      | value >= 0.3 -> pure (P.pretty "\xf007c")
+      | value >= 0.2 -> pure (P.pretty "\xf007b")
+      | value >= 0.1 -> pure (P.pretty "\xf007a")
       | otherwise ->
-          (\b -> (if b then id else (P.color P.Red)) (P.pretty "\xf244 "))
+          (\b -> if b then P.pretty "\xf008e" else (P.color P.Red) (P.pretty "\xf0083"))
             <$> blink
 
 data Blink = Blink deriving (Show)