29 lines
866 B
Haskell
29 lines
866 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
-- 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 Data.Internal.DBus
|
|
import RIO
|
|
import qualified RIO.Text as T
|
|
import Xmobar.Plugins.Common
|
|
|
|
startBacklight
|
|
:: (MonadUnliftIO m, RealFrac a)
|
|
=> Utf8Builder
|
|
-> ((Maybe a -> RIO SimpleApp ()) -> SesClient -> RIO SimpleApp ())
|
|
-> (SesClient -> RIO SimpleApp (Maybe a))
|
|
-> T.Text
|
|
-> Callback
|
|
-> m ()
|
|
startBacklight name matchSignal callGetBrightness icon cb = do
|
|
withDBusClientConnection cb name $ \c -> do
|
|
matchSignal dpy c
|
|
dpy =<< callGetBrightness c
|
|
where
|
|
formatBrightness b = return $ T.concat [icon, T.pack $ show (round b :: Integer), "%"]
|
|
dpy = displayMaybe cb formatBrightness
|