diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-09 14:44:45 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-09 14:44:45 +0100 |
| commit | 73821e92ae559db45d9cf76cdd75a98358463874 (patch) | |
| tree | 873b663deb4740f799484952dd02dc16d385fde0 /XMonad/Config/Sjanssen.hs | |
| parent | db6ee4b465bdcd1919fb86d8bdcf09146470eeb6 (diff) | |
| download | XMonadContrib-73821e92ae559db45d9cf76cdd75a98358463874.tar.gz XMonadContrib-73821e92ae559db45d9cf76cdd75a98358463874.tar.xz XMonadContrib-73821e92ae559db45d9cf76cdd75a98358463874.zip | |
I use ManageDocks now
darcs-hash:20071209134445-a5988-49449bb9423c8d769cd59d9b3f3881ef5afc9766.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index 09e0b16..7bbf4a1 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -9,6 +9,7 @@ import XMonad.Layout.HintedTile import XMonad.Config (defaultConfig) import XMonad.Layout.NoBorders import XMonad.Hooks.DynamicLog +import XMonad.Hooks.ManageDocks import XMonad.Prompt import XMonad.Prompt.Shell import XMonad.Util.Run (spawnPipe) @@ -19,8 +20,7 @@ import System.IO (hPutStrLn) sjanssenConfig = do xmobar <- spawnPipe "xmobar" return $ defaultConfig - { defaultGaps = [(15,0,0,0)] - , terminal = "urxvt" + { terminal = "urxvt" , workspaces = ["irc", "web"] ++ map show [3 .. 7 :: Int] ++ ["mail", "im"] , logHook = dynamicLogWithPP $ sjanssenPP { ppOutput = hPutStrLn xmobar } , modMask = mod4Mask @@ -29,7 +29,8 @@ 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 = smartBorders (tiled Tall ||| tiled Wide ||| Full ||| tabbed shrinkText myTConf) + , layoutHook = avoidStruts $ smartBorders (tiled Tall ||| tiled Wide ||| Full ||| tabbed shrinkText myTConf) + , manageHook = manageHook defaultConfig <+> manageDocks } where tiled = HintedTile 1 0.03 0.5 @@ -39,6 +40,7 @@ sjanssenConfig = do ,((modm .|. shiftMask, xK_c ), kill1) ,((modm .|. shiftMask .|. controlMask, xK_c ), kill) ,((modm .|. shiftMask, xK_0 ), windows $ \w -> foldr copy w ws) + ,((modm, xK_b ), sendMessage ToggleStruts) ] myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10" |