diff options
| author | David Roundy <droundy@darcs.net> | 2008-02-29 23:43:16 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2008-02-29 23:43:16 +0100 |
| commit | 3433ac66496a153487c24a2c80230e5274658352 (patch) | |
| tree | 10a9ac6745805493b9a42460a8d3a80ad97bd71f /XMonad/Config/Droundy.hs | |
| parent | 363314e16a5a39f21e34b0ff4ae0532f444be978 (diff) | |
| download | XMonadContrib-3433ac66496a153487c24a2c80230e5274658352.tar.gz XMonadContrib-3433ac66496a153487c24a2c80230e5274658352.tar.xz XMonadContrib-3433ac66496a153487c24a2c80230e5274658352.zip | |
implement ScratchWorkspace.
darcs-hash:20080229224316-72aca-9bd38478665ad2effabef8966cc6010fc0fcfe0a.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Config/Droundy.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs index 4cdf726..7e88c3f 100644 --- a/XMonad/Config/Droundy.hs +++ b/XMonad/Config/Droundy.hs @@ -26,6 +26,7 @@ import XMonad.Layout.Combo import XMonad.Layout.Mosaic import XMonad.Layout.Named import XMonad.Layout.LayoutCombinators +import XMonad.Layout.Simplest import XMonad.Layout.Square import XMonad.Layout.LayoutScreens import XMonad.Layout.WindowNavigation @@ -33,6 +34,7 @@ import XMonad.Layout.NoBorders import XMonad.Layout.WorkspaceDir import XMonad.Layout.ToggleLayouts import XMonad.Layout.ShowWName +import XMonad.Layout.ScratchWorkspace import XMonad.Prompt import XMonad.Prompt.Layout @@ -111,6 +113,8 @@ keys x = M.fromList $ , ((modMask x .|. shiftMask, xK_r), renameWorkspace myXPConfig) , ((modMask x, xK_l ), layoutPrompt myXPConfig) , ((modMask x .|. controlMask, xK_space), sendMessage ToggleLayout) + , ((modMask x .|. controlMask .|. shiftMask, xK_space), + toggleScratchWorkspace (Simplest */* Simplest) ) -- keybindings for Mosaic: , ((controlMask .|. modMask x .|. shiftMask, xK_h), withFocused (sendMessage . tallWindow)) @@ -132,7 +136,7 @@ config = -- withUrgencyHook FocusUrgencyHook $ withUrgencyHook NoUrgencyHook $ defaultConfig { borderWidth = 1 -- Width of the window border in pixels. - , XMonad.workspaces = ["1:mutt","2:iceweasel"] + , XMonad.workspaces = ["mutt","iceweasel","*scratch*"] , layoutHook = showWName $ workspaceDir "~" $ windowNavigation $ toggleLayouts (noBorders Full) $ avoidStruts $ named "tabbed" (noBorders mytab) ||| @@ -167,10 +171,12 @@ instance Shrinker CustomShrink where shrinkIt _ s = shrinkIt shrinkText s dropFromTail :: String -> String -> Maybe String +dropFromTail "" _ = Nothing dropFromTail t s | drop (length s - length t) s == t = Just $ take (length s - length t) s | otherwise = Nothing dropFromHead :: String -> String -> Maybe String +dropFromHead "" _ = Nothing dropFromHead h s | take (length h) s == h = Just $ drop (length h) s | otherwise = Nothing |