@@ -46,62 +46,95 @@ caps_table =
4646 , ("kRIT", EvKey KRight [MShift])
4747 ]
4848
49+nav_keys_0 :: [([Char], (Key, [Modifier]))]
50+nav_keys_0 =
51+ [ k "G" KNP5
52+ , k "P" KPause
53+ , k "A" KUp
54+ , k "B" KDown
55+ , k "C" KRight
56+ , k "D" KLeft
57+ , k "H" KHome
58+ , k "F" KEnd
59+ , k "E" KBegin
60+ ]
61+ where k c s = ("\ESC["++c,(s,[]))
4962
50−-- | classify table for ANSI terminals
51−ansi_classify_table :: [[([Char], (Key, [Modifier]))]]
52−ansi_classify_table =
53− [ let k c s = ("\ESC["++c,(s,[])) in [ k "G" KNP5
54− , k "P" KPause
55− , k "A" KUp
56− , k "B" KDown
57− , k "C" KRight
58− , k "D" KLeft
59− , k "H" KHome
60− , k "F" KEnd
61− , k "E" KBegin
62− ],
63−
64− -- Support for arrows and KHome/KEnd
63+-- Support for arrows and KHome/KEnd
64+nav_keys_1 :: [([Char], (Key, [Modifier]))]
65+nav_keys_1 =
6566 [("\ESC[" ++ charCnt ++ show mc++c,(s,m))
6667 | charCnt <- ["1;", ""], -- we can have a count or not
6768 (m,mc) <- [([MShift],2::Int), ([MCtrl],5), ([MMeta],3),
6869 ([MShift, MCtrl],6), ([MShift, MMeta],4)], -- modifiers and their codes
6970 (c,s) <- [("A", KUp), ("B", KDown), ("C", KRight), ("D", KLeft), ("H", KHome), ("F", KEnd)] -- directions and their codes
70− ],
71−
72− let k n s = ("\ESC["++show n++"~",(s,[]))
73− in zipWith k [2::Int,3,5,6,1,4]
74− [KIns,KDel,KPageUp,KPageDown,KHome,KEnd],
75−
76− let k n s = ("\ESC["++show n++";5~",(s,[MCtrl]))
77− in zipWith k [2::Int,3,5,6,1,4]
78− [KIns,KDel,KPageUp,KPageDown,KHome,KEnd],
79−
80− -- Support for simple characters.
81− [ (x:[],(KASCII x,[])) | x <- map toEnum [0..255] ],
82−
83− -- Support for function keys (should use terminfo)
84− [ ("\ESC[["++[toEnum(64+i)],(KFun i,[])) | i <- [1..5] ],
85− let f ff nrs m = [ ("\ESC["++show n++"~",(KFun (n-(nrs!!0)+ff), m)) | n <- nrs ] in
86− concat [ f 6 [17..21] [], f 11 [23,24] [], f 1 [25,26] [MShift], f 3 [28,29] [MShift], f 5 [31..34] [MShift] ],
87− [ ('\ESC':[x],(KASCII x,[MMeta])) | x <- '\ESC':'\t':[' ' .. '\DEL'] ],
88−
89− -- Ctrl+Char
90− [ ([toEnum x],(KASCII y,[MCtrl]))
91− | (x,y) <- zip ([0..31]) ('@':['a'..'z']++['['..'_']),
92− y /= 'i' -- Resolve issue #3 where CTRL-i hides TAB.
93− ],
94−
95− -- Ctrl+Meta+Char
96− [ ('\ESC':[toEnum x],(KASCII y,[MMeta,MCtrl])) | (x,y) <- zip [0..31] ('@':['a'..'z']++['['..'_']) ],
71+ ]
72+
73+nav_keys_2 :: [([Char], (Key, [Modifier]))]
74+nav_keys_2 =
75+ let k n s = ("\ESC["++show n++"~",(s,[]))
76+ in zipWith k [2::Int,3,5,6,1,4]
77+ [KIns,KDel,KPageUp,KPageDown,KHome,KEnd]
78+
79+nav_keys_3 :: [([Char], (Key, [Modifier]))]
80+nav_keys_3 =
81+ let k n s = ("\ESC["++show n++";5~",(s,[MCtrl]))
82+ in zipWith k [2::Int,3,5,6,1,4]
83+ [KIns,KDel,KPageUp,KPageDown,KHome,KEnd]
84+
85+-- Support for simple characters.
86+simple_chars :: [([Char], (Key, [Modifier]))]
87+simple_chars = [ (x:[],(KASCII x,[])) | x <- map toEnum [0..255] ]
88+
89+-- Support for function keys (should use terminfo)
90+function_keys_0 :: [([Char], (Key, [Modifier]))]
91+function_keys_0 = [ ("\ESC[["++[toEnum(64+i)],(KFun i,[])) | i <- [1..5] ]
92+
93+function_keys_1 :: [([Char], (Key, [Modifier]))]
94+function_keys_1 =
95+ let f ff nrs m = [ ("\ESC["++show n++"~",(KFun (n-(nrs!!0)+ff), m)) | n <- nrs ] in
96+ concat [ f 6 [17..21] [], f 11 [23,24] [], f 1 [25,26] [MShift], f 3 [28,29] [MShift], f 5 [31..34] [MShift] ]
97+
98+function_keys_2 :: [([Char], (Key, [Modifier]))]
99+function_keys_2 = [ ('\ESC':[x],(KASCII x,[MMeta])) | x <- '\ESC':'\t':[' ' .. '\DEL'] ]
100+
101+-- Ctrl+Char
102+ctrl_char_keys :: [([Char], (Key, [Modifier]))]
103+ctrl_char_keys =
104+ [ ([toEnum x],(KASCII y,[MCtrl]))
105+ | (x,y) <- zip ([0..31]) ('@':['a'..'z']++['['..'_']),
106+ y /= 'i' -- Resolve issue #3 where CTRL-i hides TAB.
107+ ]
97108
98− -- Special support
99− [ -- special support for ESC
100− ("\ESC",(KEsc,[])) , ("\ESC\ESC",(KEsc,[MMeta])),
109+-- Ctrl+Meta+Char
110+ctrl_meta_keys :: [([Char], (Key, [Modifier]))]
111+ctrl_meta_keys =
112+ [ ('\ESC':[toEnum x],(KASCII y,[MMeta,MCtrl])) | (x,y) <- zip [0..31] ('@':['a'..'z']++['['..'_']) ]
113+
114+-- Special support
115+special_support_keys :: [([Char], (Key, [Modifier]))]
116+special_support_keys =
117+ [ -- special support for ESC
118+ ("\ESC",(KEsc,[])) , ("\ESC\ESC",(KEsc,[MMeta]))
119+ -- Special support for backspace
120+ , ("\DEL",(KBS,[])), ("\ESC\DEL",(KBS,[MMeta]))
121+ -- Special support for Enter
122+ , ("\ESC\^J",(KEnter,[MMeta])), ("\^J",(KEnter,[]))
123+ ]
101124
102− -- Special support for backspace
103− ("\DEL",(KBS,[])), ("\ESC\DEL",(KBS,[MMeta])),
125+-- | classify table for ANSI terminals
126+ansi_classify_table :: [[([Char], (Key, [Modifier]))]]
127+ansi_classify_table =
128+ [ nav_keys_0
129+ , nav_keys_1
130+ , nav_keys_2
131+ , nav_keys_3
132+ , simple_chars
133+ , function_keys_0
134+ , function_keys_1
135+ , function_keys_2
136+ , ctrl_char_keys
137+ , ctrl_meta_keys
138+ , special_support_keys
139+ ]
104140
105− -- Special support for Enter
106− ("\ESC\^J",(KEnter,[MMeta])), ("\^J",(KEnter,[])) ]
107− ]