From c1a6ed7be8b090cea63a70fa86ee614d011d0f63 Mon Sep 17 00:00:00 2001
From: Daniel Schoepe <daniel.schoepe@gmail.com>
Date: Sat, 19 Sep 2009 21:17:17 +0200
Subject: Factor out direction types and put them in X.U.Types

Ignore-this: b2255ec2754fcdf797b1ce2c082642ba

This patch factors out commonly used direction types like
data Direction

darcs-hash:20090919191717-7f603-09c283e51a0b886d260008676d71e3daf31f4394.gz
---
 XMonad/Prompt.hs | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'XMonad/Prompt.hs')

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 3467693..2c51226 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -33,7 +33,7 @@ module XMonad.Prompt
     , pasteString, copyString
     , moveWord, killWord, deleteString
     , moveHistory, setSuccess, setDone
-    , Direction (..)
+    , Direction1D(..)
     , ComplFunction
     -- * X Utilities
     -- $xutils
@@ -65,6 +65,7 @@ import Prelude hiding (catch)
 import XMonad  hiding (config, io)
 import qualified XMonad.StackSet as W
 import XMonad.Util.Font
+import XMonad.Util.Types
 import XMonad.Util.XSelection (getSelection, putSelection)
 
 import Control.Arrow ((&&&),first)
@@ -374,8 +375,6 @@ tryAutoComplete = do
 
 -- KeyPresses
 
-data Direction = Prev | Next deriving (Eq,Show,Read)
-
 defaultXPKeymap :: M.Map (KeyMask,KeySym) (XP ())
 defaultXPKeymap = M.fromList $
   map (first $ (,) controlMask) -- control + <key>
@@ -443,7 +442,7 @@ killAfter =
   modify $ \s -> setCommand (take (offset s) (command s)) s
 
 -- | Kill the next\/previous word
-killWord :: Direction -> XP ()
+killWord :: Direction1D -> XP ()
 killWord d = do
   o <- gets offset
   c <- gets command
@@ -492,7 +491,7 @@ copyString :: XP ()
 copyString = gets command >>= io . putSelection
 
 -- | Remove a character at the cursor position
-deleteString :: Direction -> XP ()
+deleteString :: Direction1D -> XP ()
 deleteString d =
   modify $ \s -> setCommand (c (command s) (offset s)) $ s { offset = o (offset s)}
   where o oo = if d == Prev then max 0 (oo - 1) else oo
@@ -504,13 +503,13 @@ deleteString d =
             where (f,ss) = splitAt oo oc
 
 -- | move the cursor one position
-moveCursor :: Direction -> XP ()
+moveCursor :: Direction1D -> XP ()
 moveCursor d =
   modify $ \s -> s { offset = o (offset s) (command s)}
   where o oo c = if d == Prev then max 0 (oo - 1) else min (length c) (oo + 1)
 
 -- | move the cursor one word
-moveWord :: Direction -> XP ()
+moveWord :: Direction1D -> XP ()
 moveWord d = do
   c <- gets command
   o <- gets offset
-- 
cgit v1.2.3