From e6346b7b06d9391995588f65e85a9174cd1861e2 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Wed, 15 Dec 2021 00:30:18 -0500
Subject: [PATCH] ADD shortcut for VPN selector

---
 bin/xmonad.hs                        | 1 +
 lib/XMonad/Internal/Command/DMenu.hs | 8 ++++++++
 2 files changed, 9 insertions(+)

diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 1958b36..9373a7a 100644
--- a/bin/xmonad.hs
+++ b/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
diff --git a/lib/XMonad/Internal/Command/DMenu.hs b/lib/XMonad/Internal/Command/DMenu.hs
index d88384c..8528328 100644
--- a/lib/XMonad/Internal/Command/DMenu.hs
+++ b/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