From 718d69736e5dfd946648e7a305c15281d9656466 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 8 Dec 2023 16:13:52 -0700
Subject: Revert "Experimental ability to pin a window using Mod+p"

This reverts commit 87b103a4995fd2b6bbd1e72c446fd789caf5a050.
---
 src/Rahm/Desktop/StackSet.hs | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'src/Rahm/Desktop/StackSet.hs')

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)
-- 
cgit