From 3e3bae15e3268b963ee9f81cea716ea7732be4dd Mon Sep 17 00:00:00 2001 From: "Sergey V. Udaltsov" Date: Sat, 24 Dec 2011 20:26:55 +0000 Subject: [PATCH] updated apl layout https://bugs.freedesktop.org/show_bug.cgi?id=44057 --- symbols/apl | 752 +++++++++++++++++++++++++++++++++++++--------------- 1 file changed, 531 insertions(+), 221 deletions(-) diff --git a/symbols/apl b/symbols/apl index 0ebc268..6fa993e 100644 --- a/symbols/apl +++ b/symbols/apl @@ -6,6 +6,7 @@ // - The Sharp APL for Unix (SAX) layout // - The IBM APL2 layout // - The Manugistics APL*PLUS II (Version 5.1, 1993) keyboard layout +// - The Dyalog APL layout - with additions for box drawing and commands // Unicode APL table: http://aplwiki.com/UnicodeAplTable // ...and another: http://publibfp.boulder.ibm.com/epubs/pdf/h2110611.pdf (appendix A) @@ -25,272 +26,581 @@ // I'm assuming that this will be used with another keyboard layout (ie. for // your language), with a special shift key to use these maps. -partial alphanumeric_keys modifier_keys +// 2011-12-22 Geoff Streeter: geoff@dyalog.com +// Added the Dyalog support. +// Corrected (what he thinks) are some errors. +// Resolving the confusion between APL's and Unicode's concept of Left and Right tacks. +// Unsure about some of the inheritance from APL2 into APLPLUS. Patches welcome. +// Complied with freedesktop.org requirement that the keycodes be in sorted order. Which +// leads to the bottom to top (roughly) definitions. + +// default layout seems to have to be the first one. Choosing the basic Dyalog layout is definitely +// better than using the "common" one. Choosing the complete Dyalog layout is not useful to non-Dyalog +// users. + +default partial alphanumeric_keys +xkb_symbols "basic" { + include "apl(dyalog_base)" // forward reference good APL keyboard without Dyalogs extras +}; + +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ │ │ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// │ │ ¨ │ ¯ │ < │ ≤ │ = │ ≥ │ > │ ≠ │ ∨ │ ∧ │ │ ┃ ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ ┃ ? │ ⍵ │ ∊ │ ⍴ │ ~ │ ↑ │ ↓ │ ⍳ │ ○ │ * │ ← │ ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ ┃ ⍺ │ ⌈ │ ⌊ │ _ │ ∇ │ ∆ │ ∘ │ ' │ ⎕ │ │ │ ┃ ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ ┃ │ ⊂ │ ⊃ │ ∩ │ ∪ │ ⊥ │ ⊤ │ | │ │ │ ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + +partial hidden alphanumeric_keys xkb_symbols "common" { name[Group1]= "APL"; + key { [ U2282 ] }; // Z: ⊂ -- Subset Of + key { [ U2283 ] }; // X: ⊃ -- Superset Of + key { [ U2229 ] }; // C: ∩ -- Intersection + key { [ U222A ] }; // V: ∪ -- Union + key { [ U22A5 ] }; // B: ⊥ -- Up Tack + key { [ U22A4 ] }; // N: ⊤ -- Down Tack + key { [ U007C ] }; // M: | -- Vertical Line + + key { [ U237A ] }; // A: ⍺ -- APL Functional Symbol Alpha + key { [ U2308 ] }; // S: ⌈ -- Left Ceiling + key { [ U230A ] }; // D: ⌊ -- Left Floor + key { [ underscore ] }; // F: + key { [ U2207 ] }; // G: ∇ -- Nabla + key { [ U2206 ] }; // H: ∆ -- Increment + key { [ U2218 ] }; // J: ∘ -- Ring Operator + key { [ apostrophe ] }; // K: + key { [ U2395 ] }; // L: ⎕ -- APL Functional Symbol Quad + + key { [ question ] }; // Q: + key { [ U2375 ] }; // W: ⍵ -- APL Functional Symbol Omega + key { [ U220A ] }; // E: ∊ -- Small Element Of + key { [ U2374 ] }; // R: ⍴ -- APL Functional Symbol Rho + key { [ asciitilde ] }; // T: + key { [ U2191 ] }; // Y: ↑ -- Upwards Arrow + key { [ U2193 ] }; // U: ↓ -- Downwards Arrow + key { [ U2373 ] }; // I: ⍳ -- APL Functional Symbol Iota + key { [ U25CB ] }; // O: ○ -- White Circle + key { [ asterisk ] }; // P: * -- asterisk + key { [ U2190 ] }; // [: ← -- Leftwards Arrow + key { [ diaeresis ] }; - key { [ U00AF ] }; // ¯ -- Macron - key { [ less ] }; - key { [ U2264 ] }; // ≤ -- Less-than Or Equal To - key { [ equal ] }; - key { [ U2265 ] }; // ≥ -- Greater-than Or Equal To - key { [ greater ] }; - key { [ U2260 ] }; // ≠ -- Not Equal To - key { [ U2228 ] }; // ∨ -- Logical Or - key { [ U2227 ] }; // ∧ -- Logical And - - // Q - key { [ question ] }; - // W - key { [ U2375 ] }; // ⍵ -- APL Functional Symbol Omega - // E - key { [ U220A ] }; // ∊ -- Small Element Of - // R - key { [ U2374 ] }; // ⍴ -- APL Functional Symbol Rho - // T - key { [ asciitilde ] }; - // Y - key { [ U2191 ] }; // ↑ -- Upwards Arrow - // U - key { [ U2193 ] }; // ↓ -- Downwards Arrow - // I - key { [ U2373 ] }; // ⍳ -- APL Functional Symbol Iota - // O - key { [ U25CB ] }; // ○ -- White Circle - // P - key { [ U22C6 ] }; // ⋆ -- Should this be a plain asterisk, or the star operator??? - // [ - key { [ U2190 ] }; // ← -- Leftwards Arrow - - // A - key { [ U237A ] }; // ⍺ -- APL Functional Symbol Alpha - // S - key { [ U2308 ] }; // ⌈ -- Left Ceiling - // D - key { [ U230A ] }; // ⌊ -- Left Floor - // F - key { [ underscore ] }; - // G - key { [ U2207 ] }; // ∇ -- Nabla - // H - key { [ U2206 ] }; // ∆ -- Increment - // J - key { [ U2218 ] }; // ∘ -- Ring Operator - // K - key { [ apostrophe ] }; - // L - key { [ U2395 ] }; // ⎕ -- APL Functional Symbol Quad - - // Z - key { [ U2282 ] }; // ⊂ -- Subset Of - // X - key { [ U2283 ] }; // ⊃ -- Superset Of - // C - key { [ U2229 ] }; // ∩ -- Intersection - // V - key { [ U222A ] }; // ∪ -- Union - // B - key { [ U22A5 ] }; // ⊥ -- Up Tack - // N - key { [ U22A4 ] }; // ⊤ -- Down Tack - // M - key { [ U007C ] }; // | -- Vertical Line + key { [ U00AF ] }; // ¯ -- Macron + key { [ less ] }; + key { [ U2264 ] }; // ≤ -- Less-than Or Equal To + key { [ equal ] }; + key { [ U2265 ] }; // ≥ -- Greater-than Or Equal To + key { [ greater ] }; + key { [ U2260 ] }; // ≠ -- Not Equal To + key { [ U2228 ] }; // ∨ -- Logical Or + key { [ U2227 ] }; // ∧ -- Logical And }; // Keys common to a number of keyboards that allow normal language usage alongside APL -partial alphanumeric_keys modifier_keys + +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ │ │ │ │ │ │ │ │ │ ⍱ │ ⍲ │ │ ⌹ ┃ ┃ +// │ ⋄ │ ¨ │ ¯ │ < │ ≤ │ = │ ≥ │ > │ ≠ │ ∨ │ ∧ │ × │ ÷ ┃ ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ ┃ ? │ ⍵ │ ∊ │ ⍴ │ ~ │ ↑ │ ↓ │ ⍳ │ ○ │ * │ ← │ → ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ ┃ ⍺ │ ⌈ │ ⌊ │ _ │ ∇ │ ∆ │ ∘ │ ' │ ⎕ │ │ │ ┃ ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ ┃ │ ⊂ │ ⊃ │ ∩ │ ∪ │ ⊥ │ ⊤ │ | │ │ │ ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + +partial alphanumeric_keys xkb_symbols "unified" { name[Group1]= "APL Keyboard Symbols: Unified Layout"; include "apl(common)" - // ` - key { [ U22C4 ] }; // ⋄ -- Diamond Operator - key { [ NoSymbol, U2371 ] }; // ⍱ -- APL Functional Symbol Down Caret Tilde - key { [ NoSymbol, U2372 ] }; // ⍲ -- APL Functional Symbol Up Caret Tilde - // - - key { [ U00D7 ] }; // × -- Multiplication Sign - // = - key { [ U00F7, U2339 ] }; // ÷ ⌹ -- Division Sign / APL Functional Symbol Quad Divide - - // ] - key { [ U2192 ] }; // → -- Rightwards Arrow + key { [ U2192 ] }; // ]: → -- Rightwards Arrow + key { [ NoSymbol, U2371 ] }; // 9: ⍱ -- APL Functional Symbol Down Caret Tilde + key { [ NoSymbol, U2372 ] }; // 0: ⍲ -- APL Functional Symbol Up Caret Tilde + key { [ U00D7 ] }; // -: × -- Multiplication Sign + key { [ U00F7, U2339 ] }; // =: ÷ ⌹ -- Division Sign / APL Functional Symbol Quad Divide + key { [ U22C4 ] }; // `: ⋄ -- Diamond Operator }; // Layout: http://www.wickensonline.co.uk/apl-unicomp.html -default -partial alphanumeric_keys modifier_keys + +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ │ ¡ │ │ │ ¢ │ │ │ │ ⍂ │ ⍱ │ ⍲ │ ≡ │ ⌹ ┃ ┃ +// │ ⋄ │ ¨ │ ¯ │ < │ ≤ │ = │ ≥ │ > │ ≠ │ ∨ │ ∧ │ × │ ÷ ┃ ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ ┃ ¿ │ ⌽ │ ⍷ │ │ ⍉ │ │ │ ⍸ │ ⍥ │ ⍣ │ │ ┃ ┃ +// ┃ ┃ ? │ ⍵ │ ∊ │ ⍴ │ ~ │ ↑ │ ↓ │ ⍳ │ ○ │ * │ ← │ → ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ ⊖ │ │ │ ⍫ │ ⍒ │ ⍋ │ ⍤ │ ⌻ │ ⍞ │ │ │ ⍀ ┃ ┃ +// ┃ ┃ ⍺ │ ⌈ │ ⌊ │ _ │ ∇ │ ∆ │ ∘ │ ' │ ⎕ │ ⊢ │ ⊣ │ ⍝ ┃ ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ ⍝ │ │ ⍎ │ ⍕ │ ⌶ │ ⍪ │ ⍙ │ ⌿ ┃ ┃ +// ┃ ┃ │ ⊂ │ ⊃ │ ∩ │ ∪ │ ⊥ │ ⊤ │ | │ ⍞ │ ⍎ │ ⍕ ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + +partial alphanumeric_keys xkb_symbols "sax" { name[Group1]= "APL Keyboard Symbols"; include "apl(unified)" - key { [ NoSymbol, U00A1 ] }; // ¡ -- Inverted Exclamation Mark - key { [ NoSymbol, cent ] }; - key { [ NoSymbol, U2342 ] }; // ⍂ -- APL Functional Symbol Quad Backslash - // - - key { [ NoSymbol, U2261 ] }; // ≡ -- Identical To - - // Q - key { [ NoSymbol, U00BF ] }; // ¿ -- Inverted Question Mark - // W - key { [ NoSymbol, U233D ] }; // ⌽ -- APL Functional Symbol Circle Stile - // E - key { [ NoSymbol, U2377 ] }; // ⍷ -- APL Functional Symbol Epsilon Underbar - // T - key { [ NoSymbol, U2349 ] }; // ⍉ -- APL Functional Symbol Circle Backslash - // I - key { [ NoSymbol, U2378 ] }; // ⍸ -- APL Functional Symbol Iota Underbar - // O - key { [ NoSymbol, U2365 ] }; // ⍥ -- APL Functional Symbol Circle Diaeresis - // P - key { [ NoSymbol, U235F ] }; // ⍟ -- APL Functional Symbol Circle Star - - // A - key { [ NoSymbol, U2296 ] }; // ⊖ -- Circled Minus - // F - key { [ NoSymbol, U236B ] }; // ⍫ -- APL Functional Symbol Del Tilde - // G - key { [ NoSymbol, U2352 ] }; // ∇ ⍒ -- APL Functional Symbol Del Stile - // H - key { [ NoSymbol, U234B ] }; // ∆ ⍋ -- APL Functional Symbol Delta Stile - // J - key { [ NoSymbol, U2364 ] }; // ⍤ -- APL Functional Symbol Jot Diaeresis - // K - key { [ NoSymbol, U233B ] }; // ⌻ - // L - key { [ NoSymbol, U235E ] }; // ⍞ -- APL Functional Symbol Quote Quad - // ; - key { [ U22A2 ] }; // ⊢ -- Right Tack - // ' - key { [ U22A3 ] }; // ⊣ -- Left Tack - - // C - key { [ NoSymbol, U235D ] }; // ⍝ -- APL Functional Symbol Up Shoe Jot - // B - key { [ NoSymbol, U234E ] }; // ⍎ -- APL Functional Symbol Down Tack Jot (Unicode got the name wrong; it should have been "Up Tack") - // N - key { [ NoSymbol, U2355 ] }; // ⍕ -- APL Functional Symbol Up Tack Jot (Unicode got the name wrong; it should have been "Down Tack") - // M - key { [ NoSymbol, U2336 ] }; // ⌶ -- APL Functional Symbol I-Beam - // , - key { [ U235E, U236A ] }; // ⍞ ⍪ -- APL Functional Symbol Quote Quad / APL Functional Symbol Comma Bar - // . - key { [ U234E, U2359 ] }; // ⍎ ⍙ -- [See B key] / APL Functional Symbol Delta Underbar - // / - key { [ U2355, U233F ] }; // ⍕ ⌿ -- [See N key] / APL Functional Symbol Slash Bar - - key { [ U235D, U2340 ] }; // ⍝ ⍀ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Backslash Bar + key { [ NoSymbol, U235D ] }; // C: ⍝ -- APL Functional Symbol Up Shoe Jot + key { [ NoSymbol, U234E ] }; // B: ⍎ -- APL Functional Symbol Down Tack Jot (Unicode got the name wrong; it should have been "Up Tack") + key { [ NoSymbol, U2355 ] }; // N: ⍕ -- APL Functional Symbol Up Tack Jot (Unicode got the name wrong; it should have been "Down Tack") + key { [ NoSymbol, U2336 ] }; // M: ⌶ -- APL Functional Symbol I-Beam + key { [ U235E, U236A ] }; // ,: ⍞ ⍪ -- APL Functional Symbol Quote Quad / APL Functional Symbol Comma Bar + key { [ U234E, U2359 ] }; // .: ⍎ ⍙ -- [See B key] / APL Functional Symbol Delta Underbar + key { [ U2355, U233F ] }; // /: ⍕ ⌿ -- [See N key] / APL Functional Symbol Slash Bar + + key { [ NoSymbol, U2296 ] }; // A: ⊖ -- Circled Minus + key { [ NoSymbol, U236B ] }; // F: ⍫ -- APL Functional Symbol Del Tilde + key { [ NoSymbol, U2352 ] }; // G: ∇ ⍒ -- APL Functional Symbol Del Stile + key { [ NoSymbol, U234B ] }; // H: ∆ ⍋ -- APL Functional Symbol Delta Stile + key { [ NoSymbol, U2364 ] }; // J: ⍤ -- APL Functional Symbol Jot Diaeresis + key { [ NoSymbol, U233B ] }; // K: ⌻ + key { [ NoSymbol, U235E ] }; // L: ⍞ -- APL Functional Symbol Quote Quad + key { [ U22A2 ] }; // ;: ⊢ -- Right Tack + key { [ U22A3 ] }; // ': ⊣ -- Left Tack + + key { [ NoSymbol, U00BF ] }; // Q: ¿ -- Inverted Question Mark + key { [ NoSymbol, U233D ] }; // W: ⌽ -- APL Functional Symbol Circle Stile + key { [ NoSymbol, U2377 ] }; // E: ⍷ -- APL Functional Symbol Epsilon Underbar + key { [ NoSymbol, U2349 ] }; // T: ⍉ -- APL Functional Symbol Circle Backslash + key { [ NoSymbol, U2378 ] }; // I: ⍸ -- APL Functional Symbol Iota Underbar + key { [ NoSymbol, U2365 ] }; // O: ⍥ -- APL Functional Symbol Circle Diaeresis + key { [ NoSymbol, U235F ] }; // P: ⍟ -- APL Functional Symbol Circle Star + key { [ NoSymbol, U00A1 ] }; // 1: ¡ -- Inverted Exclamation Mark + key { [ NoSymbol, cent ] }; // 4: + key { [ NoSymbol, U2342 ] }; // 8: ⍂ -- APL Functional Symbol Quad Backslash + key { [ NoSymbol, U2261 ] }; // -: ≡ -- Identical To + + key { [ U235D, U2340 ] }; // \: ⍝ ⍀ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Backslash Bar }; // Layout: http://www.wickensonline.co.uk/apl-unicomp.html -partial alphanumeric_keys modifier_keys + +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ ⍂ │ ⌶ │ ⍫ │ ⍒ │ ⍋ │ ⌽ │ ⍉ │ ⊖ │ ⍟ │ ⍱ │ ⍲ │ ! │ ⌹ ┃ ┃ +// │ ⌻ │ │ │ │ │ │ │ │ │ │ │ - │ ÷ ┃ ┃ +// │ │ ¨ │ ¯ │ < │ ≤ │ = │ ≥ │ > │ ≠ │ ∨ │ ∧ │ + │ × ┃ ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ ⍞ │ ⍙ ┃ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ → │ ⍸ ┃ ┃ +// ┃ ┃ ? │ ⍵ │ ∊ │ ⍴ │ ~ │ ↑ │ ↓ │ ⍳ │ ○ │ * │ ← │ ⌷ ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ ⍎ │ ⍕ │ ⍤ ┃ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ ( │ ) │ ⍷ ┃ ┃ +// ┃ ┃ ⍺ │ ⌈ │ ⌊ │ _ │ ∇ │ ∆ │ ∘ │ ' │ ⎕ │ [ │ ] │ ≡ ┃ ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ ⍝ │ ⍀ │ ⌿ ┃ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ ; │ : │ \ ┃ ┃ +// ┃ ┃ │ ⊂ │ ⊃ │ ∩ │ ∪ │ ⊥ │ ⊤ │ | │ , │ . │ / ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + +partial alphanumeric_keys xkb_symbols "apl2" { name[Group1]= "APL Keyboard Symbols: IBM APL2"; include "apl(common)" // The first column is NoSymbol because it inherits. The second is NoSymbol because those keys don't do anything + // AFS - short for APL Functional Symbol + + key { [ comma, semicolon, U235D ] }; // ,: ⍝ -- AFS Up Shoe Jot + key { [ period, colon, U2340 ] }; // .: ⍀ -- AFS Backslash Bar + key { [ slash, backslash, U233F ] }; // /: ⌿ -- AFS Slash Bar + + key { [ bracketleft, parenleft, U234E ] }; // ;: ⍎ -- [See B key in SAX layout] + key { [ bracketright, parenright, U2355 ] }; // ': ⍕ -- [See N key in SAX layout] - // ` - key { [ NoSymbol, U233B, U2342 ] }; // ⌻ ⍂ -- - key { [ NoSymbol, NoSymbol, U2336 ] }; // ⌶ -- APL Functional Symbol I-Beam - key { [ NoSymbol, NoSymbol, U236B ] }; // ⍫ -- APL Functional Symbol Del Tilde - key { [ NoSymbol, NoSymbol, U2353 ] }; // ⍒ -- APL Functional Symbol Del Stile - key { [ NoSymbol, NoSymbol, U234B ] }; // ⍋ -- APL Functional Symbol Delta Stile - key { [ NoSymbol, NoSymbol, U233D ] }; // ⌽ -- APL Functional Symbol Circle Stile - key { [ NoSymbol, NoSymbol, U2349 ] }; // ⍉ -- APL Functional Symbol Circle Backslash - key { [ NoSymbol, NoSymbol, U2296 ] }; // ⊖ -- Circled Minus - key { [ NoSymbol, NoSymbol, U235F ] }; // ⍟ -- APL Functional Symbol Circle Star - key { [ NoSymbol, NoSymbol, U2371 ] }; // ⍱ -- APL Functional Symbol Down Caret Tilde - key { [ NoSymbol, NoSymbol, U2372 ] }; // ⍲ -- APL Functional Symbol Up Caret Tilde - // - - key { [ plus, minus, exclam ] }; - // = - key { [ U00D7, U00F7, U2339 ] }; // × ÷ ⌹ -- Multiplication Sign / Division Sign / APL Functional Symbol Quad Divide - - // [ - key { [ NoSymbol, U2192, U235E ] }; // (←) → ⍞ -- Rightwards Arrow / APL Functional Symbol Quote Quad - // ] - key { [ U2337, U2378, U2359 ] }; // ⌷ ⍸ ⍙ -- APL Functional Symbol Squish Quad / APL Functional Symbol Iota Underbar / APL Functional Symbol Delta Underbar - - // ; - key { [ bracketleft, parenleft, U234E ] }; // ⍎ -- [See B key in SAX layout] - // ' - key { [ bracketright, parenright, U2355 ] }; // ⍕ -- [See N key in SAX layout] - - // , - key { [ comma, semicolon, U235D ] }; // ⍝ -- APL Functional Symbol Up Shoe Jot - // . - key { [ period, colon, U2340 ] }; // ⍀ -- APL Functional Symbol Backslash Bar - // / - key { [ slash, backslash, U233F ] }; // ⌿ -- APL Functional Symbol Slash Bar - - key { [ U2261, U2377, U2364 ] }; // ≡ ⍷ ⍤ -- Identical To / APL Functional Symbol Epsilon Underbar / APL Functional Symbol Jot Diaeresis + key { [ NoSymbol, U2192, U235E ] }; // [: (←) → ⍞ -- Rightwards Arrow / AFS Quote Quad + key { [ U2337, U2378, U2359 ] }; // ]: ⌷ ⍸ ⍙ -- AFS Squish Quad / AFS Iota Underbar / AFS Delta Underbar + + key { [ NoSymbol, NoSymbol, U2336 ] }; // 1: ⌶ -- AFS I-Beam + key { [ NoSymbol, NoSymbol, U236B ] }; // 2: ⍫ -- AFS Del Tilde + key { [ NoSymbol, NoSymbol, U2353 ] }; // 3: ⍒ -- AFS Del Stile + key { [ NoSymbol, NoSymbol, U234B ] }; // 4: ⍋ -- AFS Delta Stile + key { [ NoSymbol, NoSymbol, U233D ] }; // 5: ⌽ -- AFS Circle Stile + key { [ NoSymbol, NoSymbol, U2349 ] }; // 6: ⍉ -- AFS Circle Backslash + key { [ NoSymbol, NoSymbol, U2296 ] }; // 7: ⊖ -- Circled Minus + key { [ NoSymbol, NoSymbol, U235F ] }; // 8: ⍟ -- AFS Circle Star + key { [ NoSymbol, NoSymbol, U2371 ] }; // 9: ⍱ -- AFS Down Caret Tilde + key { [ NoSymbol, NoSymbol, U2372 ] }; // 0: ⍲ -- AFS Up Caret Tilde + key { [ plus, minus, exclam ] }; // -: + key { [ U00D7, U00F7, U2339 ] }; // =: × ÷ ⌹ -- Multiplication Sign / Division Sign / AFS Quad Divide + + key { [ U2261, U2377, U2364 ] }; // \: ≡ ⍷ ⍤ -- Identical To / AFS Epsilon Underbar / AFS Jot Diaeresis + + key { [ NoSymbol, U233B, U2342 ] }; // `: ⌻ ⍂ -- + + include "level3(ralt_switch)" }; -partial alphanumeric_keys modifier_keys +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ ⍪ │ ≡ │ ⍫ │ ⍒ │ ⍋ │ ⌽ │ ⍉ │ ⊖ │ ⍟ │ ⍱ │ ⍲ │ ! │ ⌹ ┃ ┃ +// │ ⋄ │ │ │ │ │ │ │ │ │ │ │ - │ ÷ ┃ ┃ +// │ $ │ ¨ │ ¯ │ < │ ≤ │ = │ ≥ │ > │ ≠ │ ∨ │ ∧ │ + │ × ┃ ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ ⍞ │ ⍬ ┃ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ → │ ⍸ ┃ ┃ +// ┃ ┃ ? │ ⍵ │ ∊ │ ⍴ │ ~ │ ↑ │ ↓ │ ⍳ │ ○ │ * │ ← │ → ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ ⍎ │ ⍕ │ ⍙ ┃ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ ( │ ) │ ⊣ ┃ ┃ +// ┃ ┃ ⍺ │ ⌈ │ ⌊ │ _ │ ∇ │ ∆ │ ∘ │ ' │ ⎕ │ [ │ ] │ ⊢ ┃ ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ ⍝ │ ⍀ │ ⌿ ┃ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ ; │ : │ \ ┃ ┃ +// ┃ ┃ │ ⊂ │ ⊃ │ ∩ │ ∪ │ ⊥ │ ⊤ │ | │ , │ . │ / ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + +partial alphanumeric_keys xkb_symbols "aplplusII" { name[Group1]= "APL Keyboard Symbols: Manugistics APL*PLUS II"; + // AFS - short for APL Functional Symbol include "apl(apl2)" - // ` - key { [ dollar, U22C4, U236A ] }; // ⋄ ⍪ -- Diamond Operator / APL Functional Symbol Comma Bar - key { [ NoSymbol, NoSymbol, U2261 ] }; // ≡ -- Identical To - - // [ - key { [ U2190, NoSymbol, U235E ] }; // ← ⍞ -- Leftwards Arrow / APL Functional Symbol Quote Quad - // ] - key { [ U2192, NoSymbol, U236C ] }; // → ⍬ -- Rightwards Arrow / APL Functional Symbol Zilde - - // ; - key { [ bracketleft, parenleft, U234E ] }; // ⍎ -- [See B key in SAX layout] - // ' - key { [ bracketright, parenright, U2355 ] }; // ⍕ -- [See N key in SAX layout] - - key { [ U22A3, U22A2, U2359 ] }; // ⊣ ⊢ ⍙ -- Left Tack / Right Tack / APL Functional Symbol Delta Underbar + key { [ bracketleft, parenleft, U234E ] }; // ;: ⍎ -- [See B key in SAX layout] + key { [ bracketright, parenright, U2355 ] }; // ': ⍕ -- [See N key in SAX layout] + key { [ U2190, NoSymbol, U235E ] }; // [: ← ⍞ -- Leftwards Arrow / AFS Quote Quad + key { [ U2192, NoSymbol, U236C ] }; // ]: → ⍬ -- Rightwards Arrow / AFS Zilde + key { [ NoSymbol, NoSymbol, U2261 ] }; // 1: ≡ -- Identical To + key { [ U22A2, U22A3, U2359 ] }; // \: ⊢ ⊣ ⍙ -- Left Tack / Right Tack / AFS Delta Underbar + key { [ dollar, U22C4, U236A ] }; // `: ⋄ ⍪ -- Diamond Operator / AFS Comma Bar }; // MicroAPL layout: http://aplwiki.com/APLXKeyboardLayouts // I didn't do the old-style MicroAPL layout; patches gratefully accepted -partial alphanumeric_keys modifier_keys + +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ ⍞ │ ⌶ │ ⍫ │ ⍒ │ ⍋ │ ⌽ │ ⍉ │ ⊖ │ ⍟ │ ⍱ │ ⍲ │ ! │ ⌹ ┃ ┃ +// │ ⋄ │ ¨ │ ¯ │ < │ ≤ │ = │ ≥ │ > │ ≠ │ ∨ │ ∧ │ × │ ÷ ┃ ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ ⍇ │ ⍈ ┃ ┃ +// ┃ ┃ ? │ ⍵ │ ∊ │ ⍴ │ ~ │ ↑ │ ↓ │ ⍳ │ ○ │ * │ ← │ → ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ ≡ │ ≢ │ ⊣ ┃ ┃ +// ┃ ┃ ⍺ │ ⌈ │ ⌊ │ _ │ ∇ │ ∆ │ ∘ │ ' │ ⎕ │ ⍎ │ ⍕ │ ⊢ ┃ ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ ⍪ │ ⍤ │ ┃ ┃ +// ┃ ┃ │ ⊂ │ ⊃ │ ∩ │ ∪ │ ⊥ │ ⊤ │ | │ ⍝ │ ⍀ │ ⌿ ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + +partial alphanumeric_keys xkb_symbols "aplx" { name[Group1]= "APL Keyboard Symbols: APLX Unified APL Layout"; include "apl(unified)" - // ` - key { [ NoSymbol, U235E ] }; // ⍞ -- APL Functional Symbol Quote Quad - key { [ NoSymbol, U2336 ] }; // ⌶ -- APL Functional Symbol I-Beam - key { [ NoSymbol, U236B ] }; // ⍫ -- APL Functional Symbol Del Tilde - key { [ NoSymbol, U2353 ] }; // ⍒ -- APL Functional Symbol Del Stile - key { [ NoSymbol, U234B ] }; // ⍋ -- APL Functional Symbol Delta Stile - key { [ NoSymbol, U233D ] }; // ⌽ -- APL Functional Symbol Circle Stile - key { [ NoSymbol, U2349 ] }; // ⍉ -- APL Functional Symbol Circle Backslash - key { [ NoSymbol, U2296 ] }; // ⊖ -- Circled Minus - key { [ NoSymbol, U235F ] }; // ⍟ -- APL Functional Symbol Circle Star - // - - key { [ NoSymbol, exclam ] }; - - // [ - key { [ NoSymbol, U2347 ] }; // ⍇ -- Box With Left Arrow - // ] - key { [ NoSymbol, U2348 ] }; // ⍈ -- Box With Right Arrow - - // ; - key { [ U234E, U2261 ] }; // ⍎ ≡ -- [See B key in SAX layout] / Identical To - // ' - key { [ U2355, U2262 ] }; // ⍕ ≢ -- [See N key in SAX layout] / Not Identical To - - // , - key { [ U235D, U236A ] }; // ⍝ ⍪ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Comma Bar - // . - key { [ U2340, U2364 ] }; // ⍀ ⍤ -- APL Functional Symbol Backslash Bar / APL Functional Symbol Jot Diaeresis - // / - key { [ U233F ] }; // ⌿ -- APL Functional Symbol Slash Bar - - key { [ U22A3, U22A3 ] }; // ⊣ ⊢ -- Left Tack / Right Tack + key { [ U235D, U236A ] }; // ,: ⍝ ⍪ -- APL Functional Symbol Up Shoe Jot / APL Functional Symbol Comma Bar + key { [ U2340, U2364 ] }; // .: ⍀ ⍤ -- APL Functional Symbol Backslash Bar / APL Functional Symbol Jot Diaeresis + key { [ U233F ] }; // /: ⌿ -- APL Functional Symbol Slash Bar + + key { [ U234E, U2261 ] }; // ;: ⍎ ≡ -- [See B key in SAX layout] / Identical To + key { [ U2355, U2262 ] }; // ': ⍕ ≢ -- [See N key in SAX layout] / Not Identical To + + key { [ NoSymbol, U2347 ] }; // [: ⍇ -- Box With Left Arrow + key { [ NoSymbol, U2348 ] }; // ]: ⍈ -- Box With Right Arrow + + key { [ NoSymbol, U2336 ] }; // 1: ⌶ -- APL Functional Symbol I-Beam + key { [ NoSymbol, U236B ] }; // 2: ⍫ -- APL Functional Symbol Del Tilde + key { [ NoSymbol, U2353 ] }; // 3: ⍒ -- APL Functional Symbol Del Stile + key { [ NoSymbol, U234B ] }; // 4: ⍋ -- APL Functional Symbol Delta Stile + key { [ NoSymbol, U233D ] }; // 5: ⌽ -- APL Functional Symbol Circle Stile + key { [ NoSymbol, U2349 ] }; // 6: ⍉ -- APL Functional Symbol Circle Backslash + key { [ NoSymbol, U2296 ] }; // 7: ⊖ -- Circled Minus + key { [ NoSymbol, U235F ] }; // 8: ⍟ -- APL Functional Symbol Circle Star + key { [ NoSymbol, exclam ] }; // -: + + key { [ U22A2, U22A3 ] }; // \: ⊢ ⊣ -- Right Tack / Left Tack + + key { [ NoSymbol, U235E ] }; // `: ⍞ -- APL Functional Symbol Quote Quad +}; + +// APL language support for the Dyalog keyboard. +// Dyalog Ltd sell this keyboard with APL engravings. The current model is +// engraved on a Cherry G80. Base languages for US, UK and DK are availible. + +// Geoff Streeter, Dyalog Ltd. 2007-09-03 +// geoff@dyalog.com +// extended for APL special actions 2008-09-09 +// add variant 2010-11-26 + +// The intention is that this keyboard layout overlays a base keyboard that provides +// the alphabet and similar. If this keyboard is placed as the 2nd layout then it can +// be reached with a latching shift to increase group by one. + +partial alphanumeric_keys +xkb_symbols "dyalog_base" { + name[Group1]="APL"; + + +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ │ ⌶ │ ⍫ │ ⍒ │ ⍋ │ ⌽ │ ⍉ │ ⊖ │ ⍟ │ ⍱ │ ⍲ │ ! │ ⌹ ┃ ┃ +// │ ⋄ │ ¨ │ ¯ │ < │ ≤ │ = │ ≥ │ > │ ≠ │ ∨ │ ∧ │ × │ ÷ ┃ ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ ┃ │ │ ⍷ │ │ ⍨ │ │ │ ⍸ │ ⍥ │ ⍣ │ ⍞ │ ⍬ ┃ ┃ +// ┃ ┃ ? │ ⍵ │ ∊ │ ⍴ │ ~ │ ↑ │ ↓ │ ⍳ │ ○ │ * │ ← │ → ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ │ │ │ │ │ │ ⍤ │ │ ⌷ │ ≡ │ ≢ │ ⊣ ┃ ┃ +// ┃ ┃ ⍺ │ ⌈ │ ⌊ │ _ │ ∇ │ ∆ │ ∘ │ ' │ ⎕ │ ⍎ │ ⍕ │ ⊢ ┃ ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ ⍪ │ ⍙ │ ⍠ ┃ ┃ +// ┃ ┃ │ ⊂ │ ⊃ │ ∩ │ ∪ │ ⊥ │ ⊤ │ | │ ⍝ │ ⍀ │ ⌿ ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + + + key { [ U2282 ] }; // subset of + key { [ U2283 ] }; // superset of + key { [ U2229 ] }; // intersection + key { [ U222A ] }; // union + key { [ U22a5 ] }; // up tack + key { [ U22a4 ] }; // down tack + key { [ U007c ] }; // vertical line + key { [ U235d, U236a ] }; // up shoe jot, comma bar + key { [ U2340, U2359 ] }; // backslash bar, delta underbar + key { [ U233f, U2360 ] }; // slash bar, quad colon + key { [ U237a ] }; // alpha + key { [ U2308 ] }; // left ceiling + key { [ U230a ] }; // left floor + key { [ underscore ] }; // low line + key { [ U2207 ] }; // nabla + key { [ U2206 ] }; // increment + key { [ U2218, U2364 ] }; // ring operator, jot diaeresis + key { [ apostrophe ] }; + key { [ U2395, U2337 ] }; // quad, squish quad + key { [ U234e, U2261 ] }; // up tack jot, identical to + key { [ U2355, U2262 ] }; // down tack jot, not identical to + key { [ question ] }; + key { [ U2375 ] }; // omega + key { [ U220a, U2377 ] }; // small element of, epsilon underbar + key { [ U2374 ] }; // rho + key { [ asciitilde, U2368 ] }; // tilde, tilde diaeresis + key { [ U2191 ] }; // upwards arrow + key { [ U2193 ] }; // downwards arrow + key { [ U2373, U2378 ] }; // iota, iota underbar + key { [ U25cb, U2365 ] }; // circle, circle diaeresis + key { [ asterisk, U2363 ] }; // asterisk, star diaeresis + key { [ U2190, U235e ] }; // left arrow, quote quad + key { [ U2192, U236c ] }; // right arrow, zilde + key { [ diaeresis, U2336 ] }; // i-beam + key { [ overbar, U236B ] }; // deltilde + key { [ less, U2352 ] }; // downgrade + key { [ U2264, U234b ] }; // lesseq upgrade + key { [ equal, U233d ] }; // circlestile + key { [ U2265, U2349 ] }; // greatereq circleslope + key { [ greater, U2296 ] }; // circlebar + key { [ U2260, U235f ] }; // notequal, circlestar + key { [ U2228, U2371 ] }; // logical or, down caret tilde + key { [ U2227, U2372 ] }; // logical and, up caret tilde + key { [ multiply, exclam ] }; + key { [ division, U2339 ] }; // quad divide + key { [ U22a2, U22a3 ] }; // right tack, left tack + key { [ U22c4 ] }; // diamond +}; + +partial keypad_keys +xkb_symbols "dyalog_box" { + name[Group1]="Dyalog box"; + +// ┌───┬───┬───┬───┐ +// │ │ │ │ │ +// ├───┼───┼───┼───┤ +// │ ┌ │ ┬ │ ┐ │ │ +// ├───┼───┼───┤ │ +// │ ├ │ ┼ │ ┤ │ │ +// ├───┼───┼───┼───┤ +// │ └ │ ┴ │ ┘ │ │ +// ├───┴───┼───┤ │ +// │ ─ │ │ │ │ +// └───────┴───┴───┘ + + key { [ U2500 ] }; // box drawing light horizontal + key { [ U2514 ] }; // box drawing light up and right + key { [ U2534 ] }; // box drawing light up and horizontal + key { [ U2518 ] }; // box drawing light up and left + key { [ U251c ] }; // box drawing light veritcal and right + key { [ U253c ] }; // box drawing light veritcal and horizontal + key { [ U2524 ] }; // box drawing light veritcal and left + key { [ U250c ] }; // box drawing light down and right + key { [ U252c ] }; // box drawing light down and horizontal + key { [ U2510 ] }; // box drawing light down and left + key { [ U2502 ] }; // box drawing light vertical + +}; + +xkb_symbols "dyalog_codes" { + name[Group1]="Dyalog Codes"; + +// Layout of private use area for this. In the style of the Unicode book +// +// APL special actions F800-F88F +// +// │F800 F810 F820 F830 F840 F850 F860 F870 F880 +// ├────┬────┬────┬────┬────┬────┬────┬────┬────┐ +// 0│QT │LL │BK │FX │Rc │BP │PA │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 1│ER │HO │ZM │LN │LW │AB │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 2│TB │CT │SC │MC │RW │HT │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 3│BT │PT │RP │MR │Lw │TH │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 4│EP │IN │NX │JP │Rw │RM │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 5│UC │II │PV │D1 │Uc │CB │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 6│DC │DI │RT │D2 │Dc │PR │ │ │TO │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 7│RC │DP │RA │D3 │Ll │SR │ │ │MO │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 8│LC │DB │ED │D4 │Rl │ │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// 9│US │RD │TC │D5 │Ul │TL │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// A│DS │TG │NB │U1 │Dl │UA │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// B│RS │DK │NS │U2 │Us │AO │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// C│LS │OP │ST │U3 │Ds │DO │ │ │ │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// D│UL │CP │EN │U4 │DD │GL │ │ │S1 │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// E│DL │MV │IF │U5 │DH │CH │ │ │S2 │ +// ├────┼────┼────┼────┼────┼────┼────┼────┼────┤ +// F│RL │FD │HK │Lc │BH │PU │ │ │OS │ +// └────┴────┴────┴────┴────┴────┴────┴────┴────┘ +// +// APL Function Keys F700-F7FF +// +// │F700 ... ... F7F0 +// ├────┬────┬────┬────┬....┬────┬────┬────┬────┐ +// 0│F0 │F16 │F32 │F48 │ │F192│F208│F224│F240│ +// . +// . +// . +// F│F15 │F31 │F47 │F63 │ │F207│F223│F239│F255│ +// └────┴────┴────┴────┴....┴────┴────┴────┴────┘ +// +// whilst these locations are defined. Dyalog's "aplkeys/xterm" file copes with +// normal function keys from the base keyboard rather than this overlay + +// ┌─────┐ ┌───┐ +// │ │ │ZM │ +// │ QT │ │ZM │ +// └─────┘ └───┘ + +// ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┬─────┲━━━━━━━━━┓ +// │ │ │ │ │ │ │ │ │ │ │ │ │ ┃ CB ┃ +// │ │ │ │ │ │ │ │ │ │ │ │ │ ┃ BP ┃ +// ┢━━━━━┷━┱───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┴─┬───┺━┳━━━━━━━┫ +// ┃ BT ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ TB ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┣━━━━━━━┻┱────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┴┬────┺┓ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ TC ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ │ ┃ ED ┃ +// ┣━━━━━━━┳┹────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┬┴────┲┷━━━━━┻━━━━━━┫ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┃ ┃ │ │ │ │ │ │ │ │ │ │ ┃ ┃ +// ┣━━━━━━━╋━━━━━┷━┳━━━┷━━━┱─┴─────┴─────┴─────┴─────┴─────┴───┲━┷━━━━━╈━━━━━┻━┳━━━━━━━┳━━━┛ +// ┃ ┃ ┃ ┃ MO ┃ ┃ ┃ ┃ +// ┃ ┃ ┃ ┃ TO ┃ ┃ ┃ ┃ +// ┗━━━━━━━┻━━━━━━━┻━━━━━━━┹───────────────────────────────────┺━━━━━━━┻━━━━━━━┻━━━━━━━┛ + + + key { [ Uf850, Uf855 ] }; // BP CB + key { [ Uf800 ] }; // QT + key { [ Uf821, Uf821 ] }; // ZM, ZM put this on both, the unshifted one sometimes gets lost + key { [ Uf828, Uf829 ] }; // ED, TC + key { [ Uf886, Uf887 ] }; // TO, MO + key { [ Uf802, Uf803 ] }; // TB, BT + +// ┌─────┐ +// │ │ +// │ BK │ +// ┌────┼─────┼────┐ +// │ BH │ │ RM │ +// │ PV │ FD │ NX │ +// └────┴─────┴────┘ + + key { [ Uf81f ] }; // FD + key { [ Uf825, Uf84f ] }; // PV, BH + key { [ Uf824, Uf854 ] }; // NX, RM + key { [ Uf820 ] }; // BK + + +// ┌───┬───┬───┐ +// │PT │LL │UL │ +// │CP │LS │US │ +// ├───┼───┼───┤ +// │CT │RL │DL │ +// │DK │RS │DS │ +// └───┴───┴───┘ + + key { [ Uf81b, Uf812 ] }; // DK, CT + key { [ Uf80b, Uf80f ] }; // RS, RL + key { [ Uf80c, Uf810 ] }; // LS, LL + key { [ Uf81d, Uf813 ] }; // CP, PT + key { [ Uf80a, Uf80e ] }; // DS, DL + key { [ Uf809, Uf80d ] }; // US, UL + +// ┌───┬───┬───┬───┐ +// │ │RD │TG │LN │ +// ├───┼───┼───┼───┤ +// │ │ │ │ │ +// ├───┼───┼───┤TL │ +// │ │ │ │ │ +// ├───┼───┼───┼───┤ +// │ │ │ │ │ +// ├───┴───┼───┤ │ +// │ │ │ │ +// └───────┴───┴───┘ + + + key { [ Uf859 ] }; // TL + key { [ Uf819 ] }; // RD + key { [ Uf81a ] }; // TG + key { [ Uf831 ] }; // LN +}; + +xkb_symbols "dyalog" { + include "apl(dyalog_base)" + include "apl(dyalog_box)" + include "apl(dyalog_codes)" + name[Group1] = "Dyalog APL complete"; }; + -- 2.32.0.93.g670b81a890