Update Sjanssen.hs

darcs-hash:20071205045648-a5988-f6e50ed3b58d6fa92bfc5151e9a1d1b6dae63ce6.gz

1 files changed, 7 insertions, 3 deletions

diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 40aab8b..4b1941c 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -3,8 +3,9 @@ module XMonad.Config.Sjanssen (sjanssenConfig) where
 
 import XMonad
 import qualified XMonad.StackSet as W
-import XMonad.Layouts
+import XMonad.Layouts hiding (Tall)
 import XMonad.Layout.Tabbed
+import XMonad.Layout.HintedTile
 import XMonad.Operations
 import XMonad.Config (defaultConfig)
 import XMonad.Layout.NoBorders
@@ -31,14 +32,17 @@ 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 ||| Mirror tiled ||| Full ||| tabbed shrinkText defaultTConf)
+        , layoutHook = smartBorders (tiled Tall ||| tiled Wide ||| Full ||| tabbed shrinkText myTConf)
         }
  where
-    tiled   = Tall 1 0.03 0.5
+    tiled   = HintedTile 1 0.03 0.5
 
     mykeys (XConfig {modMask = modm}) = M.fromList $
         [((modm,               xK_p     ), shellPrompt myPromptConfig)]
 
+    myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10"
+    myTConf = defaultTConf { fontName = myFont }
     myPromptConfig = defaultXPConfig
                         { position = Top
+                        , font = myFont
                         , promptBorderWidth = 0 }