diff options
Diffstat (limited to 'src/Rahm/Desktop/StackSet.hs')
| -rw-r--r-- | src/Rahm/Desktop/StackSet.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Rahm/Desktop/StackSet.hs b/src/Rahm/Desktop/StackSet.hs index 4ac00e4..2dc8787 100644 --- a/src/Rahm/Desktop/StackSet.hs +++ b/src/Rahm/Desktop/StackSet.hs @@ -2,7 +2,6 @@ module Rahm.Desktop.StackSet ( masterWindow, allVisibleWindows, differentiateWithFocus, - shiftWinNoFocus, concatMapTiledWindows, windowsOnWorkspace, findWorkspace, @@ -202,13 +201,6 @@ greedyView wid ss = switchWorkspaces (tag . workspace . current $ ss) wid ss shiftWin :: (Ord a, Eq s, Eq i) => i -> a -> StackSet i l a s sd -> StackSet i l a s sd shiftWin wid a = XMonad.StackSet.shiftWin wid a . fst . ensureWorkspace wid -shiftWinNoFocus :: (Ord a, Eq s, Eq i) => i -> a -> StackSet i l a s sd -> StackSet i l a s sd -shiftWinNoFocus n w s = case findTag w s of - Just from | n `tagMember` s && n /= from -> go from s - _ -> s - where go from = onWorkspace n (focusDown . insertUp w) . onWorkspace from (delete' w) - onWorkspace n f s = view (currentTag s) . f . view n $ s - windowsOnWorkspace :: (Eq i) => i -> StackSet i l a s sd -> [a] windowsOnWorkspace i ss = fromMaybe [] $ do ws <- find ((== i) . W.tag) (W.workspaces ss) |