From d7a6c9a01740065a3196536e0f94c022b701ea34 Mon Sep 17 00:00:00 2001 From: Karsten Schoelzel Date: Thu, 27 Sep 2007 15:42:05 +0200 Subject: document shiftWin darcs-hash:20070927134205-eb3a1-4b38ee46bba8b1b268aadb1d4af303800c106c1a --- StackSet.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/StackSet.hs b/StackSet.hs index 8e806d4..b9b1aa1 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -515,6 +515,12 @@ shift n s | n `tagMember` s && n /= curtag = maybe s go (peek s) where go w = view curtag . insertUp w . view n . delete' w $ s curtag = tag (workspace (current s)) +-- | /O(n)/. shiftWin. Searches for the specified window 'w' on all workspaces +-- of the stackSet and moves it to stack 'n', leaving it as the focused +-- element on that stack. The item is inserted above the currently +-- focused element on that workspace. +-- The actual focused workspace doesn't change. If the window is not +-- found in the stackSet, the original stackSet is returned. -- TODO how does this duplicate 'shift's behaviour? shiftWin :: (Ord a, Eq a, Eq s, Eq i) => i -> a -> StackSet i a s sd -> StackSet i a s sd shiftWin n w s | from == Nothing = s -- cgit v1.2.3