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-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 :: X ()
dwmpromote = windows promote 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 promote w = maybe w id $ do
a <- peek w -- fail if null a <- peek w -- fail if null
stack <- index (current w) w stack <- index (current w) w
let newstack = swap a (next stack a) stack let newstack = swap a (next stack a) stack
return $ w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks w), return . raiseFocus (head newstack) $
focus = M.insert (current w) (head newstack) (focus w) } w { stacks = M.adjust (\(f,_) -> (f, newstack)) (current w) (stacks 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
| length s > 1 = s !! 1 | length s > 1 = s !! 1