aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config/Sjanssen.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2008-01-30 07:46:24 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2008-01-30 07:46:24 +0100
commitd3426a6b42d8ddb0eba568813c8d19815df2eb8a (patch)
tree807247988d95b065f678b529366ff2fc0a857e6d /XMonad/Config/Sjanssen.hs
parent9e2027cb16109995efc979e6c2785d346e78f8c2 (diff)
downloadXMonadContrib-d3426a6b42d8ddb0eba568813c8d19815df2eb8a.tar.gz
XMonadContrib-d3426a6b42d8ddb0eba568813c8d19815df2eb8a.tar.xz
XMonadContrib-d3426a6b42d8ddb0eba568813c8d19815df2eb8a.zip
Various decorations related updates
* remove deprecated TConf stuff * Remove 'style' from DeConf * Change DeConf to Theme * share defaultTheme across all decorations darcs-hash:20080130064624-a5988-98fcf49dde956e318f801e934f2045cf94c951d5.gz
Diffstat (limited to 'XMonad/Config/Sjanssen.hs')
-rw-r--r--XMonad/Config/Sjanssen.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index a9c61fc..9707fec 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -13,6 +13,7 @@ import XMonad.Hooks.ManageDocks
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Util.Run (spawnPipe)
+import XMonad.Layout.DwmStyle
import qualified Data.Map as M
import System.IO (hPutStrLn)
@@ -29,7 +30,7 @@ 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 ||| tabDeco shrinkText myTConf)
+ , layoutHook = dwmStyle shrinkText myTheme $ avoidStruts $ smartBorders (tiled Tall ||| tiled Wide ||| Full ||| tabbed shrinkText myTheme)
, manageHook = manageHook defaultConfig <+> manageDocks
}
where
@@ -44,7 +45,7 @@ sjanssenConfig = do
]
myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10"
- myTConf = defaultTabbedConfig { fontName = myFont }
+ myTheme = defaultTheme { fontName = myFont }
myPromptConfig = defaultXPConfig
{ position = Top
, font = myFont