twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-14 19:55:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

XMonad.Actions.MouseGestures: reexport Direction from WindowNavigation, avoid type duplication

Browse Source
This commit is contained in:
Lukas Mai
2008-03-22 19:34:57 +00:00
parent b378857a8e
commit 180298def6
2 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Actions/MouseGestures.hs
View File

@@ -22,6 +22,7 @@ module XMonad.Actions.MouseGestures (
) where ) where
import XMonad import XMonad
import XMonad.Layout.WindowNavigation (Direction(..))
import Data.IORef import Data.IORef
import qualified Data.Map as M import qualified Data.Map as M
@@ -56,11 +57,6 @@ import Control.Monad
-- For detailed instructions on editing your mouse bindings, see -- For detailed instructions on editing your mouse bindings, see
-- "XMonad.Doc.Extending#Editing_mouse_bindings". -- "XMonad.Doc.Extending#Editing_mouse_bindings".
-- | The four cardinal screen directions. A \"gesture\" is a sequence of
-- directions.
data Direction = L | U | R | D
deriving (Eq, Ord, Show, Read, Enum, Bounded)
type Pos = (Position, Position) type Pos = (Position, Position)
delta :: Pos -> Pos -> Position delta :: Pos -> Pos -> Position

2
XMonad/Layout/WindowNavigation.hs
View File

@@ -67,7 +67,7 @@ data MoveWindowToWindow a = MoveWindowToWindow a a deriving ( Read, Show, Typeab
instance Typeable a => Message (MoveWindowToWindow a) instance Typeable a => Message (MoveWindowToWindow a)
data Navigate = Go Direction | Swap Direction | Move Direction deriving ( Read, Show, Typeable ) data Navigate = Go Direction | Swap Direction | Move Direction deriving ( Read, Show, Typeable )
data Direction = U | D | R | L deriving ( Read, Show, Eq ) data Direction = U | D | R | L deriving ( Read, Show, Eq, Ord, Enum, Bounded )
instance Message Navigate instance Message Navigate
data WNConfig = data WNConfig =