Params.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TemplateHaskellQuotes #-}

module System.Taffybar.DBus.Client.Params where

import DBus
import DBus.Generation
import Language.Haskell.TH
import System.Taffybar.DBus.Client.Util

-- | The bus name for chrome-favicon-dbus.
chromeWindowInfoBusName :: BusName
chromeWindowInfoBusName = "org.imalison.ChromeWindowInfo"

-- | The object path exposed by chrome-favicon-dbus.
chromeWindowInfoObjectPath :: ObjectPath
chromeWindowInfoObjectPath = "/org/imalison/ChromeWindowInfo"

-- | The interface name exposed by chrome-favicon-dbus.
chromeWindowInfoInterfaceName :: InterfaceName
chromeWindowInfoInterfaceName = "org.imalison.ChromeWindowInfo"

chromeWindowInfoGenerationParams :: GenerationParams
chromeWindowInfoGenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True,
      genBusName = Just chromeWindowInfoBusName,
      genObjectPath = Just chromeWindowInfoObjectPath
    }

playerGenerationParams :: GenerationParams
playerGenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True,
      genObjectPath = Just "/org/mpris/MediaPlayer2"
    }

-- | The bus name for NetworkManager.
nmBusName :: BusName
nmBusName = "org.freedesktop.NetworkManager"

-- | The base object path for NetworkManager.
nmObjectPath :: ObjectPath
nmObjectPath = "/org/freedesktop/NetworkManager"

nmInterfaceName :: InterfaceName
nmInterfaceName = "org.freedesktop.NetworkManager"

nmActiveConnectionInterfaceName :: InterfaceName
nmActiveConnectionInterfaceName =
  "org.freedesktop.NetworkManager.Connection.Active"

nmAccessPointInterfaceName :: InterfaceName
nmAccessPointInterfaceName =
  "org.freedesktop.NetworkManager.AccessPoint"

nmActiveConnectionPathNamespace :: ObjectPath
nmActiveConnectionPathNamespace =
  "/org/freedesktop/NetworkManager/ActiveConnection"

nmAccessPointPathNamespace :: ObjectPath
nmAccessPointPathNamespace =
  "/org/freedesktop/NetworkManager/AccessPoint"

nmGenerationParams :: GenerationParams
nmGenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True,
      genBusName = Just nmBusName
    }

-- | The base object path for the UPower interface
uPowerBaseObjectPath :: ObjectPath
uPowerBaseObjectPath = "/org/freedesktop/UPower"

-- | The name of the power daemon bus
uPowerBusName :: BusName
uPowerBusName = "org.freedesktop.UPower"

uPowerDeviceInterfaceName :: InterfaceName
uPowerDeviceInterfaceName = "org.freedesktop.UPower.Device"

uPowerGenerationParams :: GenerationParams
uPowerGenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True,
      genBusName = Just uPowerBusName
    }

-- | The bus name for systemd-logind.
login1BusName :: BusName
login1BusName = "org.freedesktop.login1"

-- | The object path for the systemd-logind manager.
login1ObjectPath :: ObjectPath
login1ObjectPath = "/org/freedesktop/login1"

-- | The interface name for the systemd-logind manager.
login1ManagerInterfaceName :: InterfaceName
login1ManagerInterfaceName = "org.freedesktop.login1.Manager"

login1GenerationParams :: GenerationParams
login1GenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True,
      genBusName = Just login1BusName
    }

-- | The bus name for PulseAudio's server lookup on the session bus.
paServerLookupBusName :: BusName
paServerLookupBusName = "org.PulseAudio1"

-- | The object path for PulseAudio's server lookup object.
paServerLookupObjectPath :: ObjectPath
paServerLookupObjectPath = "/org/pulseaudio/server_lookup1"

-- | The object path for PulseAudio's core object.
paCoreObjectPath :: ObjectPath
paCoreObjectPath = "/org/pulseaudio/core1"

paServerLookupInterfaceName :: InterfaceName
paServerLookupInterfaceName = "org.PulseAudio.ServerLookup1"

paCoreInterfaceName :: InterfaceName
paCoreInterfaceName = "org.PulseAudio.Core1"

paDeviceInterfaceName :: InterfaceName
paDeviceInterfaceName = "org.PulseAudio.Core1.Device"

paServerLookupGenerationParams :: GenerationParams
paServerLookupGenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True,
      genBusName = Just paServerLookupBusName,
      genObjectPath = Just paServerLookupObjectPath
    }

paCoreGenerationParams :: GenerationParams
paCoreGenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True,
      genObjectPath = Just paCoreObjectPath
    }

paDeviceGenerationParams :: GenerationParams
paDeviceGenerationParams =
  defaultGenerationParams
    { genTakeSignalErrorHandler = True
    }

-- | UPower device type enum.
data BatteryType
  = BatteryTypeUnknown
  | BatteryTypeLinePower
  | BatteryTypeBatteryType
  | BatteryTypeUps
  | BatteryTypeMonitor
  | BatteryTypeMouse
  | BatteryTypeKeyboard
  | BatteryTypePda
  | BatteryTypePhone
  deriving (Show, Ord, Eq, Enum, Bounded)

-- | UPower battery charging state enum.
data BatteryState
  = BatteryStateUnknown
  | BatteryStateCharging
  | BatteryStateDischarging
  | BatteryStateEmpty
  | BatteryStateFullyCharged
  | BatteryStatePendingCharge
  | BatteryStatePendingDischarge
  deriving (Show, Ord, Eq, Enum, Bounded)

-- | UPower battery chemistry enum.
data BatteryTechnology
  = BatteryTechnologyUnknown
  | BatteryTechnologyLithiumIon
  | BatteryTechnologyLithiumPolymer
  | BatteryTechnologyLithiumIronPhosphate
  | BatteryTechnologyLeadAcid
  | BatteryTechnologyNickelCadmium
  | BatteryTechnologyNickelMetalHydride
  deriving (Show, Ord, Eq, Enum, Bounded)

batteryTypeForName :: GetTypeForName
batteryTypeForName name = const $
  case name of
    "Type" -> yes ''BatteryType
    "State" -> yes ''BatteryState
    "Technology" -> yes ''BatteryTechnology
    _ -> Nothing
  where
    yes = Just . ConT