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

41 lines
1.2 KiB
Haskell
Raw Normal View History

2020-03-21 01:18:38 -04:00
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
2020-04-01 22:06:00 -04:00
--------------------------------------------------------------------------------
-- | Bluetooth plugin
--
-- Use the bluez interface on DBus to check status
2020-04-01 20:17:47 -04:00
module Xmobar.Plugins.Bluetooth (Bluetooth(..)) where
2020-03-21 01:18:38 -04:00
2020-03-25 18:55:52 -04:00
import DBus
import DBus.Client
2020-03-21 01:18:38 -04:00
2020-04-01 20:17:47 -04:00
import XMonad.Hooks.DynamicLog (xmobarColor)
2021-06-19 00:54:01 -04:00
import Xmobar
2020-03-21 01:18:38 -04:00
data Bluetooth = Bluetooth (String, String, String) Int
deriving (Read, Show)
2020-03-21 01:18:38 -04:00
callGetPowered :: Client -> IO (Either MethodError Variant)
callGetPowered client =
getProperty client (methodCall "/org/bluez/hci0" "org.bluez.Adapter1" "Powered")
{ methodCallDestination = Just "org.bluez" }
2020-03-21 14:30:27 -04:00
2020-03-21 01:18:38 -04:00
instance Exec Bluetooth where
alias (Bluetooth _ _) = "bluetooth"
rate (Bluetooth _ r) = r
run (Bluetooth (text, colorOn, colorOff) _) = do
2020-03-21 01:18:38 -04:00
client <- connectSystem
reply <- callGetPowered client
disconnect client
return $ fmtState $ procReply reply
2020-03-21 01:18:38 -04:00
where
procReply = \case
-- TODO handle errors?
Right r -> fromVariant r
Left _ -> Nothing
2020-03-21 01:18:38 -04:00
fmtState = \case
2021-06-19 00:54:01 -04:00
Just s -> xmobarColor (if s then colorOn else colorOff) "" text
2020-03-21 01:18:38 -04:00
Nothing -> "N/A"