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

cleanup in DwmPromote.

Browse Source
This commit is contained in:
David Roundy 2007-08-23 15:54:37 +00:00
parent 266f5cfc0a
commit 5943b98bf2
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
DwmPromote.hs
View File

@ -40,10 +40,8 @@ import StackSet
-- %keybind , ((modMask, xK_Return), dwmpromote) -- %keybind , ((modMask, xK_Return), dwmpromote)
dwmpromote :: X () dwmpromote :: X ()
dwmpromote = windows swap dwmpromote = windows $ modify' $
\c -> case c of
swap :: StackSet i a s sd -> StackSet i a s sd Stack _ [] [] -> c
swap = modify' $ \c -> case c of Stack t [] (x:rs) -> Stack x [] (t:rs)
Stack _ [] [] -> c Stack t ls rs -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls
Stack t [] (x:rs) -> Stack x [] (t:rs)
Stack t ls rs -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls