aboutsummaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-04-01 04:54:33 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-04-01 04:54:33 +0200
commitf1b2946edb226e619b635a921e70416bcb4347c6 (patch)
treedc6eb690eaae1cc7ef3a7ea39e8df3a336a2d79e /Operations.hs
parent03e337c024dd7e6f6fd7dd40917ec4bf720d8eef (diff)
downloadxmonad-f1b2946edb226e619b635a921e70416bcb4347c6.tar.gz
xmonad-f1b2946edb226e619b635a921e70416bcb4347c6.tar.xz
xmonad-f1b2946edb226e619b635a921e70416bcb4347c6.zip
restore dwm-style keybindings. mod-shift-{j,k} resize in vert mode
darcs-hash:20070401025433-9c5c1-79adc3fdb8db4cf7929dd6d121ec66c21f24a0e2.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs
index e404b7d..decb42f 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -244,7 +244,11 @@ setBorder w p = withDisplay $ \d -> io $ setWindowBorder d w p
raise :: Ordering -> X ()
raise = windows . W.rotate
--- | promote. Make the focused window the master window in its workspace
+-- | promote. Make the focused window the master window in its
+-- workspace , in non-fullscreen mode.
+--
+-- TODO: generic cycling clockwise and anticlockwise
+--
promote :: X ()
promote = windows $ \w -> maybe w (\k -> W.promote k w) (W.peek w)