From edf6b5e2a7a20c77740ea1e7f75523124456b748 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 5 Dec 2007 05:56:48 +0100 Subject: Update Sjanssen.hs darcs-hash:20071205045648-a5988-f6e50ed3b58d6fa92bfc5151e9a1d1b6dae63ce6.gz --- XMonad/Config/Sjanssen.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'XMonad/Config/Sjanssen.hs') 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 } -- cgit v1.2.3