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 (Version 5.1, 1993) keyboard layout
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// [Geoff Streeter: What has been done to is to support all of the APL overstrikes in the compose table]
21
22// Some of the shift-key assignments may differ from the APL tradition.  If
23// that's not considered acceptable, it should be possible to remap the
24// shift keys.  I have striven, however, to ensure that the use of shift keys
25// in these maps is at least self-consistent.
26
27// I'm assuming that this will be used with another keyboard layout (ie. for
28// your language), with a special shift key to use these maps.
29
30// 2018-07-02 added some codes to the Unicode Private Use page.
31// 2017-02-27 changed ¤ to ⌺, added ⊆
32// 2012-09-26 changed "overbar" to macron which fixed some strangeness in xterm
33
34// 2011-12-22 Geoff Streeter: geoff@dyalog.com
35// Added the Dyalog support.
36// Corrected (what he thinks) are some errors.
37// 	Resolving the confusion between APL's and Unicode's concept of Left and Right tacks.
38// 	Unsure about some of the inheritance from APL2 into APLPLUS. Patches welcome.
39// Complied with freedesktop.org requirement that the keycodes be in sorted order. Which
40// leads to the bottom to top (roughly) definitions.
41
42// default layout seems to have to be the first one. Choosing the basic Dyalog layout is definitely
43// better than using the "common" one. Choosing the complete Dyalog layout is not useful to non-Dyalog
44// users.
45
46default partial alphanumeric_keys
47xkb_symbols "basic" {
48
49	include "apl(dyalog_base)"	// forward reference to a good APL keyboard without Dyalogs extras
50
51	name[Group1]="APL";
52};
53
54// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
55// │     │     │     │     │     │     │     │     │     │     │     │     │     ┃         ┃
56// │     │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │     │     ┃         ┃
57// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
58// ┃       ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
59// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │     ┃       ┃
60// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
61// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃      ┃
62// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │     │     │     ┃      ┃
63// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
64// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
65// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │     │     │     ┃             ┃
66// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
67// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
68// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
69// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
70
71hidden partial alphanumeric_keys
72xkb_symbols "common" {
73
74	key <AB01> { [	U2282		] }; // Z: ⊂ -- Subset Of
75	key <AB02> { [	U2283		] }; // X: ⊃ -- Superset Of
76	key <AB03> { [	U2229		] }; // C: ∩ -- Intersection
77	key <AB04> { [	U222A		] }; // V: ∪ -- Union
78	key <AB05> { [	U22A5		] }; // B: ⊥ -- Up Tack
79	key <AB06> { [	U22A4		] }; // N: ⊤ -- Down Tack
80	key <AB07> { [	U007C		] }; // M: | -- Vertical Line
81
82	key <AC01> { [	U237A		] }; // A: ⍺ -- APL Functional Symbol Alpha
83	key <AC02> { [	U2308		] }; // S: ⌈ -- Left Ceiling
84	key <AC03> { [	U230A		] }; // D: ⌊ -- Left Floor
85	key <AC04> { [	underscore	] }; // F:
86	key <AC05> { [	U2207		] }; // G: ∇ -- Nabla
87	key <AC06> { [	U2206		] }; // H: ∆ -- Increment
88	key <AC07> { [	U2218		] }; // J: ∘ -- Ring Operator
89	key <AC08> { [	apostrophe 	] }; // K:
90	key <AC09> { [	U2395		] }; // L: ⎕ -- APL Functional Symbol Quad
91
92	key <AD01> { [	question	] }; // Q:
93	key <AD02> { [	U2375		] }; // W: ⍵ -- APL Functional Symbol Omega
94	key <AD03> { [	U220A		] }; // E: ∊ -- Small Element Of
95	key <AD04> { [	U2374		] }; // R: ⍴ -- APL Functional Symbol Rho
96	key <AD05> { [	asciitilde	] }; // T:
97	key <AD06> { [	U2191		] }; // Y: ↑ -- Upwards Arrow
98	key <AD07> { [	U2193		] }; // U: ↓ -- Downwards Arrow
99	key <AD08> { [	U2373		] }; // I: ⍳ -- APL Functional Symbol Iota
100	key <AD09> { [	U25CB		] }; // O: ○ -- White Circle
101	key <AD10> { [	asterisk	] }; // P: * -- asterisk
102	key <AD11> { [	U2190		] }; // [: ← -- Leftwards Arrow
103
104	key <AE01> { [	diaeresis	] };
105	key <AE02> { [	macron		] }; // ¯ -- Macron
106	key <AE03> { [	less		] };
107	key <AE04> { [	U2264		] }; // ≤ -- Less-than Or Equal To
108	key <AE05> { [	equal		] };
109	key <AE06> { [	U2265		] }; // ≥ -- Greater-than Or Equal To
110	key <AE07> { [	greater		] };
111	key <AE08> { [	U2260		] }; // ≠ -- Not Equal To
112	key <AE09> { [	U2228		] }; // ∨ -- Logical Or
113	key <AE10> { [	U2227		] }; // ∧ -- Logical And
114};
115
116// Keys common to a number of keyboards that allow normal language usage alongside APL
117
118// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
119// │     │     │     │     │     │     │     │     │     │ ⍱   │ ⍲   │     │  ⌹  ┃         ┃
120// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  ×  │  ÷  ┃         ┃
121// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
122// ┃       ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
123// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
124// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
125// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃      ┃
126// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │     │     │     ┃      ┃
127// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
128// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
129// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │     │     │     ┃             ┃
130// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
131// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
132// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
133// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
134
135partial alphanumeric_keys
136xkb_symbols "unified" {
137
138	include "apl(common)"
139
140	name[Group1]= "APL symbols (unified)";
141
142	key <AD12> { [ U2192			] }; // ]: → -- Rightwards Arrow
143	key <AE09> { [ NoSymbol,	U2371	] }; // 9: ⍱ -- APL Functional Symbol Down Caret Tilde
144	key <AE10> { [ NoSymbol,	U2372	] }; // 0: ⍲ -- APL Functional Symbol Up Caret Tilde
145	key <AE11> { [ U00D7			] }; // -: × -- Multiplication Sign
146	key <AE12> { [ U00F7,		U2339	] }; // =: ÷ ⌹ -- Division Sign / APL Functional Symbol Quad Divide
147	key <TLDE> { [ U22C4			] }; // `: ⋄ -- Diamond Operator
148};
149
150// Layout: http://www.wickensonline.co.uk/apl-unicomp.html
151
152// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
153// │     │ ¡   │     │     │ ¢   │     │     │     │ ⍂   │ ⍱   │ ⍲   │  ≡  │  ⌹  ┃         ┃
154// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  ×  │  ÷  ┃         ┃
155// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
156// ┃       ┃ ¿   │ ⌽   │ ⍷   │     │ ⍉   │     │     │ ⍸   │ ⍥   │ ⍣   │     │     ┃       ┃
157// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
158// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
159// ┃        ┃ ⊖   │     │     │ ⍫   │ ⍒   │ ⍋   │ ⍤   │ ⌻   │ ⍞   │     │     │  ⍀  ┃      ┃
160// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  ⊢  │  ⊣  │  ⍝  ┃      ┃
161// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
162// ┃       ┃     │     │     │ ⍝   │     │  ⍎  │  ⍕  │ ⌶   │  ⍪  │  ⍙  │  ⌿  ┃             ┃
163// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ⍞  │  ⍎  │  ⍕  ┃             ┃
164// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
165// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
166// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
167// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
168
169partial alphanumeric_keys
170xkb_symbols "sax" {
171
172	include "apl(unified)"
173
174	name[Group1]= "APL symbols (SAX, Sharp APL for Unix)";
175
176	key <AB03> { [	NoSymbol,	U235D	] }; // C: ⍝ -- APL Functional Symbol Up Shoe Jot
177	key <AB05> { [	NoSymbol,	U234E	] }; // B: ⍎ -- APL Functional Symbol Down Tack Jot (Unicode got the name wrong; it should have been "Up Tack")
178	key <AB06> { [	NoSymbol,	U2355	] }; // N: ⍕ -- APL Functional Symbol Up Tack Jot (Unicode got the name wrong; it should have been "Down Tack")
179	key <AB07> { [	NoSymbol,	U2336	] }; // M: ⌶ -- APL Functional Symbol I-Beam
180	key <AB08> { [	U235E,		U236A	] }; // ,: ⍞ ⍪ -- APL Functional Symbol Quote Quad / APL Functional Symbol Comma Bar
181	key <AB09> { [	U234E,		U2359	] }; // .: ⍎ ⍙ -- [See B key] / APL Functional Symbol Delta Underbar
182	key <AB10> { [	U2355,		U233F	] }; // /: ⍕ ⌿ -- [See N key] / APL Functional Symbol Slash Bar
183
184	key <AC01> { [	NoSymbol,	U2296	] }; // A: ⊖ -- Circled Minus
185	key <AC04> { [	NoSymbol,	U236B	] }; // F: ⍫ -- APL Functional Symbol Del Tilde
186	key <AC05> { [	NoSymbol,	U2352	] }; // G: ∇ ⍒ -- APL Functional Symbol Del Stile
187	key <AC06> { [	NoSymbol,	U234B	] }; // H: ∆ ⍋ -- APL Functional Symbol Delta Stile
188	key <AC07> { [	NoSymbol,	U2364	] }; // J: ⍤ -- APL Functional Symbol Jot Diaeresis
189	key <AC08> { [	NoSymbol,	U233B	] }; // K: ⌻
190	key <AC09> { [	NoSymbol,	U235E	] }; // L: ⍞ -- APL Functional Symbol Quote Quad
191	key <AC10> { [	U22A2			] }; // ;: ⊢ -- Right Tack
192	key <AC11> { [	U22A3			] }; // ': ⊣ -- Left Tack
193
194	key <AD01> { [	NoSymbol,	U00BF	] }; // Q: ¿ -- Inverted Question Mark
195	key <AD02> { [	NoSymbol,	U233D	] }; // W: ⌽ -- APL Functional Symbol Circle Stile
196	key <AD03> { [	NoSymbol,	U2377	] }; // E: ⍷ -- APL Functional Symbol Epsilon Underbar
197	key <AD05> { [	NoSymbol,	U2349	] }; // T: ⍉ -- APL Functional Symbol Circle Backslash
198	key <AD08> { [	NoSymbol,	U2378	] }; // I: ⍸ -- APL Functional Symbol Iota Underbar
199	key <AD09> { [	NoSymbol,	U2365	] }; // O: ⍥ -- APL Functional Symbol Circle Diaeresis
200	key <AD10> { [	NoSymbol,	U235F	] }; // P: ⍟ -- APL Functional Symbol Circle Star
201	key <AE01> { [	NoSymbol,	U00A1	] }; // 1: ¡ -- Inverted Exclamation Mark
202	key <AE04> { [	NoSymbol,	cent	] }; // 4:
203	key <AE08> { [	NoSymbol,	U2342	] }; // 8: ⍂ -- APL Functional Symbol Quad Backslash
204	key <AE11> { [	NoSymbol,	U2261	] }; // -: ≡ -- Identical To
205
206	key <BKSL> { [	U235D,		U2340	] }; // \: ⍝ ⍀ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Backslash Bar
207};
208
209// Layout: http://www.wickensonline.co.uk/apl-unicomp.html
210
211// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
212// │  ⍂  │ ⌶   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │  !  │  ⌹  ┃         ┃
213// │  ⌻  │     │     │     │     │     │     │     │     │     │     │  -  │  ÷  ┃         ┃
214// │     │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  +  │  ×  ┃         ┃
215// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
216// ┃       ┃     │     │     │     │     │     │     │     │     │     │ ⍞   │  ⍙  ┃       ┃
217// ┃       ┃     │     │     │     │     │     │     │     │     │     │ →   │  ⍸  ┃       ┃
218// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  ⌷  ┃       ┃
219// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
220// ┃        ┃     │     │     │     │     │     │     │     │     │  ⍎  │  ⍕  │  ⍤  ┃      ┃
221// ┃        ┃     │     │     │     │     │     │     │     │     │  (  │  )  │  ⍷  ┃      ┃
222// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  [  │  ]  │  ≡  ┃      ┃
223// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
224// ┃       ┃     │     │     │     │     │     │     │     │  ⍝  │  ⍀  │  ⌿  ┃             ┃
225// ┃       ┃     │     │     │     │     │     │     │     │  ;  │  :  │  \  ┃             ┃
226// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ,  │  .  │  /  ┃             ┃
227// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
228// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
229// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
230// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
231
232partial alphanumeric_keys
233xkb_symbols "apl2" {
234
235	include "apl(common)"
236
237	name[Group1]= "APL symbols (IBM APL2)";
238
239	// The first column is NoSymbol because it inherits.  The second is NoSymbol because those keys don't do anything
240	// AFS - short for APL Functional Symbol
241
242	key <AB08> { [	comma,		semicolon,	U235D	] }; // ,: ⍝ -- AFS Up Shoe Jot
243	key <AB09> { [	period,		colon,		U2340	] }; // .: ⍀ -- AFS Backslash Bar
244	key <AB10> { [	slash,		backslash,	U233F	] }; // /: ⌿ -- AFS Slash Bar
245
246	key <AC10> { [	bracketleft, 	parenleft,	U234E	] }; // ;: ⍎ -- [See B key in SAX layout]
247	key <AC11> { [	bracketright, 	parenright, 	U2355	] }; // ': ⍕ -- [See N key in SAX layout]
248
249	key <AD11> { [	NoSymbol,	U2192,		U235E	] }; // [: (←) → ⍞ -- Rightwards Arrow / AFS Quote Quad
250	key <AD12> { [	U2337,		U2378,		U2359	] }; // ]: ⌷ ⍸ ⍙ -- AFS Squish Quad / AFS Iota Underbar / AFS Delta Underbar
251
252	key <AE01> { [	NoSymbol, 	NoSymbol,	U2336	] }; // 1: ⌶ -- AFS I-Beam
253	key <AE02> { [	NoSymbol, 	NoSymbol,	U236B	] }; // 2: ⍫ -- AFS Del Tilde
254	key <AE03> { [	NoSymbol, 	NoSymbol,	U2353	] }; // 3: ⍒ -- AFS Del Stile
255	key <AE04> { [	NoSymbol, 	NoSymbol,	U234B	] }; // 4: ⍋ -- AFS Delta Stile
256	key <AE05> { [	NoSymbol, 	NoSymbol,	U233D	] }; // 5: ⌽ -- AFS Circle Stile
257	key <AE06> { [	NoSymbol, 	NoSymbol,	U2349	] }; // 6: ⍉ -- AFS Circle Backslash
258	key <AE07> { [	NoSymbol, 	NoSymbol,	U2296	] }; // 7: ⊖ -- Circled Minus
259	key <AE08> { [	NoSymbol, 	NoSymbol,	U235F	] }; // 8: ⍟ -- AFS Circle Star
260	key <AE09> { [	NoSymbol, 	NoSymbol,	U2371	] }; // 9: ⍱ -- AFS Down Caret Tilde
261	key <AE10> { [	NoSymbol, 	NoSymbol,	U2372	] }; // 0: ⍲ -- AFS Up Caret Tilde
262	key <AE11> { [	plus,		minus,		exclam	] }; // -:
263	key <AE12> { [	U00D7,		U00F7,		U2339	] }; // =: × ÷ ⌹ -- Multiplication Sign / Division Sign / AFS Quad Divide
264
265	key <BKSL> { [	U2261,		U2377,		U2364	] }; // \: ≡ ⍷ ⍤ -- Identical To / AFS Epsilon Underbar / AFS Jot Diaeresis
266
267	key <TLDE> { [	NoSymbol,	U233B,		U2342	] }; // `: ⌻ ⍂ --
268
269	include "level3(ralt_switch)"
270};
271
272// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
273// │  ⍪  │ ≡   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │  !  │  ⌹  ┃         ┃
274// │  ⋄  │     │     │     │     │     │     │     │     │     │     │  -  │  ÷  ┃         ┃
275// │  $  │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  +  │  ×  ┃         ┃
276// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
277// ┃       ┃     │     │     │     │     │     │     │     │     │     │ ⍞   │  ⍬  ┃       ┃
278// ┃       ┃     │     │     │     │     │     │     │     │     │     │ →   │  ⍸  ┃       ┃
279// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
280// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
281// ┃        ┃     │     │     │     │     │     │     │     │     │  ⍎  │  ⍕  │  ⍙  ┃      ┃
282// ┃        ┃     │     │     │     │     │     │     │     │     │  (  │  )  │  ⊣  ┃      ┃
283// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  [  │  ]  │  ⊢  ┃      ┃
284// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
285// ┃       ┃     │     │     │     │     │     │     │     │  ⍝  │  ⍀  │  ⌿  ┃             ┃
286// ┃       ┃     │     │     │     │     │     │     │     │  ;  │  :  │  \  ┃             ┃
287// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ,  │  .  │  /  ┃             ┃
288// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
289// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
290// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
291// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
292
293partial alphanumeric_keys
294xkb_symbols "aplplusII" {
295
296	include "apl(apl2)"
297
298	name[Group1]= "APL symbols (Manugistics APL*PLUS II)";
299
300	// AFS is short for APL Functional Symbol
301	key <AC10> { [	bracketleft,	parenleft,	U234E	] }; // ;: ⍎ -- [See B key in SAX layout]
302	key <AC11> { [	bracketright,	parenright,	U2355	] }; // ': ⍕ -- [See N key in SAX layout]
303	key <AD11> { [	U2190,		NoSymbol,	U235E	] }; // [: ← ⍞ -- Leftwards Arrow / AFS Quote Quad
304	key <AD12> { [	U2192,		NoSymbol,	U236C	] }; // ]: → ⍬ -- Rightwards Arrow / AFS Zilde
305	key <AE01> { [	NoSymbol, 	NoSymbol, 	U2261	] }; // 1: ≡ -- Identical To
306	key <BKSL> { [	U22A2,		U22A3,		U2359	] }; // \: ⊢ ⊣ ⍙ -- Left Tack / Right Tack / AFS Delta Underbar
307	key <TLDE> { [	dollar,		U22C4,		U236A	] }; // `: ⋄ ⍪ -- Diamond Operator / AFS Comma Bar
308};
309
310
311// MicroAPL layout: http://aplwiki.com/APLXKeyboardLayouts
312// I didn't do the old-style MicroAPL layout; patches gratefully accepted
313
314// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
315// │ ⍞   │ ⌶   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │  !  │  ⌹  ┃         ┃
316// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │  ×  │  ÷  ┃         ┃
317// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
318// ┃       ┃     │     │     │     │     │     │     │     │     │     │ ⍇   │  ⍈  ┃       ┃
319// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │  →  ┃       ┃
320// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
321// ┃        ┃     │     │     │     │     │     │     │     │     │  ≡  │  ≢  │  ⊣  ┃      ┃
322// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │  ⍎  │  ⍕  │  ⊢  ┃      ┃
323// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
324// ┃       ┃     │     │     │     │     │     │     │     │  ⍪  │  ⍤  │     ┃             ┃
325// ┃       ┃     │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │  ⍝  │  ⍀  │  ⌿  ┃             ┃
326// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
327// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
328// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
329// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
330
331partial alphanumeric_keys
332xkb_symbols "aplx" {
333
334	include "apl(unified)"
335
336	name[Group1]= "APL symbols (APLX unified)";
337
338	key <AB08> { [	U235D,		U236A	] }; // ,: ⍝ ⍪ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Comma Bar
339	key <AB09> { [	U2340,		U2364	] }; // .: ⍀ ⍤ -- APL Functional Symbol Backslash Bar / APL Functional Symbol Jot Diaeresis
340	key <AB10> { [	U233F 			] }; // /: ⌿ -- APL Functional Symbol Slash Bar
341
342	key <AC10> { [	U234E,		U2261	] }; // ;: ⍎ ≡ -- [See B key in SAX layout] / Identical To
343	key <AC11> { [	U2355,		U2262	] }; // ': ⍕ ≢ -- [See N key in SAX layout] / Not Identical To
344
345	key <AD11> { [	NoSymbol,	U2347	] }; // [: ⍇ -- Box With Left Arrow
346	key <AD12> { [	NoSymbol,	U2348	] }; // ]: ⍈ -- Box With Right Arrow
347
348	key <AE01> { [	NoSymbol,	U2336	] }; // 1: ⌶ -- APL Functional Symbol I-Beam
349	key <AE02> { [	NoSymbol,	U236B	] }; // 2: ⍫ -- APL Functional Symbol Del Tilde
350	key <AE03> { [	NoSymbol,	U2353	] }; // 3: ⍒ -- APL Functional Symbol Del Stile
351	key <AE04> { [	NoSymbol,	U234B	] }; // 4: ⍋ -- APL Functional Symbol Delta Stile
352	key <AE05> { [	NoSymbol,	U233D	] }; // 5: ⌽ -- APL Functional Symbol Circle Stile
353	key <AE06> { [	NoSymbol,	U2349	] }; // 6: ⍉ -- APL Functional Symbol Circle Backslash
354	key <AE07> { [	NoSymbol,	U2296	] }; // 7: ⊖ -- Circled Minus
355	key <AE08> { [	NoSymbol,	U235F	] }; // 8: ⍟ -- APL Functional Symbol Circle Star
356	key <AE11> { [	NoSymbol,	exclam 	] }; // -:
357
358	key <BKSL> { [	U22A2,		U22A3	] }; // \: ⊢ ⊣ -- Right Tack / Left Tack
359
360	key <TLDE> { [	NoSymbol,	U235E	] }; // `: ⍞ -- APL Functional Symbol Quote Quad
361};
362
363// APL language support for the Dyalog keyboard.
364// Dyalog Ltd sell this keyboard with APL engravings. The current model is
365// engraved on a Cherry G80. Base languages for US, UK and DK are availible.
366
367// Geoff Streeter, Dyalog Ltd. 2007-09-03
368// geoff@dyalog.com
369// extended for APL special actions 2008-09-09
370// add variant 2010-11-26
371// made BKSL and LTGT keys the same to remove a compatibility issue with the UK physical keyboard
372// add key (quad equals) 2013-03-12
373// add currency 2014-05-23
374// add parallel 2014-05-23
375// add circle jot 2014-05-23
376// add t diaeresis 2014-05-23
377// add del diaerisis 2014-05-23
378// add quad query 2014-05-23
379// add dagger 2014-05-23
380// correct spelling of key name LTGT→LSGT 2016-05-26
381// add enclose underbar 2017-02-27
382// add alpha underbar 2019-03-22
383// add omega underbar 2019-03-22
384// change all "partial hidden" to "hidden partial" - seems to be a compiler change
385
386// The intention is that this keyboard layout overlays a base keyboard that provides
387// the alphabet and similar. If this keyboard is placed as the 2nd layout then it can
388// be reached with a latching shift to increase group by one.
389
390hidden partial alphanumeric_keys
391xkb_symbols "dyalog_base" {
392
393// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
394// │ ⌺   │ ⌶   │ ⍫   │ ⍒   │ ⍋   │ ⌽   │ ⍉   │ ⊖   │ ⍟   │ ⍱   │ ⍲   │ !   │ ⌹   ┃         ┃
395// │ ⋄   │ ¨   │ ¯   │ <   │ ≤   │ =   │ ≥   │ >   │ ≠   │ ∨   │ ∧   │ ×   │ ÷   ┃         ┃
396// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
397// ┃       ┃ ⍰   │ ⍹   │ ⍷   │ ⌾   │ ⍨   │     │     │ ⍸   │ ⍥   │ ⍣   │ ⍞   │ ⍬   ┃       ┃
398// ┃       ┃ ?   │ ⍵   │ ∊   │ ⍴   │ ~   │ ↑   │ ↓   │ ⍳   │ ○   │ *   │ ←   │ →   ┃       ┃
399// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
400// ┃        ┃ ⍶   │     │     │     │ ⍢   │     │ ⍤   │ ⌸   │ ⌷   │ ≡   │ ≢   │ ⊣   ┃      ┃
401// ┃        ┃ ⍺   │ ⌈   │ ⌊   │ _   │ ∇   │ ∆   │ ∘   │ '   │ ⎕   │ ⍎   │ ⍕   │ ⊢   ┃      ┃
402// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
403// ┃       ┃  ⊣  │ ⊆   │     │     │     │ ⍭   │ ⍡   │ ∥   │ ⍪   │ ⍙   │ ⍠   ┃             ┃
404// ┃       ┃  ⊢  │ ⊂   │ ⊃   │ ∩   │ ∪   │ ⊥   │ ⊤   │ |   │ ⍝   │ ⍀   │ ⌿   ┃             ┃
405// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
406// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
407// ┃       ┃       ┃       ┃                                   ┃       ┃       ┃       ┃
408// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
409
410
411	key <AB01> { [ U2282,		U2286	] };	// subset of, enclose if simple
412	key <AB02> { [ U2283			] };	// superset of
413	key <AB03> { [ U2229			] };	// intersection
414	key <AB04> { [ U222A			] };	// union
415	key <AB05> { [ U22a5,		U236d	] };	// up tack, stile tide
416	key <AB06> { [ U22a4,		U2361	] };	// down tack, down tack diaeresis
417	key <AB07> { [ bar,		U2225	] };	// vertical line, parallel to
418	key <AB08> { [ U235d,		U236a	] };	// up shoe jot, comma bar
419	key <AB09> { [ U2340,		U2359	] };	// backslash bar, delta underbar
420	key <AB10> { [ U233f,		U2360	] };	// slash bar, quad colon
421	key <AC01> { [ U237a,		U2376	] };	// alpha, alpha underscore
422	key <AC02> { [ U2308			] };	// left ceiling
423	key <AC03> { [ U230a			] };	// left floor
424	key <AC04> { [ underscore		] };	// low line
425	key <AC05> { [ U2207,		U2362	] };	// nabla, del diaerisis
426	key <AC06> { [ U2206			] };	// increment
427	key <AC07> { [ U2218,		U2364	] };	// ring operator, jot diaeresis
428	key <AC08> { [ apostrophe,	U2338	] };	// quote, key
429	key <AC09> { [ U2395,		U2337	] };	// quad, squish quad
430	key <AC10> { [ U234e,		U2261	] };	// up tack jot, identical to
431	key <AC11> { [ U2355,		U2262	] };	// down tack jot,  not identical to
432	key <AD01> { [ question,	U2370	] };	// ?, quad question
433	key <AD02> { [ U2375,		U2379	] };	// omega, omega underscore
434	key <AD03> { [ U220a,		U2377	] };	// small element of, epsilon underbar
435	key <AD04> { [ U2374,		U233E	] };	// rho, circle jot
436	key <AD05> { [ asciitilde,	U2368	] };	// tilde, tilde diaeresis
437	key <AD06> { [ U2191			] };	// upwards arrow
438	key <AD07> { [ U2193			] };	// downwards arrow
439	key <AD08> { [ U2373,		U2378	] };	// iota, iota underbar
440	key <AD09> { [ U25cb,		U2365	] };	// circle, circle diaeresis
441	key <AD10> { [ asterisk,	U2363	] };	// asterisk, star diaeresis
442	key <AD11> { [ U2190,		U235e	] };	// left arrow, quote quad
443	key <AD12> { [ U2192,		U236c	] };	// right arrow, zilde
444	key <AE01> { [ diaeresis,	U2336	] };	// i-beam
445	key <AE02> { [ macron,		U236B	] };	// deltilde
446	key <AE03> { [ less,		U2352	] };	// downgrade
447	key <AE04> { [ U2264,		U234b	] };	// lesseq upgrade
448	key <AE05> { [ equal,		U233d	] };	// circlestile
449	key <AE06> { [ U2265,		U2349	] };	// greatereq circleslope
450	key <AE07> { [ greater,		U2296	] };	// circlebar
451	key <AE08> { [ U2260,		U235f	] };	// notequal, circlestar
452	key <AE09> { [ U2228,		U2371	] };	// logical or, down caret tilde
453	key <AE10> { [ U2227,		U2372	] };	// logical and, up caret tilde
454	key <AE11> { [ multiply,	exclam	] };
455	key <AE12> { [ division,	U2339	] };	// quad divide
456	key <BKSL> { [ U22a2,		U22a3	] };	// right tack, left tack
457	key <LSGT> { [ U22a2,		U22a3	] };	// right tack, left tack
458	key <TLDE> { [ U22c4,		U233a	] };	// diamond, quad diamond
459};
460
461hidden partial keypad_keys
462xkb_symbols "dyalog_box" {
463
464// ┌───┬───┬───┬───┐
465// │   │   │   │   │
466// ├───┼───┼───┼───┤
467// │ ┌ │ ┬ │ ┐ │   │
468// ├───┼───┼───┤   │
469// │ ├ │ ┼ │ ┤ │   │
470// ├───┼───┼───┼───┤
471// │ └ │ ┴ │ ┘ │   │
472// ├───┴───┼───┤   │
473// │   ─   │ │ │   │
474// └───────┴───┴───┘
475
476	key <KP0>  { [ U2500 ] };	// box drawing light horizontal
477	key <KP1>  { [ U2514 ] };	// box drawing light up and right
478	key <KP2>  { [ U2534 ] };	// box drawing light up and horizontal
479	key <KP3>  { [ U2518 ] };	// box drawing light up and left
480	key <KP4>  { [ U251c ] };	// box drawing light vertical and right
481	key <KP5>  { [ U253c ] };	// box drawing light vertical and horizontal
482	key <KP6>  { [ U2524 ] };	// box drawing light vertical and left
483	key <KP7>  { [ U250c ] };	// box drawing light down and right
484	key <KP8>  { [ U252c ] };	// box drawing light down and horizontal
485	key <KP9>  { [ U2510 ] };	// box drawing light down and left
486	key <KPDL> { [ U2502 ] };	// box drawing light vertical
487};
488
489hidden partial
490xkb_symbols "dyalog_codes" {
491
492//	Layout of private use area for this. In the style of the Unicode book
493//
494//				APL special actions		F800-F88F
495//
496//	│F800 F810 F820 F830 F840 F850 F860 F870 F880
497//	├────┬────┬────┬────┬────┬────┬────┬────┬────┐
498//     0│QT  │LL  │BK  │FX  │Rc  │BP  │PA  │    │    │
499//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
500//     1│ER  │HO  │ZM  │LN  │LW  │AB  │SA  │    │    │
501//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
502//     2│TB  │CT  │SC  │MC  │RW  │HT  │RZ  │    │    │
503//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
504//     3│BT  │PT  │RP  │MR  │Lw  │TH  │AC  │    │    │
505//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
506//     4│EP  │IN  │NX  │JP  │Rw  │RM  │MA  │    │    │
507//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
508//     5│UC  │II  │PV  │D1  │Uc  │CB  │OF  │    │    │
509//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
510//     6│DC  │DI  │RT  │D2  │Dc  │PR  │FS  │    │TO  │
511//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
512//     7│RC  │DP  │RA  │D3  │Ll  │SR  │FA  │    │MO  │
513//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
514//     8│LC  │DB  │ED  │D4  │Rl  │IS  │TT  │    │    │
515//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
516//     9│US  │RD  │TC  │D5  │Ul  │TL  │FT  │    │    │
517//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
518//     A│DS  │TG  │NB  │U1  │Dl  │UA  │PL  │    │    │
519//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
520//     B│RS  │DK  │NS  │U2  │Us  │AO  │CA  │    │    │
521//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
522//     C│LS  │OP  │ST  │U3  │Ds  │DO  │    │    │    │
523//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
524//     D│UL  │CP  │EN  │U4  │DD  │GL  │    │    │S1  │
525//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
526//     E│DL  │MV  │IF  │U5  │DH  │CH  │    │    │S2  │
527//	├────┼────┼────┼────┼────┼────┼────┼────┼────┤
528//     F│RL  │FD  │HK  │Lc  │BH  │PU  │    │    │OS  │
529//	└────┴────┴────┴────┴────┴────┴────┴────┴────┘
530//
531//				APL Function Keys		F700-F7FF
532//
533//	│F700 ...                           ...  F7F0
534//	├────┬────┬────┬────┬....┬────┬────┬────┬────┐
535//     0│F0  │F16 │F32 │F48 │    │F192│F208│F224│F240│
536//	.
537//	.
538//	.
539//     F│F15 │F31 │F47 │F63 │    │F207│F223│F239│F255│
540//	└────┴────┴────┴────┴....┴────┴────┴────┴────┘
541//
542//	whilst these locations are defined. Dyalog's "aplkeys/xterm" file copes with
543//	normal function keys from the base keyboard rather than this overlay
544
545// ┌─────┐                                                                       ┌───┐
546// │ CA  │                                                                       │ZM │
547// │ QT  │                                                                       │ZM │
548// └─────┘                                                                       └───┘
549
550// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓
551// │     │     │     │     │     │     │     │     │     │     │     │     │     ┃   CB    ┃
552// │     │     │     │     │     │     │     │     │     │     │     │     │     ┃   BP    ┃
553// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫
554// ┃ BT    ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
555// ┃ TB    ┃     │     │     │     │     │     │     │     │     │     │     │     ┃       ┃
556// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓      ┃
557// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃ TC   ┃
558// ┃        ┃     │     │     │     │     │     │     │     │     │     │     │     ┃ ED   ┃
559// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫
560// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
561// ┃       ┃     │     │     │     │     │     │     │     │     │     │     ┃             ┃
562// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛
563// ┃       ┃       ┃       ┃              MO                   ┃       ┃       ┃       ┃
564// ┃       ┃       ┃       ┃              TO                   ┃       ┃       ┃       ┃
565// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛
566
567
568	key <BKSP> { [ Uf850,	Uf855	] };	// BP CB
569	key <ESC>  { [ Uf800,	Uf86b	] };	// QT CA
570	key <FK11> { [ Uf821,	Uf821	] };	// ZM, ZM put this on both, the unshifted one sometimes gets lost
571	key <RTRN> { [ Uf828,	Uf829	] };	// ED, TC
572	key <SPCE> { [ Uf886,	Uf887	] };	// TO, MO
573	key <TAB>  { [ Uf802,	Uf803	] };	// TB, BT
574
575//      ┌─────┐
576//      │     │
577//      │ BK  │
578// ┌────┼─────┼────┐
579// │ BH │     │ RM │
580// │ PV │ FD  │ NX │
581// └────┴─────┴────┘
582
583	key <DOWN> { [ Uf81f		] };	// FD
584	key <LEFT> { [ Uf825,	Uf84f	] };	// PV, BH
585	key <RGHT> { [ Uf824,	Uf854	] };	// NX, RM
586	key <UP>   { [ Uf820		] };	// BK
587
588
589// ┌───┬───┬───┐
590// │PT │LL │UL │
591// │CP │LS │US │
592// ├───┼───┼───┤
593// │CT │RL │DL │
594// │DK │RS │DS │
595// └───┴───┴───┘
596
597	key <DELE> { [ Uf81b, Uf812 ] };	// DK, CT
598	key <END>  { [ Uf80b, Uf80f ] };	// RS, RL
599	key <HOME> { [ Uf80c, Uf810 ] };	// LS, LL
600	key <INS>  { [ Uf81d, Uf813 ] };	// CP, PT
601	key <PGDN> { [ Uf80a, Uf80e ] };	// DS, DL
602	key <PGUP> { [ Uf809, Uf80d ] };	// US, UL
603
604// ┌───┬───┬───┬───┐
605// │   │RD │TG │LN │
606// ├───┼───┼───┼───┤
607// │   │   │   │   │
608// ├───┼───┼───┤TL │
609// │   │   │   │   │
610// ├───┼───┼───┼───┤
611// │   │   │   │   │
612// ├───┴───┼───┤   │
613// │       │   │   │
614// └───────┴───┴───┘
615
616
617	key <KPAD> { [ Uf859 ] };	// TL
618	key <KPDV> { [ Uf819 ] };	// RD
619	key <KPMU> { [ Uf81a ] };	// TG
620	key <KPSU> { [ Uf831 ] };	// LN
621};
622
623xkb_symbols "dyalog" {
624
625	include "apl(dyalog_base)"
626	include "apl(dyalog_box)"
627	include "apl(dyalog_codes)"
628
629	name[Group1] = "APL symbols (Dyalog APL)";
630};
631
632partial
633xkb_symbols "level3" {
634 name[Group1] = "APL on Level3";
635
636 //from apl(dyalog_base) -- any way to just include it shifted to level3?
637
638 key <AB01> { [ NoSymbol,	NoSymbol,	U2282,		U2286	] };	// subset of, enclose if simple
639 key <AB02> { [ NoSymbol,	NoSymbol,	U2283			] };	// superset of
640 key <AB03> { [ NoSymbol,	NoSymbol,	U2229			] };	// intersection
641 key <AB04> { [ NoSymbol,	NoSymbol,	U222A			] };	// union
642 key <AB05> { [ NoSymbol,	NoSymbol,	U22a5,		U236d	] };	// up tack, stile tide
643 key <AB06> { [ NoSymbol,	NoSymbol,	U22a4,		U2361	] };	// down tack, down tack diaeresis
644 key <AB07> { [ NoSymbol,	NoSymbol,	bar,		U2225	] };	// vertical line, parallel to
645 key <AB08> { [ NoSymbol,	NoSymbol,	U235d,		U236a	] };	// up shoe jot, comma bar
646 key <AB09> { [ NoSymbol,	NoSymbol,	U2340,		U2359	] };	// backslash bar, delta underbar
647 key <AB10> { [ NoSymbol,	NoSymbol,	U233f,		U2360	] };	// slash bar, quad colon
648 key <AC01> { [ NoSymbol,	NoSymbol,	U237a,		U2376	] };	// alpha, alpha underscore
649 key <AC02> { [ NoSymbol,	NoSymbol,	U2308			] };	// left ceiling
650 key <AC03> { [ NoSymbol,	NoSymbol,	U230a			] };	// left floor
651 key <AC04> { [ NoSymbol,	NoSymbol,	underscore		] };	// low line
652 key <AC05> { [ NoSymbol,	NoSymbol,	U2207,		U2362	] };	// nabla, del diaerisis
653 key <AC06> { [ NoSymbol,	NoSymbol,	U2206			] };	// increment
654 key <AC07> { [ NoSymbol,	NoSymbol,	U2218,		U2364	] };	// ring operator, jot diaeresis
655 key <AC08> { [ NoSymbol,	NoSymbol,	apostrophe,	U2338	] };	// quote, key
656 key <AC09> { [ NoSymbol,	NoSymbol,	U2395,		U2337	] };	// quad, squish quad
657 key <AC10> { [ NoSymbol,	NoSymbol,	U234e,		U2261	] };	// up tack jot, identical to
658 key <AC11> { [ NoSymbol,	NoSymbol,	U2355,		U2262	] };	// down tack jot,  not identical to
659 key <AD01> { [ NoSymbol,	NoSymbol,	question,	U2370	] };	// ?, quad question
660 key <AD02> { [ NoSymbol,	NoSymbol,	U2375,		U2379	] };	// omega, omega underscore
661 key <AD03> { [ NoSymbol,	NoSymbol,	U220a,		U2377	] };	// small element of, epsilon underbar
662 key <AD04> { [ NoSymbol,	NoSymbol,	U2374,		U233E	] };	// rho, circle jot
663 key <AD05> { [ NoSymbol,	NoSymbol,	asciitilde,	U2368	] };	// tilde, tilde diaeresis
664 key <AD06> { [ NoSymbol,	NoSymbol,	U2191			] };	// upwards arrow
665 key <AD07> { [ NoSymbol,	NoSymbol,	U2193			] };	// downwards arrow
666 key <AD08> { [ NoSymbol,	NoSymbol,	U2373,		U2378	] };	// iota, iota underbar
667 key <AD09> { [ NoSymbol,	NoSymbol,	U25cb,		U2365	] };	// circle, circle diaeresis
668 key <AD10> { [ NoSymbol,	NoSymbol,	asterisk,	U2363	] };	// asterisk, star diaeresis
669 key <AD11> { [ NoSymbol,	NoSymbol,	U2190,		U235e	] };	// left arrow, quote quad
670 key <AD12> { [ NoSymbol,	NoSymbol,	U2192,		U236c	] };	// right arrow, zilde
671 key <AE01> { [ NoSymbol,	NoSymbol,	diaeresis,	U2336	] };	// i-beam
672 key <AE02> { [ NoSymbol,	NoSymbol,	macron,		U236B	] };	// deltilde
673 key <AE03> { [ NoSymbol,	NoSymbol,	less,		U2352	] };	// downgrade
674 key <AE04> { [ NoSymbol,	NoSymbol,	U2264,		U234b	] };	// lesseq upgrade
675 key <AE05> { [ NoSymbol,	NoSymbol,	equal,		U233d	] };	// circlestile
676 key <AE06> { [ NoSymbol,	NoSymbol,	U2265,		U2349	] };	// greatereq circleslope
677 key <AE07> { [ NoSymbol,	NoSymbol,	greater,	U2296	] };	// circlebar
678 key <AE08> { [ NoSymbol,	NoSymbol,	U2260,		U235f	] };	// notequal, circlestar
679 key <AE09> { [ NoSymbol,	NoSymbol,	U2228,		U2371	] };	// logical or, down caret tilde
680 key <AE10> { [ NoSymbol,	NoSymbol,	U2227,		U2372	] };	// logical and, up caret tilde
681 key <AE11> { [ NoSymbol,	NoSymbol,	multiply,	exclam	] };
682 key <AE12> { [ NoSymbol,	NoSymbol,	division,	U2339	] };	// quad divide
683 key <BKSL> { [ NoSymbol,	NoSymbol,	U22a2,		U22a3	] };	// right tack, left tack
684 key <LSGT> { [ NoSymbol,	NoSymbol,	U22a2,		U22a3	] };	// right tack, left tack
685 key <TLDE> { [ NoSymbol,	NoSymbol,	U22c4,		U233a	] };	// diamond, quad diamond
686};
687