diff options
| author | Michal Minar <miminar@redhat.com> | 2015-08-02 15:00:38 +0200 |
|---|---|---|
| committer | Michal Minar <miminar@redhat.com> | 2015-08-02 15:00:38 +0200 |
| commit | 1b65350fc6ae21f430fe90060bd154fb06fad3c1 (patch) | |
| tree | 14f77eaa5dde3279082457ee59187d9b81532f2e /src/XMonad/Local/GridSelect.hs | |
| parent | faf2fe322a80c7ac84a5eb7de5506e28c4e25b2b (diff) | |
| download | xminad-1b65350fc6ae21f430fe90060bd154fb06fad3c1.tar.gz xminad-1b65350fc6ae21f430fe90060bd154fb06fad3c1.tar.xz xminad-1b65350fc6ae21f430fe90060bd154fb06fad3c1.zip | |
Styling fixes
Signed-off-by: Michal Minar <miminar@redhat.com>
Diffstat (limited to 'src/XMonad/Local/GridSelect.hs')
| -rw-r--r-- | src/XMonad/Local/GridSelect.hs | 52 |
1 files changed, 27 insertions, 25 deletions
diff --git a/src/XMonad/Local/GridSelect.hs b/src/XMonad/Local/GridSelect.hs index 359cda5..20dde76 100644 --- a/src/XMonad/Local/GridSelect.hs +++ b/src/XMonad/Local/GridSelect.hs @@ -28,30 +28,30 @@ gsConfig = defaultGSConfig $ shadowWithKeymap navKeyMap navHandler navKeyMap = M.fromList (allowModifs modifs - [ ((0,xK_Escape) , cancel) - , ((0,xK_Return) , select) - , ((0,xK_slash) , substringSearch navigation') - , ((0,xK_question) , substringSearch navigation') - , ((0,xK_Left) , move (-1,0) >> navigation') - , ((0,xK_h) , move (-1,0) >> navigation') - , ((0,xK_H) , move (-1,0) >> navigation') - , ((0,xK_Right) , move (1,0) >> navigation') - , ((0,xK_l) , move (1,0) >> navigation') - , ((0,xK_L) , move (1,0) >> navigation') - , ((0,xK_Down) , move (0,1) >> navigation') - , ((0,xK_j) , move (0,1) >> navigation') - , ((0,xK_J) , move (0,1) >> navigation') - , ((0,xK_Up) , move (0,-1) >> navigation') - , ((0,xK_k) , move (0,-1) >> navigation') - , ((0,xK_K) , move (0,-1) >> navigation') - , ((0,xK_n) , moveNext >> navigation') - , ((0,xK_N) , moveNext >> navigation') - , ((0,xK_p) , movePrev >> navigation') - , ((0,xK_P) , movePrev >> navigation') + [ ((0, xK_Escape) , cancel) + , ((0, xK_Return) , select) + , ((0, xK_slash) , substringSearch navigation') + , ((0, xK_question), substringSearch navigation') + , ((0, xK_Left) , move (-1, 0) >> navigation') + , ((0, xK_h) , move (-1, 0) >> navigation') + , ((0, xK_H) , move (-1, 0) >> navigation') + , ((0, xK_Right) , move (1 , 0) >> navigation') + , ((0, xK_l) , move (1 , 0) >> navigation') + , ((0, xK_L) , move (1 , 0) >> navigation') + , ((0, xK_Down) , move (0 , 1) >> navigation') + , ((0, xK_j) , move (0 , 1) >> navigation') + , ((0, xK_J) , move (0 , 1) >> navigation') + , ((0, xK_Up) , move (0 , -1) >> navigation') + , ((0, xK_k) , move (0 , -1) >> navigation') + , ((0, xK_K) , move (0 , -1) >> navigation') + , ((0, xK_n) , moveNext >> navigation') + , ((0, xK_N) , moveNext >> navigation') + , ((0, xK_p) , movePrev >> navigation') + , ((0, xK_P) , movePrev >> navigation') ] ++ allowModifs (drop 1 modifs) - [ ((0,xK_Tab) , moveNext >> navigation') - , ((shiftMask,xK_Tab) , moveNext >> navigation') + [ ((0, xK_Tab) , moveNext >> navigation') + , ((shiftMask, xK_Tab), moveNext >> navigation') ] ) modifs :: [KeyMask] @@ -59,9 +59,11 @@ gsConfig = defaultGSConfig , mod3Mask, mod4Mask, mod5Mask ] allowModifs :: [ KeyMask ] -> [((KeyMask, a), b)] -> [((KeyMask, a), b)] - allowModifs mods keymap = [ ((m .|. o, k), a) - | m <- map (foldl (.|.) 0) $ subsequences mods - , ((o, k), a) <- keymap ] + allowModifs mods keymap = + [ ((m .|. o, k), a) + | m <- map (foldl (.|.) 0) $ subsequences mods + , ((o, k), a) <- keymap + ] -- The navigation handler ignores unknown key symbols navHandler = const navigation' |