From 01ca103d6817aad3788e1c1f76daf9b83fd905a5 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Fri, 9 Nov 2007 16:21:24 +0100 Subject: add withWorkspace prompt, which automatically creates workspace if nonexistent. darcs-hash:20071109152124-72aca-966fc515a4e1f52fc16929680e152c27d20fb60c.gz --- XMonad/Config/Droundy.hs | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) (limited to 'XMonad/Config') 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. -- cgit v1.2.3