ADD param for f5vpn
This commit is contained in:
parent
b8b058c78c
commit
0cac872805
|
@ -288,7 +288,8 @@ xsaneDynamicWorkspace = Sometimes "scanner workspace" xpfXSANE
|
||||||
c = "Xsane"
|
c = "Xsane"
|
||||||
|
|
||||||
f5vpnDynamicWorkspace :: Sometimes DynWorkspace
|
f5vpnDynamicWorkspace :: Sometimes DynWorkspace
|
||||||
f5vpnDynamicWorkspace = sometimesIO_ "F5 VPN workspace" "f5vpn" tree dw
|
f5vpnDynamicWorkspace = Sometimes "F5 VPN workspace" xpfF5VPN
|
||||||
|
[Subfeature (IORoot_ dw tree) "f5vpn"]
|
||||||
where
|
where
|
||||||
tree = Only_ $ sysExe [Package False "f5vpn"] "f5vpn"
|
tree = Only_ $ sysExe [Package False "f5vpn"] "f5vpn"
|
||||||
dw = DynWorkspace
|
dw = DynWorkspace
|
||||||
|
|
|
@ -502,6 +502,7 @@ data XPFeatures = XPFeatures
|
||||||
, xpfIntelBacklight :: Bool
|
, xpfIntelBacklight :: Bool
|
||||||
, xpfClevoBacklight :: Bool
|
, xpfClevoBacklight :: Bool
|
||||||
, xpfBattery :: Bool
|
, xpfBattery :: Bool
|
||||||
|
, xpfF5VPN :: Bool
|
||||||
}
|
}
|
||||||
|
|
||||||
instance FromJSON XPFeatures where
|
instance FromJSON XPFeatures where
|
||||||
|
@ -515,6 +516,7 @@ instance FromJSON XPFeatures where
|
||||||
<*> o .:+ "intel_backlight"
|
<*> o .:+ "intel_backlight"
|
||||||
<*> o .:+ "clevo_backlight"
|
<*> o .:+ "clevo_backlight"
|
||||||
<*> o .:+ "battery"
|
<*> o .:+ "battery"
|
||||||
|
<*> o .:+ "f5vpn"
|
||||||
|
|
||||||
defParams :: XParams
|
defParams :: XParams
|
||||||
defParams = XParams
|
defParams = XParams
|
||||||
|
@ -534,6 +536,7 @@ defXPFeatures = XPFeatures
|
||||||
, xpfIntelBacklight = False
|
, xpfIntelBacklight = False
|
||||||
, xpfClevoBacklight = False
|
, xpfClevoBacklight = False
|
||||||
, xpfBattery = False
|
, xpfBattery = False
|
||||||
|
, xpfF5VPN = False
|
||||||
}
|
}
|
||||||
|
|
||||||
type XPQuery = XPFeatures -> Bool
|
type XPQuery = XPFeatures -> Bool
|
||||||
|
|
Loading…
Reference in New Issue