From 0c08e7219a34d0efeb8a209aee544881985c7f6d Mon Sep 17 00:00:00 2001
From: Kleidi Bujari <mail@4kb.net>
Date: Mon, 17 Aug 2026 14:06:19 -0700
Subject: [dfetch] special rendering for batteries

---
 packages/code/dfetch/app/Dfetch/Battery.hs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'packages/code/dfetch/app/Dfetch')

diff --git a/packages/code/dfetch/app/Dfetch/Battery.hs b/packages/code/dfetch/app/Dfetch/Battery.hs
index 0315882..703e3df 100644
--- a/packages/code/dfetch/app/Dfetch/Battery.hs
+++ b/packages/code/dfetch/app/Dfetch/Battery.hs
@@ -1,9 +1,11 @@
 module Dfetch.Battery
   ( Battery(..)
   , allBatteries
+  , renderBat
   ) where
 
 import           Data.List        (isPrefixOf)
+import           GHC.Float        (double2Int)
 import           System.Directory (listDirectory)
 import           System.FilePath  ((</>))
 
@@ -32,3 +34,21 @@ findBatteries = filter ("BAT" `isPrefixOf`) <$> listDirectory basePath
 -- | Fetch all batteries from the running system
 allBatteries :: IO [Battery]
 allBatteries = findBatteries >>= mapM getCapacity
+
+renderBat :: [Battery] -> String
+renderBat bs = unlines $
+  [ "Battery" , "======="] <> map render bs
+  where
+    totalEnergy = sum . map (energyFull) $ bs
+    calcEnergy =
+      show . double2Int . (* 100) . (/ totalEnergy) . energyFull
+
+    render b = mconcat $
+      [ "\t"
+      , name b
+      , ": "
+      , show (capacity b)
+      , "%,\t"
+      , calcEnergy b
+      , "% of total energy"
+      ]
-- 
cgit v1.3.1