refactor: simplify key mappings in WeissWindowOperations.hs

WeissP · WeissP · commit 6be17421d863 · 2025-01-23T10:27:07.000+08:00
diff --git a/src/WeissWindowOperations.hs b/src/WeissWindowOperations.hs
@@ -40,20 +40,15 @@ rightHandMotionConf =
     { sKeys =
         PerScreenKeys
           ( Map.fromList
-              [ (0, [xK_f, xK_d, xK_s, xK_r, xK_e, xK_w])
-              , (1, [xK_x, xK_c, xK_v, xK_a])
+              [ (0, [xK_f, xK_d, xK_s, xK_r, xK_e, xK_w, xK_g, xK_t])
+              , (1, [xK_x, xK_c, xK_v, xK_b, xK_a, xK_z])
               ]
           )
     }
 leftHandMotionConf =
   easyMotionConf
     { sKeys =
-        PerScreenKeys
-          ( Map.fromList
-              [ (0, [xK_j, xK_k, xK_l, xK_u, xK_i, xK_o])
-              , (1, [xK_m, xK_n, xK_h, xK_y])
-              ]
-          )
+        AnyKeys [xK_j, xK_k, xK_l, xK_u, xK_i, xK_o, xK_m, xK_n, xK_h, xK_y]
     }
 
 weissSwap :: X ()

Original file line number	Diff line number	Diff line change
`@@ -40,20 +40,15 @@ rightHandMotionConf =`
`40`	`40`	`{ sKeys =`
`41`	`41`	`PerScreenKeys`
`42`	`42`	`( Map.fromList`
`43`		`- [ (0, [xK_f, xK_d, xK_s, xK_r, xK_e, xK_w])`
`44`		`- , (1, [xK_x, xK_c, xK_v, xK_a])`
	`43`	`+ [ (0, [xK_f, xK_d, xK_s, xK_r, xK_e, xK_w, xK_g, xK_t])`
	`44`	`+ , (1, [xK_x, xK_c, xK_v, xK_b, xK_a, xK_z])`
`45`	`45`	`]`
`46`	`46`	`)`
`47`	`47`	`}`
`48`	`48`	`leftHandMotionConf =`
`49`	`49`	`easyMotionConf`
`50`	`50`	`{ sKeys =`
`51`		`- PerScreenKeys`
`52`		`- ( Map.fromList`
`53`		`- [ (0, [xK_j, xK_k, xK_l, xK_u, xK_i, xK_o])`
`54`		`- , (1, [xK_m, xK_n, xK_h, xK_y])`
`55`		`- ]`
`56`		`- )`
	`51`	`+ AnyKeys [xK_j, xK_k, xK_l, xK_u, xK_i, xK_o, xK_m, xK_n, xK_h, xK_y]`
`57`	`52`	`}`
`58`	`53`
`59`	`54`	`weissSwap :: X ()`