diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 04:15:04 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-05-07 04:15:04 +0200 |
| commit | 93a4dc752d1866b64daacdc38a12792b59723b05 (patch) | |
| tree | cd12cf751bbb69f43535ec50b4de2e048860bcf3 /XMonad/Config/Sjanssen.hs | |
| parent | 226ea7af13276fb73b99dfedfd7f55cb06308f6e (diff) | |
| download | XMonadContrib-93a4dc752d1866b64daacdc38a12792b59723b05.tar.gz XMonadContrib-93a4dc752d1866b64daacdc38a12792b59723b05.tar.xz XMonadContrib-93a4dc752d1866b64daacdc38a12792b59723b05.zip | |
Refactor my config
darcs-hash:20080507021504-a5988-8f5ff1fd8e7f0ddf73b17577266470c70d32ce30.gz
Diffstat (limited to 'XMonad/Config/Sjanssen.hs')
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index e48bd86..e9f20f9 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -29,14 +29,16 @@ sjanssenConfig = do , ((modm, button2), (\w -> focus w >> windows W.swapMaster)) , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ] , keys = \c -> mykeys c `M.union` keys defaultConfig c - , layoutHook = avoidStruts $ smartBorders (tiled Tall ||| tiled Wide ||| Full ||| tabbed shrinkText myTheme) + , layoutHook = modifiers layouts , manageHook = composeAll [className =? x --> doF (W.shift w) | (x, w) <- [ ("Firefox", "web"), ("Pidgin", "im") , ("Ktorrent", "7")]] <+> manageHook defaultConfig <+> manageDocks } where - tiled = HintedTile 1 0.03 0.5 TopLeft + tiled = HintedTile 1 0.03 0.5 TopLeft + layouts = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme + modifiers = avoidStruts . smartBorders mykeys (XConfig {modMask = modm, workspaces = ws}) = M.fromList $ [((modm, xK_p ), shellPrompt myPromptConfig) |