apl revision 1.1.1.3 1 // EXTRAS:
2 //
3 // APL Keyboard Layouts
4
5 // This file supports:
6 // - The Sharp APL for Unix (SAX) layout
7 // - The IBM APL2 layout
8 // - The Manugistics APL*PLUS II layout (version 5.1, 1993)
9 // - The Dyalog APL layout - with additions for box drawing and commands
10
11 // Unicode APL table: http://aplwiki.com/UnicodeAplTable
12 // ...and another: http://publibfp.boulder.ibm.com/epubs/pdf/h2110611.pdf (appendix A)
13 // Generic Unicode stuff: http://www.fileformat.info/info/unicode/category/index.htm
14
15 // Tim Nelson (this file's creator) says:
16
17 // This file doesn't deal with all the combining stuff -- I'm not an APL programmer,
18 // and am not quite sure what's needed here. However, it may be possible to get this
19 // working with dead keys and the like. Patches gratefully accepted.
20
21 // Some of the shift-key assignments may differ from the APL tradition. If
22 // that's not considered acceptable, it should be possible to remap the
23 // shift keys. I have striven, however, to ensure that the use of shift keys
24 // in these maps is at least self-consistent.
25
26 // I'm assuming that this will be used with another keyboard layout (i.e. for
27 // your language), with a special shift key to use these maps.
28
29 // 2011-12-22 Geoff Streeter <geoff (a] dyalog.com>,
30 // added the Dyalog support;
31 // corrected (what he thinks) are some errors:
32 // resolving the confusion between APL's and Unicode's concept of Left and Right tacks;
33 // unsure about some of the inheritance from APL2 into APLPLUS -- patches welcome;
34 // complied with freedesktop.org requirement that the keycodes be in sorted order,
35 // which leads to the bottom to top (roughly) definitions.
36
37 // The default layout still has to be the first one. Choosing the basic Dyalog layout is
38 // definitely better than using the "common" one. Choosing the complete Dyalog layout is
39 // not useful to non-Dyalog users.
40
41 default partial alphanumeric_keys
42 xkb_symbols "basic" {
43 include "apl(dyalog_base)" // forward reference good APL keyboard without Dyalogs extras
44
45 name[Group1]= "APL keyboard symbols";
46 };
47
48 //
49 //
50 // < = >
51 //
52 //
53 // ? ~ *
54 //
55 //
56 // _ '
57 //
58 //
59 // |
60 //
61 //
62 //
63 //
64
65 partial hidden alphanumeric_keys
66 xkb_symbols "common" {
67
68 key <AB01> { [ U2282 ] }; // Z: -- Subset Of
69 key <AB02> { [ U2283 ] }; // X: -- Superset Of
70 key <AB03> { [ U2229 ] }; // C: -- Intersection
71 key <AB04> { [ U222A ] }; // V: -- Union
72 key <AB05> { [ U22A5 ] }; // B: -- Up Tack
73 key <AB06> { [ U22A4 ] }; // N: -- Down Tack
74 key <AB07> { [ U007C ] }; // M: | -- Vertical Line
75
76 key <AC01> { [ U237A ] }; // A: -- APL Functional Symbol Alpha
77 key <AC02> { [ U2308 ] }; // S: -- Left Ceiling
78 key <AC03> { [ U230A ] }; // D: -- Left Floor
79 key <AC04> { [ underscore ] }; // F:
80 key <AC05> { [ U2207 ] }; // G: -- Nabla
81 key <AC06> { [ U2206 ] }; // H: -- Increment
82 key <AC07> { [ U2218 ] }; // J: -- Ring Operator
83 key <AC08> { [ apostrophe ] }; // K:
84 key <AC09> { [ U2395 ] }; // L: -- APL Functional Symbol Quad
85
86 key <AD01> { [ question ] }; // Q:
87 key <AD02> { [ U2375 ] }; // W: -- APL Functional Symbol Omega
88 key <AD03> { [ U220A ] }; // E: -- Small Element Of
89 key <AD04> { [ U2374 ] }; // R: -- APL Functional Symbol Rho
90 key <AD05> { [ asciitilde ] }; // T:
91 key <AD06> { [ U2191 ] }; // Y: -- Upwards Arrow
92 key <AD07> { [ U2193 ] }; // U: -- Downwards Arrow
93 key <AD08> { [ U2373 ] }; // I: -- APL Functional Symbol Iota
94 key <AD09> { [ U25CB ] }; // O: -- White Circle
95 key <AD10> { [ asterisk ] }; // P: * -- asterisk
96 key <AD11> { [ U2190 ] }; // [: -- Leftwards Arrow
97
98 key <AE01> { [ diaeresis ] };
99 key <AE02> { [ U00AF ] }; // -- Macron
100 key <AE03> { [ less ] };
101 key <AE04> { [ U2264 ] }; // -- Less-than Or Equal To
102 key <AE05> { [ equal ] };
103 key <AE06> { [ U2265 ] }; // -- Greater-than Or Equal To
104 key <AE07> { [ greater ] };
105 key <AE08> { [ U2260 ] }; // -- Not Equal To
106 key <AE09> { [ U2228 ] }; // -- Logical Or
107 key <AE10> { [ U2227 ] }; // -- Logical And
108 };
109
110 // Keys common to a number of keyboards that allow normal language usage alongside APL
111
112 //
113 //
114 // < = >
115 //
116 //
117 // ? ~ *
118 //
119 //
120 // _ '
121 //
122 //
123 // |
124 //
125 //
126 //
127 //
128
129 partial alphanumeric_keys
130 xkb_symbols "unified" {
131 name[Group1]= "APL keyboard symbols (unified)";
132
133 include "apl(common)"
134
135 key <AD12> { [ U2192 ] }; // ]: -- Rightwards Arrow
136 key <AE09> { [ NoSymbol, U2371 ] }; // 9: -- APL Functional Symbol Down Caret Tilde
137 key <AE10> { [ NoSymbol, U2372 ] }; // 0: -- APL Functional Symbol Up Caret Tilde
138 key <AE11> { [ U00D7 ] }; // -: -- Multiplication Sign
139 key <AE12> { [ U00F7, U2339 ] }; // =: -- Division Sign / APL Functional Symbol Quad Divide
140 key <TLDE> { [ U22C4 ] }; // `: -- Diamond Operator
141 };
142
143 // Layout: http://www.wickensonline.co.uk/apl-unicomp.html
144
145 //
146 //
147 // < = >
148 //
149 //
150 // ? ~ *
151 //
152 //
153 // _ '
154 //
155 //
156 // |
157 //
158 //
159 //
160 //
161
162 partial alphanumeric_keys
163 xkb_symbols "sax" {
164 name[Group1]= "APL keyboard symbols (sax)";
165
166 include "apl(unified)"
167
168 key <AB03> { [ NoSymbol, U235D ] }; // C: -- APL Functional Symbol Up Shoe Jot
169 key <AB05> { [ NoSymbol, U234E ] }; // B: -- APL Functional Symbol Down Tack Jot (Unicode got the name wrong; it should have been "Up Tack")
170 key <AB06> { [ NoSymbol, U2355 ] }; // N: -- APL Functional Symbol Up Tack Jot (Unicode got the name wrong; it should have been "Down Tack")
171 key <AB07> { [ NoSymbol, U2336 ] }; // M: -- APL Functional Symbol I-Beam
172 key <AB08> { [ U235E, U236A ] }; // ,: -- APL Functional Symbol Quote Quad / APL Functional Symbol Comma Bar
173 key <AB09> { [ U234E, U2359 ] }; // .: -- [See B key] / APL Functional Symbol Delta Underbar
174 key <AB10> { [ U2355, U233F ] }; // /: -- [See N key] / APL Functional Symbol Slash Bar
175
176 key <AC01> { [ NoSymbol, U2296 ] }; // A: -- Circled Minus
177 key <AC04> { [ NoSymbol, U236B ] }; // F: -- APL Functional Symbol Del Tilde
178 key <AC05> { [ NoSymbol, U2352 ] }; // G: -- APL Functional Symbol Del Stile
179 key <AC06> { [ NoSymbol, U234B ] }; // H: -- APL Functional Symbol Delta Stile
180 key <AC07> { [ NoSymbol, U2364 ] }; // J: -- APL Functional Symbol Jot Diaeresis
181 key <AC08> { [ NoSymbol, U233B ] }; // K:
182 key <AC09> { [ NoSymbol, U235E ] }; // L: -- APL Functional Symbol Quote Quad
183 key <AC10> { [ U22A2 ] }; // ;: -- Right Tack
184 key <AC11> { [ U22A3 ] }; // ': -- Left Tack
185
186 key <AD01> { [ NoSymbol, U00BF ] }; // Q: -- Inverted Question Mark
187 key <AD02> { [ NoSymbol, U233D ] }; // W: -- APL Functional Symbol Circle Stile
188 key <AD03> { [ NoSymbol, U2377 ] }; // E: -- APL Functional Symbol Epsilon Underbar
189 key <AD05> { [ NoSymbol, U2349 ] }; // T: -- APL Functional Symbol Circle Backslash
190 key <AD08> { [ NoSymbol, U2378 ] }; // I: -- APL Functional Symbol Iota Underbar
191 key <AD09> { [ NoSymbol, U2365 ] }; // O: -- APL Functional Symbol Circle Diaeresis
192 key <AD10> { [ NoSymbol, U235F ] }; // P: -- APL Functional Symbol Circle Star
193 key <AE01> { [ NoSymbol, U00A1 ] }; // 1: -- Inverted Exclamation Mark
194 key <AE04> { [ NoSymbol, cent ] }; // 4:
195 key <AE08> { [ NoSymbol, U2342 ] }; // 8: -- APL Functional Symbol Quad Backslash
196 key <AE11> { [ NoSymbol, U2261 ] }; // -: -- Identical To
197
198 key <BKSL> { [ U235D, U2340 ] }; // \: -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Backslash Bar
199 };
200
201 // Layout: http://www.wickensonline.co.uk/apl-unicomp.html
202
203 //
204 // !
205 // -
206 // < = > +
207 //
208 //
209 //
210 // ? ~ *
211 //
212 //
213 // ( )
214 // _ ' [ ]
215 //
216 //
217 // ; : \
218 // | , . /
219 //
220 //
221 //
222 //
223
224 partial alphanumeric_keys
225 xkb_symbols "apl2" {
226 name[Group1]= "APL keyboard symbols (IBM APL2)";
227
228 include "apl(common)"
229
230 // The first column is NoSymbol because it inherits. The second is NoSymbol because those keys don't do anything
231 // AFS - short for APL Functional Symbol
232
233 key <AB08> { [ comma, semicolon, U235D ] }; // ,: -- AFS Up Shoe Jot
234 key <AB09> { [ period, colon, U2340 ] }; // .: -- AFS Backslash Bar
235 key <AB10> { [ slash, backslash, U233F ] }; // /: -- AFS Slash Bar
236
237 key <AC10> { [ bracketleft, parenleft, U234E ] }; // ;: -- [See B key in SAX layout]
238 key <AC11> { [ bracketright, parenright, U2355 ] }; // ': -- [See N key in SAX layout]
239
240 key <AD11> { [ NoSymbol, U2192, U235E ] }; // [: () -- Rightwards Arrow / AFS Quote Quad
241 key <AD12> { [ U2337, U2378, U2359 ] }; // ]: -- AFS Squish Quad / AFS Iota Underbar / AFS Delta Underbar
242
243 key <AE01> { [ NoSymbol, NoSymbol, U2336 ] }; // 1: -- AFS I-Beam
244 key <AE02> { [ NoSymbol, NoSymbol, U236B ] }; // 2: -- AFS Del Tilde
245 key <AE03> { [ NoSymbol, NoSymbol, U2353 ] }; // 3: -- AFS Del Stile
246 key <AE04> { [ NoSymbol, NoSymbol, U234B ] }; // 4: -- AFS Delta Stile
247 key <AE05> { [ NoSymbol, NoSymbol, U233D ] }; // 5: -- AFS Circle Stile
248 key <AE06> { [ NoSymbol, NoSymbol, U2349 ] }; // 6: -- AFS Circle Backslash
249 key <AE07> { [ NoSymbol, NoSymbol, U2296 ] }; // 7: -- Circled Minus
250 key <AE08> { [ NoSymbol, NoSymbol, U235F ] }; // 8: -- AFS Circle Star
251 key <AE09> { [ NoSymbol, NoSymbol, U2371 ] }; // 9: -- AFS Down Caret Tilde
252 key <AE10> { [ NoSymbol, NoSymbol, U2372 ] }; // 0: -- AFS Up Caret Tilde
253 key <AE11> { [ plus, minus, exclam ] }; // -:
254 key <AE12> { [ U00D7, U00F7, U2339 ] }; // =: -- Multiplication Sign / Division Sign / AFS Quad Divide
255
256 key <BKSL> { [ U2261, U2377, U2364 ] }; // \: -- Identical To / AFS Epsilon Underbar / AFS Jot Diaeresis
257
258 key <TLDE> { [ NoSymbol, U233B, U2342 ] }; // `: --
259
260 include "level3(ralt_switch)"
261 };
262
263 //
264 // !
265 // -
266 // $ < = > +
267 //
268 //
269 //
270 // ? ~ *
271 //
272 //
273 // ( )
274 // _ ' [ ]
275 //
276 //
277 // ; : \
278 // | , . /
279 //
280 //
281 //
282 //
283
284 partial alphanumeric_keys
285 xkb_symbols "aplplusII" {
286 // AFS - short for APL Functional Symbol
287
288 include "apl(apl2)"
289 name[Group1]= "APL keyboard symbols (Manugistics APL*PLUS II)";
290
291 key <AC10> { [ bracketleft, parenleft, U234E ] }; // ;: -- [See B key in SAX layout]
292 key <AC11> { [ bracketright, parenright, U2355 ] }; // ': -- [See N key in SAX layout]
293 key <AD11> { [ U2190, NoSymbol, U235E ] }; // [: -- Leftwards Arrow / AFS Quote Quad
294 key <AD12> { [ U2192, NoSymbol, U236C ] }; // ]: -- Rightwards Arrow / AFS Zilde
295 key <AE01> { [ NoSymbol, NoSymbol, U2261 ] }; // 1: -- Identical To
296 key <BKSL> { [ U22A2, U22A3, U2359 ] }; // \: -- Left Tack / Right Tack / AFS Delta Underbar
297 key <TLDE> { [ dollar, U22C4, U236A ] }; // `: -- Diamond Operator / AFS Comma Bar
298 };
299
300
301 // MicroAPL layout: http://aplwiki.com/APLXKeyboardLayouts
302 // I didn't do the old-style MicroAPL layout; patches gratefully accepted
303
304 //
305 // !
306 // < = >
307 //
308 //
309 // ? ~ *
310 //
311 //
312 // _ '
313 //
314 //
315 // |
316 //
317 //
318 //
319 //
320
321 partial alphanumeric_keys
322 xkb_symbols "aplx" {
323 include "apl(unified)"
324
325 name[Group1]= "APL keyboard symbols (APLX unified)";
326
327 key <AB08> { [ U235D, U236A ] }; // ,: -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Comma Bar
328 key <AB09> { [ U2340, U2364 ] }; // .: -- APL Functional Symbol Backslash Bar / APL Functional Symbol Jot Diaeresis
329 key <AB10> { [ U233F ] }; // /: -- APL Functional Symbol Slash Bar
330
331 key <AC10> { [ U234E, U2261 ] }; // ;: -- [See B key in SAX layout] / Identical To
332 key <AC11> { [ U2355, U2262 ] }; // ': -- [See N key in SAX layout] / Not Identical To
333
334 key <AD11> { [ NoSymbol, U2347 ] }; // [: -- Box With Left Arrow
335 key <AD12> { [ NoSymbol, U2348 ] }; // ]: -- Box With Right Arrow
336
337 key <AE01> { [ NoSymbol, U2336 ] }; // 1: -- APL Functional Symbol I-Beam
338 key <AE02> { [ NoSymbol, U236B ] }; // 2: -- APL Functional Symbol Del Tilde
339 key <AE03> { [ NoSymbol, U2353 ] }; // 3: -- APL Functional Symbol Del Stile
340 key <AE04> { [ NoSymbol, U234B ] }; // 4: -- APL Functional Symbol Delta Stile
341 key <AE05> { [ NoSymbol, U233D ] }; // 5: -- APL Functional Symbol Circle Stile
342 key <AE06> { [ NoSymbol, U2349 ] }; // 6: -- APL Functional Symbol Circle Backslash
343 key <AE07> { [ NoSymbol, U2296 ] }; // 7: -- Circled Minus
344 key <AE08> { [ NoSymbol, U235F ] }; // 8: -- APL Functional Symbol Circle Star
345 key <AE11> { [ NoSymbol, exclam ] }; // -:
346
347 key <BKSL> { [ U22A2, U22A3 ] }; // \: -- Right Tack / Left Tack
348
349 key <TLDE> { [ NoSymbol, U235E ] }; // `: -- APL Functional Symbol Quote Quad
350 };
351
352 // APL language support for the Dyalog keyboard.
353 // Dyalog Ltd sells this keyboard with APL engravings. The current model is
354 // engraved on a Cherry G80. Base languages for US, UK and DK are available.
355
356 // Geoff Streeter, Dyalog Ltd. 2007-09-03 <geoff (a] dyalog.com>
357 // extended for APL special actions 2008-09-09
358 // added a variant 2010-11-26
359
360 // The intention is that this keyboard layout overlays a base keyboard that provides
361 // the alphabet and similar. If this keyboard is placed as the 2nd layout then it can
362 // be reached with a latching shift to increase group by one.
363
364 partial hidden alphanumeric_keys
365 xkb_symbols "dyalog_base" {
366
367 //
368 // !
369 // < = >
370 //
371 //
372 // ? ~ *
373 //
374 //
375 // _ '
376 //
377 //
378 // |
379 //
380 //
381 //
382 //
383
384 key <AB01> { [ U2282 ] }; // subset of
385 key <AB02> { [ U2283 ] }; // superset of
386 key <AB03> { [ U2229 ] }; // intersection
387 key <AB04> { [ U222A ] }; // union
388 key <AB05> { [ U22a5 ] }; // up tack
389 key <AB06> { [ U22a4 ] }; // down tack
390 key <AB07> { [ U007c ] }; // vertical line
391 key <AB08> { [ U235d, U236a ] }; // up shoe jot, comma bar
392 key <AB09> { [ U2340, U2359 ] }; // backslash bar, delta underbar
393 key <AB10> { [ U233f, U2360 ] }; // slash bar, quad colon
394 key <AC01> { [ U237a ] }; // alpha
395 key <AC02> { [ U2308 ] }; // left ceiling
396 key <AC03> { [ U230a ] }; // left floor
397 key <AC04> { [ underscore ] }; // low line
398 key <AC05> { [ U2207 ] }; // nabla
399 key <AC06> { [ U2206 ] }; // increment
400 key <AC07> { [ U2218, U2364 ] }; // ring operator, jot diaeresis
401 key <AC08> { [ apostrophe ] };
402 key <AC09> { [ U2395, U2337 ] }; // quad, squish quad
403 key <AC10> { [ U234e, U2261 ] }; // up tack jot, identical to
404 key <AC11> { [ U2355, U2262 ] }; // down tack jot, not identical to
405 key <AD01> { [ question ] };
406 key <AD02> { [ U2375 ] }; // omega
407 key <AD03> { [ U220a, U2377 ] }; // small element of, epsilon underbar
408 key <AD04> { [ U2374 ] }; // rho
409 key <AD05> { [ asciitilde, U2368 ] }; // tilde, tilde diaeresis
410 key <AD06> { [ U2191 ] }; // upwards arrow
411 key <AD07> { [ U2193 ] }; // downwards arrow
412 key <AD08> { [ U2373, U2378 ] }; // iota, iota underbar
413 key <AD09> { [ U25cb, U2365 ] }; // circle, circle diaeresis
414 key <AD10> { [ asterisk, U2363 ] }; // asterisk, star diaeresis
415 key <AD11> { [ U2190, U235e ] }; // left arrow, quote quad
416 key <AD12> { [ U2192, U236c ] }; // right arrow, zilde
417 key <AE01> { [ diaeresis, U2336 ] }; // i-beam
418 key <AE02> { [ overbar, U236B ] }; // deltilde
419 key <AE03> { [ less, U2352 ] }; // downgrade
420 key <AE04> { [ U2264, U234b ] }; // lesseq upgrade
421 key <AE05> { [ equal, U233d ] }; // circlestile
422 key <AE06> { [ U2265, U2349 ] }; // greatereq circleslope
423 key <AE07> { [ greater, U2296 ] }; // circlebar
424 key <AE08> { [ U2260, U235f ] }; // notequal, circlestar
425 key <AE09> { [ U2228, U2371 ] }; // logical or, down caret tilde
426 key <AE10> { [ U2227, U2372 ] }; // logical and, up caret tilde
427 key <AE11> { [ multiply, exclam ] };
428 key <AE12> { [ division, U2339 ] }; // quad divide
429 key <BKSL> { [ U22a2, U22a3 ] }; // right tack, left tack
430 key <TLDE> { [ U22c4 ] }; // diamond
431 };
432
433 partial hidden keypad_keys
434 xkb_symbols "dyalog_box" {
435
436 //
437 //
438 //
439 //
440 //
441 //
442 //
443 //
444 //
445 //
446 //
447
448 key <KP0> { [ U2500 ] }; // box drawing light horizontal
449 key <KP1> { [ U2514 ] }; // box drawing light up and right
450 key <KP2> { [ U2534 ] }; // box drawing light up and horizontal
451 key <KP3> { [ U2518 ] }; // box drawing light up and left
452 key <KP4> { [ U251c ] }; // box drawing light veritcal and right
453 key <KP5> { [ U253c ] }; // box drawing light veritcal and horizontal
454 key <KP6> { [ U2524 ] }; // box drawing light veritcal and left
455 key <KP7> { [ U250c ] }; // box drawing light down and right
456 key <KP8> { [ U252c ] }; // box drawing light down and horizontal
457 key <KP9> { [ U2510 ] }; // box drawing light down and left
458 key <KPDL> { [ U2502 ] }; // box drawing light vertical
459
460 };
461
462 partial hidden
463 xkb_symbols "dyalog_codes" {
464
465 // Layout of private use area for this. In the style of the Unicode book
466 //
467 // APL special actions F800-F88F
468 //
469 // F800 F810 F820 F830 F840 F850 F860 F870 F880
470 //
471 // 0QT LL BK FX Rc BP PA
472 //
473 // 1ER HO ZM LN LW AB
474 //
475 // 2TB CT SC MC RW HT
476 //
477 // 3BT PT RP MR Lw TH
478 //
479 // 4EP IN NX JP Rw RM
480 //
481 // 5UC II PV D1 Uc CB
482 //
483 // 6DC DI RT D2 Dc PR TO
484 //
485 // 7RC DP RA D3 Ll SR MO
486 //
487 // 8LC DB ED D4 Rl
488 //
489 // 9US RD TC D5 Ul TL
490 //
491 // ADS TG NB U1 Dl UA
492 //
493 // BRS DK NS U2 Us AO
494 //
495 // CLS OP ST U3 Ds DO
496 //
497 // DUL CP EN U4 DD GL S1
498 //
499 // EDL MV IF U5 DH CH S2
500 //
501 // FRL FD HK Lc BH PU OS
502 //
503 //
504 // APL Function Keys F700-F7FF
505 //
506 // F700 ... ... F7F0
507 // ....
508 // 0F0 F16 F32 F48 F192F208F224F240
509 // .
510 // .
511 // .
512 // FF15 F31 F47 F63 F207F223F239F255
513 // ....
514 //
515 // whilst these locations are defined. Dyalog's "aplkeys/xterm" file copes with
516 // normal function keys from the base keyboard rather than this overlay.
517
518 //
519 // ZM
520 // QT ZM
521 //
522
523 //
524 // CB
525 // BP
526 //
527 // BT
528 // TB
529 //
530 // TC
531 // ED
532 //
533 //
534 //
535 //
536 // MO
537 // TO
538 //
539
540 key <BKSP> { [ Uf850, Uf855 ] }; // BP CB
541 key <ESC> { [ Uf800 ] }; // QT
542 key <FK11> { [ Uf821, Uf821 ] }; // ZM, ZM put this on both, the unshifted one sometimes gets lost
543 key <RTRN> { [ Uf828, Uf829 ] }; // ED, TC
544 key <SPCE> { [ Uf886, Uf887 ] }; // TO, MO
545 key <TAB> { [ Uf802, Uf803 ] }; // TB, BT
546
547 //
548 //
549 // BK
550 //
551 // BH RM
552 // PV FD NX
553 //
554
555 key <DOWN> { [ Uf81f ] }; // FD
556 key <LEFT> { [ Uf825, Uf84f ] }; // PV, BH
557 key <RGHT> { [ Uf824, Uf854 ] }; // NX, RM
558 key <UP> { [ Uf820 ] }; // BK
559
560 //
561 // PT LL UL
562 // CP LS US
563 //
564 // CT RL DL
565 // DK RS DS
566 //
567
568 key <DELE> { [ Uf81b, Uf812 ] }; // DK, CT
569 key <END> { [ Uf80b, Uf80f ] }; // RS, RL
570 key <HOME> { [ Uf80c, Uf810 ] }; // LS, LL
571 key <INS> { [ Uf81d, Uf813 ] }; // CP, PT
572 key <PGDN> { [ Uf80a, Uf80e ] }; // DS, DL
573 key <PGUP> { [ Uf809, Uf80d ] }; // US, UL
574
575 //
576 // RD TG LN
577 //
578 //
579 // TL
580 //
581 //
582 //
583 //
584 //
585 //
586
587 key <KPAD> { [ Uf859 ] }; // TL
588 key <KPDV> { [ Uf819 ] }; // RD
589 key <KPMU> { [ Uf81a ] }; // TG
590 key <KPSU> { [ Uf831 ] }; // LN
591 };
592
593 xkb_symbols "dyalog" {
594 include "apl(dyalog_base)"
595 include "apl(dyalog_box)"
596 include "apl(dyalog_codes)"
597 name[Group1] = "APL keyboard symbols (Dyalog)";
598 };
599