ADD bluetooth selector
This commit is contained in:
parent
b0358c0cbe
commit
da091fb251
|
@ -54,8 +54,8 @@ import XMonad.Internal.DBus.Brightness.ClevoKeyboard
|
||||||
import XMonad.Internal.DBus.Brightness.Common
|
import XMonad.Internal.DBus.Brightness.Common
|
||||||
import XMonad.Internal.DBus.Brightness.IntelBacklight
|
import XMonad.Internal.DBus.Brightness.IntelBacklight
|
||||||
import XMonad.Internal.DBus.Control
|
import XMonad.Internal.DBus.Control
|
||||||
import XMonad.Internal.DBus.Screensaver
|
|
||||||
import XMonad.Internal.DBus.Removable
|
import XMonad.Internal.DBus.Removable
|
||||||
|
import XMonad.Internal.DBus.Screensaver
|
||||||
import XMonad.Internal.Dependency
|
import XMonad.Internal.Dependency
|
||||||
import XMonad.Internal.Process
|
import XMonad.Internal.Process
|
||||||
import XMonad.Internal.Shell
|
import XMonad.Internal.Shell
|
||||||
|
@ -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-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
|
||||||
, KeyBinding "M-C-t" "launch terminal with tmux" runTMux
|
, KeyBinding "M-C-t" "launch terminal with tmux" runTMux
|
||||||
|
|
|
@ -9,6 +9,7 @@ module XMonad.Internal.Command.DMenu
|
||||||
, runNetMenu
|
, runNetMenu
|
||||||
, runDevMenu
|
, runDevMenu
|
||||||
, runBwMenu
|
, runBwMenu
|
||||||
|
, runBTMenu
|
||||||
, runShowKeys
|
, runShowKeys
|
||||||
, runAutorandrMenu
|
, runAutorandrMenu
|
||||||
) where
|
) where
|
||||||
|
@ -39,6 +40,9 @@ myDmenuDevices = "rofi-dev"
|
||||||
myDmenuPasswords :: String
|
myDmenuPasswords :: String
|
||||||
myDmenuPasswords = "rofi-bw"
|
myDmenuPasswords = "rofi-bw"
|
||||||
|
|
||||||
|
myDmenuBluetooth :: String
|
||||||
|
myDmenuBluetooth = "rofi-bt"
|
||||||
|
|
||||||
myDmenuMonitors :: String
|
myDmenuMonitors :: String
|
||||||
myDmenuMonitors = "rofi-autorandr"
|
myDmenuMonitors = "rofi-autorandr"
|
||||||
|
|
||||||
|
@ -71,6 +75,10 @@ runDevMenu = featureDefault "device manager" [Executable myDmenuDevices] $ do
|
||||||
++ "--" : themeArgs "#999933"
|
++ "--" : themeArgs "#999933"
|
||||||
++ myDmenuMatchingArgs
|
++ myDmenuMatchingArgs
|
||||||
|
|
||||||
|
runBTMenu :: FeatureX
|
||||||
|
runBTMenu = featureExeArgs "bluetooth selector" myDmenuBluetooth
|
||||||
|
$ "-c":themeArgs "#0044bb"
|
||||||
|
|
||||||
runBwMenu :: FeatureX
|
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
|
||||||
|
|
Loading…
Reference in New Issue