From d1de1358d58a9b60fdb34057324ff1425fc1005e Mon Sep 17 00:00:00 2001 From: Fabian Kirchner 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/Sensor.hs') 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