From d97d93319c89516c9d68188a625eaafe092f5fbe Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 17 Sep 2007 23:19:53 +0200 Subject: Remove Operations functions which have StackSet equivalents, just use 'windows foo' instead darcs-hash:20070917211953-a5988-8e5141139dfaa7ebc2e2f8f3ae4f923094bd71d7 --- Operations.hs | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index 39dc253..ae95d9e 100644 --- a/Operations.hs +++ b/Operations.hs @@ -74,22 +74,6 @@ unmanage w = do setWMState w 0 {-withdrawn-} modify (\s -> s {mapped = S.delete w (mapped s), waitingUnmap = M.delete w (waitingUnmap s)}) --- | focus. focus window up or down. or swap various windows. -focusUp, focusDown, swapUp, swapDown, swapMaster :: X () -focusUp = windows W.focusUp -focusDown = windows W.focusDown -swapUp = windows W.swapUp -swapDown = windows W.swapDown -swapMaster = windows W.swapMaster - --- | shift. Move a window to a new workspace, 0 indexed. -shift :: WorkspaceId -> X () -shift = windows . W.shift - --- | view. Change the current workspace to workspace at offset n (0 indexed). -view :: WorkspaceId -> X () -view = windows . W.greedyView - -- | Modify the size of the status gap at the top of the current screen -- Taking a function giving the current screen, and current geometry. modifyGap :: (Int -> (Int,Int,Int,Int) -> (Int,Int,Int,Int)) -> X () -- cgit v1.2.3