47 lines
1.5 KiB
Haskell
47 lines
1.5 KiB
Haskell
module Plugins.Monitors.Batt where
|
|
|
|
import Control.Monad
|
|
|
|
import Plugins.Monitors.Common
|
|
import Plugins.Monitors.Batt.Binding
|
|
|
|
battConfig :: IO MConfig
|
|
battConfig = mkMConfig
|
|
"Batt: <left>" -- default template
|
|
["left", "leftbar", "minleft", "status"] -- progress bar, percent left, minutes left, status
|
|
|
|
runBatt :: [String] -> Monitor String
|
|
runBatt _ = do
|
|
mpowerinfo <- io getApmPowerInfo
|
|
case mpowerinfo of
|
|
Nothing -> parseTemplate $ take 4 $ repeat "N/A"
|
|
Just powerinfo -> do
|
|
left <- renderLeft powerinfo
|
|
leftbar <- renderLeftBar powerinfo
|
|
minleft <- renderMinLeft powerinfo
|
|
status <- renderStatus powerinfo
|
|
parseTemplate ( left : leftbar : minleft : status : [] )
|
|
|
|
renderLeft :: ApmPowerInfo -> Monitor String
|
|
renderLeft powerinfo = case (apmBatteryState powerinfo) of
|
|
BatAbsent -> return []
|
|
BatUnknown -> return []
|
|
_ -> return $ (show $ apmBatteryPercent powerinfo) ++ "%"
|
|
|
|
renderLeftBar :: ApmPowerInfo -> Monitor String
|
|
renderLeftBar powerinfo = case (apmBatteryState powerinfo) of
|
|
BatAbsent -> render 0
|
|
BatUnknown -> render 0
|
|
_ -> render $ fromIntegral (apmBatteryPercent powerinfo)
|
|
where
|
|
render x = showPercentBar x (x / 100)
|
|
|
|
renderMinLeft :: ApmPowerInfo -> Monitor String
|
|
renderMinLeft powerinfo = case (apmAcState powerinfo) of
|
|
AcOnline -> return []
|
|
AcUnknown -> return []
|
|
_ -> return $ (show $ apmMinutesLeft powerinfo) ++ "min"
|
|
|
|
renderStatus :: ApmPowerInfo -> Monitor String
|
|
renderStatus powerinfo = return.show $ apmAcState powerinfo
|