twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

make DwmPromote compile

Browse Source
This commit is contained in:
Miikka Koskinen 2007-05-03 10:52:36 +00:00
parent 2202665f70
commit df7b1116b3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
DwmPromote.hs
View File

@ -37,8 +37,8 @@ promote :: (Integral i, Ord a) => StackSet i j a -> StackSet i j a
promote w = maybe w id $ do promote w = maybe w id $ do
a <- peek w -- fail if null a <- peek w -- fail if null
let stack = index (current w) w let stack = index (current w) w
let newstack = swap a (next stack a) stack newstack = swap a (next stack a) stack
return $ w { stacks = M.insert (current w) newstack (stacks w), return $ w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w),
focus = M.insert (current w) (head newstack) (focus w) } focus = M.insert (current w) (head newstack) (focus w) }
where where
next s a | head s /= a = head s -- focused is not master next s a | head s /= a = head s -- focused is not master