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

ADD autorandr selector

This commit is contained in:
Nathan Dwarshuis 2020-08-17 18:46:02 -04:00
parent b77edbfcbb
commit 8c98ab5939
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
bin/xmonad.hs
View File

@ -498,6 +498,7 @@ mkKeys ts c =
-- M-<F1> reserved for showing the keymap -- M-<F1> reserved for showing the keymap
, ("M-<F2>", "restart xmonad", runCleanup ts >> runRestart) , ("M-<F2>", "restart xmonad", runCleanup ts >> runRestart)
, ("M-<F3>", "recompile xmonad", runRecompile) , ("M-<F3>", "recompile xmonad", runRecompile)
, ("M-<F8>", "select autorandr profile", runAutorandrMenu)
, ("M-<F9>", "toggle ethernet", runToggleEthernet) , ("M-<F9>", "toggle ethernet", runToggleEthernet)
, ("M-<F10>", "toggle bluetooth", runToggleBluetooth) , ("M-<F10>", "toggle bluetooth", runToggleBluetooth)
, ("M-<F11>", "toggle screensaver", runToggleDPMS) , ("M-<F11>", "toggle screensaver", runToggleDPMS)

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

@ -10,6 +10,7 @@ module XMonad.Internal.Command.DMenu
, runDevMenu , runDevMenu
, runBwMenu , runBwMenu
, runShowKeys , runShowKeys
, runAutorandrMenu
) where ) where
import Control.Monad.Reader import Control.Monad.Reader
@ -84,3 +85,6 @@ runWinMenu = spawnDmenuCmd ["-show", "window"]
runNetMenu :: X () runNetMenu :: X ()
runNetMenu = spawnCmd "networkmanager_dmenu" $ themeArgs "#ff3333" runNetMenu = spawnCmd "networkmanager_dmenu" $ themeArgs "#ff3333"
runAutorandrMenu :: X ()
runAutorandrMenu = spawnCmd "rofi-autorandr" $ themeArgs "#ff0066"