diff options
| author |  Fabian Kirchner <kirchner@posteo.de> | 2024-08-12 15:13:00 +0200 |
|---|---|---|
| committer | Fabian Kirchner <kirchner@posteo.de> | 2024-08-12 15:13:00 +0200 |
| commit | d1de1358d58a9b60fdb34057324ff1425fc1005e (patch) | |
| tree | 9360dbbc91541237a5f1bb96806565eda7e6a8a2 /app/Sensor.hs | |
| parent | 7147260bee9b270209b596e3aa96a669b1092139 (diff) | |
feat: switch to upward battery icons
Diffstat (limited to 'app/Sensor.hs')
| -rw-r--r-- | app/Sensor.hs | 15 |
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) |