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

{-# LANGUAGE OverloadedStrings #-}

--------------------------------------------------------------------------------
-- | Clevo Keyboard plugin
--
-- Use the custom DBus interface exported by the XMonad process so I can react
-- to signals spawned by commands

module Xmobar.Plugins.ClevoKeyboard
  ( ClevoKeyboard(..)
  , ckAlias
  ) where

import qualified RIO.Text                                      as T

import           Xmobar

import           Xmobar.Plugins.BacklightCommon

import           XMonad.Internal.DBus.Brightness.ClevoKeyboard

newtype ClevoKeyboard = ClevoKeyboard T.Text deriving (Read, Show)

ckAlias :: T.Text
ckAlias = "clevokeyboard"

instance Exec ClevoKeyboard where
  alias (ClevoKeyboard _) = T.unpack ckAlias
  start (ClevoKeyboard icon) =
     startBacklight matchSignalCK callGetBrightnessCK icon