diff --git a/bin/xmonad.hs b/bin/xmonad.hs index c4faf89..5945454 100644 --- a/bin/xmonad.hs +++ b/bin/xmonad.hs @@ -345,9 +345,6 @@ vmTag = "VM" xsaneTag :: String xsaneTag = "XSANE" -f5Tag :: String -f5Tag = "F5VPN" - gimpDynamicWorkspace :: Sometimes DynWorkspace gimpDynamicWorkspace = sometimesIO_ "gimp workspace" "gimp" tree dw where @@ -420,31 +417,11 @@ xsaneDynamicWorkspace = } c = "Xsane" -f5vpnDynamicWorkspace :: Sometimes DynWorkspace -f5vpnDynamicWorkspace = - Sometimes - "F5 VPN workspace" - xpfF5VPN - [Subfeature (IORoot_ dw tree) "f5vpn"] - where - tree = Only_ $ sysExe [Package AUR "f5vpn"] "f5vpn" - dw = - DynWorkspace - { dwName = "F5Vpn" - , dwTag = f5Tag - , dwClass = c - , dwHook = [className =? c -?> appendShift f5Tag] - , dwKey = 'i' - , dwCmd = Just skip - } - c = "F5 VPN" - allDWs' :: [Sometimes DynWorkspace] allDWs' = [ xsaneDynamicWorkspace , vmDynamicWorkspace , gimpDynamicWorkspace - , f5vpnDynamicWorkspace ] -------------------------------------------------------------------------------- diff --git a/lib/Data/Internal/XIO.hs b/lib/Data/Internal/XIO.hs index 15bc31a..808f664 100644 --- a/lib/Data/Internal/XIO.hs +++ b/lib/Data/Internal/XIO.hs @@ -458,7 +458,6 @@ data XPFeatures = XPFeatures , xpfIntelBacklight :: Bool , xpfClevoBacklight :: Bool , xpfBattery :: Bool - , xpfF5VPN :: Bool } instance FromJSON XPFeatures where @@ -484,8 +483,6 @@ instance FromJSON XPFeatures where .:+ "clevo_backlight" <*> o .:+ "battery" - <*> o - .:+ "f5vpn" defParams :: XParams defParams = @@ -508,7 +505,6 @@ defXPFeatures = , xpfIntelBacklight = False , xpfClevoBacklight = False , xpfBattery = False - , xpfF5VPN = False } type XPQuery = XPFeatures -> Bool