diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-08 16:13:52 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-08 16:13:52 -0700 |
| commit | 718d69736e5dfd946648e7a305c15281d9656466 (patch) | |
| tree | 0aa849edd4736d6b0c9bd1865a9ea09dd935ebd8 /src/Rahm/Desktop/StackSet.hs | |
| parent | 87b103a4995fd2b6bbd1e72c446fd789caf5a050 (diff) | |
| download | rde-718d69736e5dfd946648e7a305c15281d9656466.tar.gz rde-718d69736e5dfd946648e7a305c15281d9656466.tar.bz2 rde-718d69736e5dfd946648e7a305c15281d9656466.zip | |
Revert "Experimental ability to pin a window using Mod+p"
This reverts commit 87b103a4995fd2b6bbd1e72c446fd789caf5a050.
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) |