From b7806ba7c9dde861a305c0202f3c9024120a0fa7 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Mon, 31 Mar 2008 03:01:27 +0200 Subject: move Direction type from WindowNavigation to ManageDocks (ManageDocks will move into the core, taking Direction with it) darcs-hash:20080331010127-bd4d7-972600c072354b2c07a227ade70d4abf80fe418c.gz --- XMonad/Layout/WindowNavigation.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'XMonad/Layout') diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs index f21d004..8c01df9 100644 --- a/XMonad/Layout/WindowNavigation.hs +++ b/XMonad/Layout/WindowNavigation.hs @@ -32,6 +32,8 @@ import XMonad.Layout.LayoutModifier import XMonad.Util.Invisible import XMonad.Util.XUtils +import XMonad.Hooks.ManageDocks (Direction(..)) + -- $usage -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: -- @@ -67,7 +69,6 @@ data MoveWindowToWindow a = MoveWindowToWindow a a deriving ( Read, Show, Typeab instance Typeable a => Message (MoveWindowToWindow a) data Navigate = Go Direction | Swap Direction | Move Direction deriving ( Read, Show, Typeable ) -data Direction = U | D | R | L deriving ( Read, Show, Eq, Ord, Enum, Bounded ) instance Message Navigate data WNConfig = -- cgit v1.2.3