diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-23 17:54:37 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-23 17:54:37 +0200 |
| commit | 2428f7bcb5908e87bff4ee94480804a927270cce (patch) | |
| tree | 36a79fbb5036688cfb99c5dc1f3687fed642f643 | |
| parent | c0e5d76ccf88dd7d19386c65b87260c4e03f39cd (diff) | |
| download | XMonadContrib-2428f7bcb5908e87bff4ee94480804a927270cce.tar.gz XMonadContrib-2428f7bcb5908e87bff4ee94480804a927270cce.tar.xz XMonadContrib-2428f7bcb5908e87bff4ee94480804a927270cce.zip | |
cleanup in DwmPromote.
darcs-hash:20070823155437-72aca-31b60831c02ce2c4b5a6f6c48278c4b63027829e.gz
| -rw-r--r-- | DwmPromote.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/DwmPromote.hs b/DwmPromote.hs index a4143c3..778cf20 100644 --- a/DwmPromote.hs +++ b/DwmPromote.hs @@ -40,10 +40,8 @@ import StackSet -- %keybind , ((modMask, xK_Return), dwmpromote) dwmpromote :: X () -dwmpromote = windows swap - -swap :: StackSet i a s sd -> StackSet i a s sd -swap = modify' $ \c -> case c of - Stack _ [] [] -> c - Stack t [] (x:rs) -> Stack x [] (t:rs) - Stack t ls rs -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls +dwmpromote = windows $ modify' $ + \c -> case c of + Stack _ [] [] -> c + Stack t [] (x:rs) -> Stack x [] (t:rs) + Stack t ls rs -> Stack t [] (ys ++ x : rs) where (x:ys) = reverse ls |