diff options
author | David Roundy <droundy@darcs.net> | 2007-09-28 04:02:08 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-09-28 04:02:08 +0200 |
commit | 36b6cc3ace7c6b669db0133972452f47962bf9dd (patch) | |
tree | b6b3b52528a57ec68cda657259c0722398853878 /Operations.hs | |
parent | b81babddcd9820314dcf3de0df10dcba53fc70ad (diff) | |
download | xmonad-36b6cc3ace7c6b669db0133972452f47962bf9dd.tar.gz xmonad-36b6cc3ace7c6b669db0133972452f47962bf9dd.tar.xz xmonad-36b6cc3ace7c6b669db0133972452f47962bf9dd.zip |
define defaultLayout in Config.hs.
darcs-hash:20070928020208-72aca-ba2fa62ecf40abd9137c9632c7ee27525a62f48e.gz
Diffstat (limited to '')
-rw-r--r-- | Operations.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs index 180a874..1939ed2 100644 --- a/Operations.hs +++ b/Operations.hs @@ -20,7 +20,7 @@ module Operations where import XMonad import qualified StackSet as W -import {-# SOURCE #-} Config (borderWidth,logHook,numlockMask,defaultLayouts,otherPossibleLayouts) +import {-# SOURCE #-} Config (borderWidth,logHook,numlockMask,possibleLayouts) import Data.Maybe import Data.List (nub, (\\), find, partition) @@ -351,10 +351,10 @@ data ChangeLayout = NextLayout | PrevLayout | JumpToLayout String instance Message ChangeLayout instance ReadableSomeLayout Window where - defaults = SomeLayout (LayoutSelection defaultLayouts) : + defaults = SomeLayout (LayoutSelection []) : SomeLayout Full : SomeLayout (Tall 1 0.1 0.5) : SomeLayout (Mirror $ Tall 1 0.1 0.5) : - defaultLayouts ++ otherPossibleLayouts + possibleLayouts data LayoutSelection a = LayoutSelection [SomeLayout a] deriving ( Show, Read ) |