From 8fc2edf1a9a2f60442031776a22d1b77d1a44936 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 25 Mar 2008 10:15:26 +0100 Subject: Remove gaps darcs-hash:20080325091526-a5988-e6ed58b0d493845525a4c7e5977352cfb12b9c92.gz --- XMonad/Core.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'XMonad/Core.hs') diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 397c39a..26f2617 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -79,7 +79,6 @@ data XConfig l = XConfig , layoutHook :: !(l Window) -- ^ The available layouts , manageHook :: !ManageHook -- ^ The action to run when a new window is opened , workspaces :: ![String] -- ^ The list of workspaces' names - , defaultGaps :: ![(Int,Int,Int,Int)] -- ^ The list of gaps, per screen , numlockMask :: !KeyMask -- ^ The numlock modifier , modMask :: !KeyMask -- ^ the mod modifier , keys :: !(XConfig Layout -> M.Map (ButtonMask,KeySym) (X ())) @@ -102,10 +101,8 @@ type WorkspaceId = String -- | Physical screen indices newtype ScreenId = S Int deriving (Eq,Ord,Show,Read,Enum,Num,Integral,Real) --- | The 'Rectangle' with screen dimensions and the list of gaps -data ScreenDetail = SD { screenRect :: !Rectangle - , statusGap :: !(Int,Int,Int,Int) -- ^ gaps on the sides of the screen that shouldn't be tiled, usually for status bars - } deriving (Eq,Show, Read) +-- | The 'Rectangle' with screen dimensions +data ScreenDetail = SD { screenRect :: !Rectangle } deriving (Eq,Show, Read) ------------------------------------------------------------------------ -- cgit v1.2.3