From f4897ee9bb57d583bc86853760cfa8e951be647b Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 22 Mar 2007 23:23:33 +0100
Subject: Add promote.  Makes the focused window the master

darcs-hash:20070322222333-a5988-bd6295590c0695d7c43294fd535319e0fbde2e70
---
 Main.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 45d6702..5cadc99 100644
--- a/Main.hs
+++ b/Main.hs
@@ -59,6 +59,7 @@ keys = M.fromList $
     , ((modMask .|. shiftMask, xK_c     ), kill)
     , ((modMask .|. shiftMask, xK_q     ), io $ exitWith ExitSuccess)
     , ((modMask,               xK_space ), switchLayout)
+    , ((modMask,               xK_Return), promote)
     ] ++
     -- generate keybindings to each workspace:
     [((m .|. modMask, xK_0 + fromIntegral i), f i)
@@ -354,6 +355,10 @@ setTopFocus = do
 raise :: Ordering -> X ()
 raise = windows . W.rotate
 
+-- | promote.  Make the focused window the master window in its workspace
+promote :: X ()
+promote = windows (\w -> maybe w (\k -> W.promote k w) (W.peek w))
+
 -- | Kill the currently focused client
 kill :: X ()
 kill = withDisplay $ \d -> do
-- 
cgit v1.2.3