FIX name/arg typo
This commit is contained in:
parent
fd37220005
commit
b9ede93e98
|
@ -129,9 +129,10 @@ emitBrightness BrightnessConfig{ bcPath = p, bcInterface = i } client cur =
|
||||||
sig = signal p i memCur
|
sig = signal p i memCur
|
||||||
|
|
||||||
callBacklight :: Maybe Client -> BrightnessConfig a b -> String -> MemberName -> FeatureIO
|
callBacklight :: Maybe Client -> BrightnessConfig a b -> String -> MemberName -> FeatureIO
|
||||||
callBacklight client BrightnessConfig { bcPath = p, bcInterface = i, bcName = n } controlName m =
|
callBacklight client BrightnessConfig { bcPath = p
|
||||||
(featureEndpoint xmonadBusName p i m client)
|
, bcInterface = i
|
||||||
{ ftrName = unwords [n, controlName] }
|
, bcName = n } controlName m =
|
||||||
|
featureEndpoint (unwords [n, controlName]) xmonadBusName p i m client
|
||||||
|
|
||||||
bodyGetBrightness :: Num a => [Variant] -> Maybe a
|
bodyGetBrightness :: Num a => [Variant] -> Maybe a
|
||||||
bodyGetBrightness [b] = fromIntegral <$> (fromVariant b :: Maybe Int32)
|
bodyGetBrightness [b] = fromIntegral <$> (fromVariant b :: Maybe Int32)
|
||||||
|
|
|
@ -121,9 +121,8 @@ exportScreensaver client = Feature
|
||||||
}
|
}
|
||||||
|
|
||||||
callToggle :: Maybe Client -> FeatureIO
|
callToggle :: Maybe Client -> FeatureIO
|
||||||
callToggle client =
|
callToggle =
|
||||||
(featureEndpoint xmonadBusName ssPath interface memToggle client)
|
featureEndpoint "screensaver toggle" xmonadBusName ssPath interface memToggle
|
||||||
{ ftrName = "screensaver toggle" }
|
|
||||||
|
|
||||||
callQuery :: Client -> IO (Maybe SSState)
|
callQuery :: Client -> IO (Maybe SSState)
|
||||||
callQuery client = do
|
callQuery client = do
|
||||||
|
|
|
@ -105,11 +105,11 @@ featureExeArgs :: MonadIO m => String -> String -> [String] -> Feature (m ())
|
||||||
featureExeArgs n cmd args =
|
featureExeArgs n cmd args =
|
||||||
featureDefault n [Executable cmd] $ spawnCmd cmd args
|
featureDefault n [Executable cmd] $ spawnCmd cmd args
|
||||||
|
|
||||||
featureEndpoint :: BusName -> ObjectPath -> InterfaceName -> MemberName
|
featureEndpoint :: String -> BusName -> ObjectPath -> InterfaceName -> MemberName
|
||||||
-> Maybe Client -> FeatureIO
|
-> Maybe Client -> FeatureIO
|
||||||
featureEndpoint busname path iface mem client = Feature
|
featureEndpoint name busname path iface mem client = Feature
|
||||||
{ ftrDepTree = DBusTree (Single cmd) client deps []
|
{ ftrDepTree = DBusTree (Single cmd) client deps []
|
||||||
, ftrName = "screensaver toggle"
|
, ftrName = name
|
||||||
, ftrWarning = Default
|
, ftrWarning = Default
|
||||||
}
|
}
|
||||||
where
|
where
|
||||||
|
|
Loading…
Reference in New Issue