ADD shortcut for VPN selector

bin/xmonad.hs

@@ -511,6 +511,7 @@ externalBindings ts lock =
     , KeyBinding "M-w" "launch window selector" runWinMenu
     , KeyBinding "M-u" "launch device selector" runDevMenu
     , KeyBinding "M-b" "launch bitwarden selector" runBwMenu
+    , KeyBinding "M-v" "launch ExpressVPN selector" runVPNMenu
     , KeyBinding "M-e" "launch bluetooth selector" runBTMenu
     , KeyBinding "M-C-e" "launch editor" runEditor
     , KeyBinding "M-C-w" "launch browser" runBrowser

lib/XMonad/Internal/Command/DMenu.hs

@@ -9,6 +9,7 @@ module XMonad.Internal.Command.DMenu
   , runNetMenu
   , runDevMenu
   , runBwMenu
+  , runVPNMenu
   , runBTMenu
   , runShowKeys
   , runAutorandrMenu
@@ -43,6 +44,9 @@ myDmenuPasswords = "rofi-bw"
 myDmenuBluetooth :: String
 myDmenuBluetooth = "rofi-bt"
 
+myDmenuVPN :: String
+myDmenuVPN = "rofi-evpn"
+
 myDmenuMonitors :: String
 myDmenuMonitors = "rofi-autorandr"
 
@@ -83,6 +87,10 @@ runBwMenu :: FeatureX
 runBwMenu = featureDefault "password manager" [Executable myDmenuPasswords] $
   spawnCmd myDmenuPasswords $ ["-c"] ++ themeArgs "#bb6600" ++ myDmenuMatchingArgs
 
+runVPNMenu :: FeatureX
+runVPNMenu = featureDefault "VPN selector" [Executable myDmenuVPN] $
+  spawnCmd myDmenuVPN $ ["-c"] ++ themeArgs "#007766" ++ myDmenuMatchingArgs
+
 -- TODO this is weirdly inverted
 runShowKeys :: [((KeyMask, KeySym), NamedAction)] -> NamedAction
 runShowKeys x = addName "Show Keybindings" $ do