diff --git a/src/QBar/Blocks/Battery.hs b/src/QBar/Blocks/Battery.hs index 530a158ee6addf2dc3e32c90e5bc320483c82026..7a380bc57ed17610be58e385159b0d488cd4a2ed 100644 --- a/src/QBar/Blocks/Battery.hs +++ b/src/QBar/Blocks/Battery.hs @@ -122,10 +122,10 @@ batteryBlockOutput isPlugged bs = (shortText.~shortText') . createBlock <$> full batteryImportance :: [BatteryState] -> Importance batteryImportance batteryStates - | percentage < 10 = percentage / 10 + 3 - | percentage < 35 = (percentage - 10) / 25 + 2 - | percentage < 75 = (percentage - 35) / 40 + 1 - | otherwise = (percentage - 75) / 25 + 0 + | percentage < 10 = 4 - percentage / 10 + | percentage < 35 = 3 - (percentage - 10) / 25 + | percentage < 75 = 2 - (percentage - 35) / 40 + | otherwise = 1 - (percentage - 75) / 25 where percentage :: Float percentage = batteryPercentage batteryStates