ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ADD param for f5vpn

This commit is contained in:
Nathan Dwarshuis 2022-07-09 01:07:41 -04:00
parent b8b058c78c
commit 0cac872805
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
bin/xmonad.hs
View File

@ -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

3
lib/XMonad/Internal/Dependency.hs
View File

@ -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