twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-03 05:31:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

restore dwm-style keybindings. mod-shift-{j,k} resize in vert mode

Browse Source
This commit is contained in:
Don Stewart
2007-04-01 02:54:33 +00:00
parent 1909c353b7
commit cf91d8aa53
2 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Config.hs
View File

@@ -68,18 +68,23 @@ keys = M.fromList $
[ ((modMask .|. shiftMask, xK_Return), spawn "xterm")
, ((modMask, xK_p ), spawn "exe=`dmenu_path | dmenu` && exec $exe")
, ((modMask .|. shiftMask, xK_F11 ), spawn "gmrun")
, ((modMask, xK_Tab ), raise GT)
, ((modMask, xK_j ), changeVert defaultDelta)
, ((modMask, xK_k ), changeVert (negate defaultDelta))
, ((modMask, xK_space ), switchLayout)
, ((modMask, xK_h ), changeHorz (negate defaultDelta))
, ((modMask, xK_l ), changeHorz defaultDelta)
, ((modMask, xK_F10 ), changeSize sizeDelta (1%100))
, ((modMask, xK_F9 ), changeSize (negate sizeDelta) (1%100))
, ((modMask .|. shiftMask, xK_j ), changeVert defaultDelta)
, ((modMask .|. shiftMask, xK_k ), changeVert (negate defaultDelta))
, ((modMask, xK_Tab ), raise GT)
, ((modMask, xK_j ), raise GT)
, ((modMask, xK_k ), raise LT)
, ((modMask .|. shiftMask, xK_c ), kill)
, ((modMask .|. shiftMask, xK_q ), io $ exitWith ExitSuccess)
, ((modMask .|. shiftMask, xK_F12 ), io restart)
, ((modMask, xK_space ), switchLayout)
, ((modMask .|. shiftMask, xK_r ), io restart)
, ((modMask, xK_Return), promote)
] ++
-- Keybindings to each workspace:
[((m .|. modMask, xK_0 + fromIntegral i), f i)

6
Operations.hs
View File

@@ -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)