26 lines
910 B
Haskell
26 lines
910 B
Haskell
|
--------------------------------------------------------------------------------
|
||
|
|
-- | Common backlight plugin bits
|
||
|
|
--
|
||
|
|
-- Use the custom DBus interface exported by the XMonad process so I can react
|
||
|
|
-- to signals spawned by commands
|
||
|
|
|
||
|
|
module Xmobar.Plugins.BacklightCommon (startBacklight) where
|
||
|
|
|
||
|
|
import Control.Concurrent
|
||
|
|
import Control.Monad
|
||
|
|
|
||
|
|
import DBus.Client
|
||
|
|
|
||
|
|
import XMonad.Internal.DBus.Control
|
||
|
|
|
||
|
|
startBacklight :: RealFrac a => ((Maybe a -> IO ()) -> Client -> IO ())
|
||
|
|
-> (Client -> IO (Maybe a)) -> String -> (String -> IO ()) -> IO ()
|
||
|
|
startBacklight matchSignal callGetBrightness icon cb = do
|
||
|
|
withDBusClient_ False $ \c -> do
|
||
|
|
matchSignal (cb . formatBrightness) c
|
||
|
|
cb . formatBrightness =<< callGetBrightness c
|
||
|
|
forever (threadDelay 5000000)
|
||
|
|
where
|
||
|
|
formatBrightness = maybe "N/A" $
|
||
|
|
\b -> icon ++ show (round b :: Integer) ++ "%"
|