colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Add binding for swapping workspaces

Browse Source
This commit is contained in:
Ivan Malison 2017-07-17 12:30:42 -07:00
parent 00f47e9c0f
commit 6fc0357c51
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/xmonad/xmonad.hs
View File

@ -28,6 +28,7 @@ import qualified XMonad.Actions.DynamicWorkspaceOrder as DWO
import XMonad.Actions.DynamicWorkspaces hiding (withWorkspace) import XMonad.Actions.DynamicWorkspaces hiding (withWorkspace)
import XMonad.Actions.Minimize import XMonad.Actions.Minimize
import XMonad.Actions.Navigation2D import XMonad.Actions.Navigation2D
import qualified XMonad.Actions.SwapWorkspaces as SW
import XMonad.Actions.UpdatePointer import XMonad.Actions.UpdatePointer
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import XMonad.Actions.WindowGo import XMonad.Actions.WindowGo
@ -155,6 +156,10 @@ followingWindow action = do
orig <- withWindowSet (return . W.peek) orig <- withWindowSet (return . W.peek)
_ <- action _ <- action
whenJust orig $ windows . W.focusWindow whenJust orig $ windows . W.focusWindow
myDmenu = DM.menuArgs "rofi" ["-dmenu", "-i"]
getWorkspaceDmenu = myDmenu (workspaces myConfig)
-- Selectors -- Selectors
@ -222,7 +227,7 @@ myManageHook =
unmodifyLayout (ModifiedLayout _ x') = x' unmodifyLayout (ModifiedLayout _ x') = x'
selectLimit = selectLimit =
DM.menuArgs "rofi" ["-dmenu", "-i"] ["2", "3", "4"] >>= (setLimit . read) myDmenu ["2", "3", "4"] >>= (setLimit . read)
data MyToggles data MyToggles
= LIMIT = LIMIT
@ -822,6 +827,7 @@ addKeys conf@XConfig { modMask = modm } =
, ((modm, xK_z), shiftToNextScreenX) , ((modm, xK_z), shiftToNextScreenX)
, ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen) , ((modm .|. shiftMask, xK_z), shiftToEmptyNextScreen)
, ((modm .|. shiftMask, xK_h), shiftToEmptyAndView) , ((modm .|. shiftMask, xK_h), shiftToEmptyAndView)
, ((hyper, xK_5), getWorkspaceDmenu >>= windows . SW.swapWithCurrent)
-- These need to be rebound to support boringWindows -- These need to be rebound to support boringWindows
, ((modm, xK_m), focusMaster) , ((modm, xK_m), focusMaster)