34 lines
907 B
Haskell
34 lines
907 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Screensaver plugin
|
|
--
|
|
-- Use the custom DBus interface exported by the XMonad process so I can react
|
|
-- to signals spawned by commands
|
|
|
|
module Xmobar.Plugins.Screensaver
|
|
( Screensaver (..)
|
|
, ssAlias
|
|
)
|
|
where
|
|
|
|
import Data.Internal.DBus
|
|
import qualified RIO.Text as T
|
|
import XMonad.Internal.DBus.Screensaver
|
|
import Xmobar
|
|
import Xmobar.Plugins.Common
|
|
|
|
newtype Screensaver = Screensaver (T.Text, Colors) deriving (Read, Show)
|
|
|
|
ssAlias :: T.Text
|
|
ssAlias = "screensaver"
|
|
|
|
instance Exec Screensaver where
|
|
alias (Screensaver _) = T.unpack ssAlias
|
|
start (Screensaver (text, colors)) cb =
|
|
withDBusClientConnection cb "screensaver" $ \cl -> withDIO cl $ do
|
|
matchSignal dpy
|
|
dpy =<< callQuery
|
|
where
|
|
dpy = displayMaybe cb $ return . (\s -> colorText colors s text)
|