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

ADD bluetooth selector

This commit is contained in:
Nathan Dwarshuis 2021-11-29 00:56:16 -05:00
parent b0358c0cbe
commit da091fb251
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bin/xmonad.hs
View File

@ -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
@ -80,7 +80,7 @@ main = do
sysClient <- getDBusClient True sysClient <- getDBusClient True
(h, p) <- spawnPipe "xmobar" (h, p) <- spawnPipe "xmobar"
executeFeature_ $ runRemovableMon sysClient executeFeature_ $ runRemovableMon sysClient
executeFeatureWith_ forkIO_ runPowermon executeFeatureWith_ forkIO_ runPowermon
forkIO_ $ runWorkspaceMon allDWs forkIO_ $ runWorkspaceMon allDWs
let ts = ThreadState let ts = ThreadState
{ tsSessionClient = sesClient { tsSessionClient = sesClient
@ -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

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

@ -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