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

ADD shortcut for VPN selector

This commit is contained in:
Nathan Dwarshuis 2021-12-15 00:30:18 -05:00
parent 10ddbc7de4
commit e6346b7b06
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
bin/xmonad.hs
View File

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

8
lib/XMonad/Internal/Command/DMenu.hs
View File

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