diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-11-01 20:03:12 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-11-01 20:03:12 +0100 |
| commit | 3200334255a87f6528d8fe24b0a9622f5fa183c1 (patch) | |
| tree | 78def901c7d88885c0a40f5495e5be5ee6a9f178 | |
| parent | dcc077035c97f32cafc28e11c3d729eb49fbc527 (diff) | |
| download | XMonadContrib-3200334255a87f6528d8fe24b0a9622f5fa183c1.tar.gz XMonadContrib-3200334255a87f6528d8fe24b0a9622f5fa183c1.tar.xz XMonadContrib-3200334255a87f6528d8fe24b0a9622f5fa183c1.zip | |
Inline tupadd function in A.GridSelect
Ignore-this: 458968154303ab865c304f387d6ac83b
darcs-hash:20091101190312-1499c-a5e820382dbbbfca077f99f94e51b98ac3a2e760.gz
| -rw-r--r-- | XMonad/Actions/GridSelect.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 4d069ba..0419f7c 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -237,9 +237,6 @@ diamondRestrict x y originX originY = map (\(x', y') -> (x' + fromInteger originX, y' + fromInteger originY)) . take 1000 $ diamond -tupadd :: (Num t1, Num t) => (t, t1) -> (t, t1) -> (t, t1) -tupadd (a,b) (c,d) = (a+c,b+d) - findInElementMap :: (Eq a) => a -> [(a, b)] -> Maybe (a, b) findInElementMap pos = find ((== pos) . fst) @@ -487,7 +484,7 @@ buildDefaultGSConfig :: (a -> Bool -> X (String,String)) -> GSConfig a buildDefaultGSConfig col = GSConfig 50 130 10 col "xft:Sans-8" defaultGSNav (1/2) (1/2) defaultGSNav :: NavigateMap -defaultGSNav = M.map tupadd $ M.fromList +defaultGSNav = M.map (\(x,y) (a,b) -> (x+a,y+b)) $ M.fromList [((0,xK_Left) ,(-1,0)) ,((0,xK_h) ,(-1,0)) ,((0,xK_Right),(1,0)) |