twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-07 23:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

fmt, and tiny comment seeking clarification

Browse Source
This commit is contained in:
Don Stewart
2007-09-17 23:46:58 +00:00
parent c6f346f887
commit 3060c36d00
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
StackSet.hs
View File

@@ -503,11 +503,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 where go w = view curtag . insertUp w . view n . delete' w $ s
curtag = tag (workspace (current s)) curtag = tag (workspace (current s))
-- 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 :: (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 shiftWin n w s | from == Nothing = s
| n `tagMember` s && (Just n) /= from = go | n `tagMember` s && (Just n) /= from = go
| otherwise = s | otherwise = s
where go = on n (insertUp w) . on (fromJust from) (delete' w) $ s where go = on n (insertUp w) . on (fromJust from) (delete' w) $ s
curtag = tag (workspace (current s)) curtag = tag (workspace (current s))
from = findIndex w s from = findIndex w s
on i f = view curtag . f . view i on i f = view curtag . f . view i