From d1de1358d58a9b60fdb34057324ff1425fc1005e Mon Sep 17 00:00:00 2001
From: Fabian Kirchner <kirchner@posteo.de>
Date: Mon, 12 Aug 2024 15:13:00 +0200
Subject: feat: switch to upward battery icons

---
 app/Sensor.hs | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'app')

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)
-- 
cgit v1.2.3