diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 21:10:59 +0100 |
commit | 4866f2e367dfcf22a9591231ba40948826a1b438 (patch) | |
tree | 7a245caee3f146826b267d773b7eaa80386a818e /DwmPromote.hs | |
parent | 47589e1913fb9530481caedb543978a30d4323ea (diff) | |
download | XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.gz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.tar.xz XMonadContrib-4866f2e367dfcf22a9591231ba40948826a1b438.zip |
Hierarchify
darcs-hash:20071101201059-a5988-fc1f1262bec1b69e13ba18ae7cefeafc8c4471d4.gz
Diffstat (limited to 'DwmPromote.hs')
-rw-r--r-- | DwmPromote.hs | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/DwmPromote.hs b/DwmPromote.hs deleted file mode 100644 index 7e81e7b..0000000 --- a/DwmPromote.hs +++ /dev/null @@ -1,47 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : XMonadContrib.DwmPromote --- Copyright : (c) Miikka Koskinen 2007 --- License : BSD3-style (see LICENSE) --- --- Maintainer : arcatan@kapsi.fi --- Stability : unstable --- Portability : unportable --- --- Dwm-like swap function for xmonad. --- --- Swaps focused window with the master window. If focus is in the --- master, swap it with the next window in the stack. Focus stays in the --- master. --- ------------------------------------------------------------------------------ - -module XMonadContrib.DwmPromote ( - -- * Usage - -- $usage - dwmpromote - ) where - -import XMonad -import XMonad.Operations (windows) -import XMonad.StackSet - --- $usage --- --- To use, modify your Config.hs to: --- --- > import XMonadContrib.DwmPromote --- --- and add a keybinding or substitute promote with dwmpromote: --- --- > , ((modMask, xK_Return), dwmpromote) - --- %import XMonadContrib.DwmPromote --- %keybind , ((modMask, xK_Return), dwmpromote) - -dwmpromote :: X () -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 |