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

Inline tupadd function in A.GridSelect

Browse Source
This commit is contained in:
Adam Vogt
2009-11-01 19:03:12 +00:00
parent 54acce050f
commit 920bf15e04
1 changed files with 1 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Actions/GridSelect.hs
View File

@@ -237,9 +237,6 @@ diamondRestrict x y originX originY =
map (\(x', y') -> (x' + fromInteger originX, y' + fromInteger originY)) . map (\(x', y') -> (x' + fromInteger originX, y' + fromInteger originY)) .
take 1000 $ diamond 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 :: (Eq a) => a -> [(a, b)] -> Maybe (a, b)
findInElementMap pos = find ((== pos) . fst) 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) buildDefaultGSConfig col = GSConfig 50 130 10 col "xft:Sans-8" defaultGSNav (1/2) (1/2)
defaultGSNav :: NavigateMap 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_Left) ,(-1,0))
,((0,xK_h) ,(-1,0)) ,((0,xK_h) ,(-1,0))
,((0,xK_Right),(1,0)) ,((0,xK_Right),(1,0))