mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-27 10:11:52 -07:00
make DwmPromote compile
This commit is contained in:
@@ -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
|
||||||
|
Reference in New Issue
Block a user