From 8f006b4e5030f84c11661f62d72afe0c68fc849d Mon Sep 17 00:00:00 2001 From: Ilya Portnov Date: Thu, 12 May 2011 08:34:43 +0600 Subject: [PATCH] Update layouts: use LayoutBuilderP from xmonad-contribs. --- lib/Layouts.hs | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lib/Layouts.hs b/lib/Layouts.hs index b1f01bc..17fe481 100644 --- a/lib/Layouts.hs +++ b/lib/Layouts.hs @@ -5,6 +5,7 @@ import Data.Ratio ((%)) import XMonad hiding ((|||)) import XMonad.Hooks.ManageDocks hiding (L,R) +import XMonad.Util.WindowPropertiesRE -- Import contrib layouts import XMonad.Layout.AutoMaster @@ -32,15 +33,15 @@ import XMonad.Layout.Maximize import XMonad.Layout.Minimize import XMonad.Layout.Simplest import XMonad.Layout.Groups +import XMonad.Layout.LayoutBuilderP import qualified XMonad.Layout.WindowNavigation as Nav -import LayoutBuilderP import Themes -lugChats = Title "lug-mgn" `Or` Title "math" -xmonadChats = Title "xmonad" `Or` Title "#xmonad" -programmingChats = Title "programming" `Or` Title "haskell" `Or` Title "python" +lugChats = RE (Title "lug-mgn" `Or` Title "math") +xmonadChats = RE (Title "xmonad") +programmingChats = RE (Title "programming" `Or` Title "haskell" `Or` Title "python") fullscreenRect = Just $ relBox 0 0 1 1 -- 1.7.2.3