xmonad-config/lib/Xmobar/Plugins/IntelBacklight.hs

24 lines
676 B
Haskell

{-# LANGUAGE LambdaCase #-}
module Xmobar.Plugins.IntelBacklight (IntelBacklight(..)) where
import Control.Concurrent
import Control.Monad
import Xmobar
import XMonad.Internal.DBus.IntelBacklight
newtype IntelBacklight = IntelBacklight String deriving (Read, Show)
instance Exec IntelBacklight where
alias (IntelBacklight _) = "intelbacklight"
start (IntelBacklight icon) cb = do
_ <- matchSignal $ cb . formatBrightness
cb . formatBrightness =<< callGetBrightness
forever (threadDelay 5000000)
where
formatBrightness = \case
Just b -> icon ++ show (b `div` 100) ++ "%"
Nothing -> "N/A"