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

make DwmPromote compile

Browse Source
This commit is contained in:
Miikka Koskinen 2007-05-13 18:42:54 +00:00
parent 68ecf2071a
commit 6e2496c77f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
DwmPromote.hs
View File

@ -33,13 +33,13 @@ import qualified Data.Map as M
dwmpromote :: X ()
dwmpromote = windows promote
promote :: (Integral i, Ord a) => StackSet i j a -> StackSet i j a
promote :: (Integral i, Integral j, Ord a) => StackSet i j a -> StackSet i j a
promote w = maybe w id $ do
a <- peek w -- fail if null
stack <- index (current w) w
let newstack = swap a (next stack a) stack
return $ w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w),
focus = M.insert (current w) (head newstack) (focus w) }
return . raiseFocus (head newstack) $
w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w) }
where
next s a | head s /= a = head s -- focused is not master
| length s > 1 = s !! 1