diff options
author | David Roundy <droundy@darcs.net> | 2007-11-09 16:21:24 +0100 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-11-09 16:21:24 +0100 |
commit | 01ca103d6817aad3788e1c1f76daf9b83fd905a5 (patch) | |
tree | dc15b99e93ad5a40a0fd58830a731fb7646d7fa2 /XMonad/Config | |
parent | 1e58cdd9e81ad6e4d7775713a70c9e1daeb7289c (diff) | |
download | XMonadContrib-01ca103d6817aad3788e1c1f76daf9b83fd905a5.tar.gz XMonadContrib-01ca103d6817aad3788e1c1f76daf9b83fd905a5.tar.xz XMonadContrib-01ca103d6817aad3788e1c1f76daf9b83fd905a5.zip |
add withWorkspace prompt, which automatically creates workspace if nonexistent.
darcs-hash:20071109152124-72aca-966fc515a4e1f52fc16929680e152c27d20fb60c.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Config/Droundy.hs | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs index 5e72ac0..95d10e1 100644 --- a/XMonad/Config/Droundy.hs +++ b/XMonad/Config/Droundy.hs @@ -43,7 +43,6 @@ import XMonad.Layout.WorkspaceDir import XMonad.Layout.ToggleLayouts import XMonad.Prompt -import XMonad.Prompt.Workspace import XMonad.Prompt.Shell import XMonad.Actions.CopyWindow @@ -70,8 +69,6 @@ keys x = M.fromList $ , ((modMask x, xK_space ), sendMessage NextLayout) -- %! Rotate through the available layout algorithms , ((modMask x .|. shiftMask, xK_space ), setLayout $ layoutHook x) -- %! Reset the layouts on the current workspace to default - , ((modMask x, xK_n ), refresh) -- %! Resize viewed windows to the correct size - -- move focus up or down the window stack , ((modMask x, xK_Tab ), windows W.focusDown) -- %! Move focus to the next window , ((modMask x, xK_j ), windows W.focusDown) -- %! Move focus to the next window @@ -112,15 +109,12 @@ keys x = M.fromList $ , ((modMask x .|. shiftMask, xK_x ), changeDir myXPConfig) , ((modMask x .|. shiftMask, xK_BackSpace), removeWorkspace) , ((modMask x .|. shiftMask, xK_v ), selectWorkspace myXPConfig) - , ((modMask x, xK_m ), workspacePrompt myXPConfig (windows . W.shift)) - , ((modMask x .|. shiftMask, xK_m ), workspacePrompt myXPConfig (windows . copy)) + , ((modMask x, xK_m ), withWorkspace myXPConfig (windows . W.shift)) + , ((modMask x .|. shiftMask, xK_m ), withWorkspace myXPConfig (windows . copy)) , ((modMask x .|. shiftMask, xK_r), renameWorkspace myXPConfig) , ((modMask x .|. controlMask, xK_space), sendMessage ToggleLayout) - , ((modMask x .|. controlMask, xK_f), sendMessage (JumpToLayout "Full")) ] - -- % Extension-provided key bindings lists - ++ zip (zip (repeat $ modMask x) [xK_F1..xK_F12]) (map (withNthWorkspace W.greedyView) [0..]) ++ @@ -137,12 +131,8 @@ mouseBindings x = M.fromList $ -- mod-button3 %! Set the window to floating mode and resize by dragging , ((modMask x, button3), (\w -> focus w >> mouseResizeWindow w)) -- you may also bind events to the mouse scroll wheel (button4 and button5) - - -- % Extension-provided mouse bindings ] --- % Extension-provided definitions - config :: XConfig config = defaultConfig { borderWidth = 1 -- Width of the window border in pixels. |