ADD shortcut for VPN selector
This commit is contained in:
parent
10ddbc7de4
commit
e6346b7b06
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue