twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

cleanup - use currentTag

Browse Source
This commit is contained in:
Devin Mullins
2008-09-21 01:11:59 +00:00
parent bd2b5379ab
commit f3b6b2707a
13 changed files with 19 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/SwapWorkspaces.hs
View File

@@ -48,7 +48,7 @@ import XMonad.Util.WorkspaceCompare
-- | Swaps the currently focused workspace with the given workspace tag, via
-- @swapWorkspaces@.
swapWithCurrent :: Eq i => i -> StackSet i l a s sd -> StackSet i l a s sd
swapWithCurrent t s = swapWorkspaces t (tag $ workspace $ current s) s
swapWithCurrent t s = swapWorkspaces t (currentTag s) s
-- | Say @swapTo Next@ or @swapTo Prev@ to move your current workspace.
-- This is an @X ()@ so can be hooked up to your keybindings directly.