24 lines
676 B
Haskell
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"
|