summaryrefslogtreecommitdiffstats
path: root/users/charlesrocket/apl.c
diff options
context:
space:
mode:
Diffstat (limited to 'users/charlesrocket/apl.c')
-rw-r--r--users/charlesrocket/apl.c183
1 files changed, 183 insertions, 0 deletions
diff --git a/users/charlesrocket/apl.c b/users/charlesrocket/apl.c
new file mode 100644
index 0000000000..63d835c909
--- /dev/null
+++ b/users/charlesrocket/apl.c
@@ -0,0 +1,183 @@
+/* Copyright 2022 charlesrocket
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+
+#include QMK_KEYBOARD_H
+
+enum unicode_names {
+ DIAMOND,
+ QUAD_DIAMOND,
+ DIAERESIS,
+ IBEAM,
+ MACRON,
+ DEL_TILDE,
+ LESS,
+ DEL_STILE,
+ LESS_EQUAL,
+ DELTA_STILE,
+ EQUALS,
+ CIRCLE_STILE,
+ GREATER_EQUAL,
+ CIRCLE_BACKSLASH,
+ GREATER,
+ CIRCLED_MINUS,
+ NOT_EQUAL,
+ CIRCLE_STAR,
+ OR,
+ DOWN_CARET_TILDE,
+ AND,
+ UP_CARET_TILDE,
+ MULT,
+ EXCL,
+ DIVISION,
+ QUAD_DIVIDE,
+ QUESTION_MARK,
+ OMEGA,
+ OMEGA_UNDERBAR,
+ EPSILON,
+ SMALL_ELEMENT,
+ EPSILON_UNDERBAR,
+ RHO,
+ TILDE,
+ TILDE_DIAERESIS,
+ UPWARDS_ARROW,
+ DOWNWARDS_ARROW,
+ IOTA,
+ IOTA_UNDERBAR,
+ WHITE_CIRCLE,
+ CIRCLE_DIAERESIS,
+ STAR_OPERATOR,
+ STAR_DIAERESIS,
+ LEFT_ARROW,
+ QUOTE_QUAD,
+ RIGHT_ARROW,
+ ZILDE,
+ ALPHA,
+ ALPHA_UNDERBAR,
+ LEFT_CEILING,
+ LEFT_FLOOR,
+ LOW_LINE,
+ NABLA,
+ INCREMENT,
+ DELTA_UNDERBAR,
+ RING_OPERATOR,
+ JOT_DIAERESIS,
+ APOSTROPHE,
+ QUAD_EQUAL,
+ QUAD,
+ SQUISH_QUAD,
+ DOWN_TACK_JOT,
+ IDENTICAL,
+ UP_TACK_JOT,
+ NOT_IDENTICAL,
+ RIGHT_TACK,
+ LEFT_TACK,
+ SUBSET,
+ SUPERSET,
+ CHI,
+ INTERSECTION,
+ UNION,
+ UP_TACK,
+ DOWN_TACK,
+ VERTICAL_LINE,
+ UP_SHOE_JOT,
+ COMMA_BAR,
+ BACKSLASH_BAR,
+ SLASH_BAR,
+ QUAD_COLON
+};
+
+const uint32_t PROGMEM unicode_map[] = {
+ [DIAMOND] = 0x25CA, // ◊ 0
+ [QUAD_DIAMOND] = 0x233A, // ⌺
+ [DIAERESIS] = 0x00A8, // ¨
+ [IBEAM] = 0x2336, // ⌶
+ [MACRON] = 0x00AF, // ¯
+ [DEL_TILDE] = 0x236B, // ⍫ 5
+ [LESS] = 0x003C, // <
+ [DEL_STILE] = 0x2352, // ⍒
+ [LESS_EQUAL] = 0x2264, // ≤
+ [DELTA_STILE] = 0x234B, // ⍋
+ [EQUALS] = 0x003D, // = 10
+ [CIRCLE_STILE] = 0x233D, // ⌽
+ [GREATER_EQUAL] = 0x2265, // ≥
+ [CIRCLE_BACKSLASH] = 0x2349, // ⍉
+ [GREATER] = 0x003E, // >
+ [CIRCLED_MINUS] = 0x2296, // ⊖ 15
+ [NOT_EQUAL] = 0x2260, // ≠
+ [CIRCLE_STAR] = 0x235F, // ⍟
+ [OR] = 0x2228, // ∨
+ [DOWN_CARET_TILDE] = 0x2371, // ⍱
+ [AND] = 0x2227, // ∧ 20
+ [UP_CARET_TILDE] = 0x2372, // ⍲
+ [MULT] = 0x00D7, // ×
+ [EXCL] = 0x0021, // !
+ [DIVISION] = 0x00F7, // ÷
+ [QUAD_DIVIDE] = 0x2339, // ⌹ 25
+ [QUESTION_MARK] = 0x003F, // ?
+ [OMEGA] = 0x2375, // ⍵
+ [OMEGA_UNDERBAR] = 0x2379, // ⍹
+ [EPSILON] = 0x03B5, // ε
+ [SMALL_ELEMENT] = 0x220A, // ∊ 30
+ [EPSILON_UNDERBAR] = 0x2377, // ⍷
+ [RHO] = 0x2374, // ⍴
+ [TILDE] = 0x007E, // ~
+ [TILDE_DIAERESIS] = 0x2368, // ⍨
+ [UPWARDS_ARROW] = 0x2191, // ↑ 35
+ [DOWNWARDS_ARROW] = 0x2193, // ↓
+ [IOTA] = 0x2373, // ⍳
+ [IOTA_UNDERBAR] = 0x2378, // ⍸
+ [WHITE_CIRCLE] = 0x25CB, // ○
+ [CIRCLE_DIAERESIS] = 0x2365, // ⍥ 40
+ [STAR_OPERATOR] = 0x22C6, // ⋆
+ [STAR_DIAERESIS] = 0x2363, // ⍣
+ [LEFT_ARROW] = 0x2190, // ←
+ [QUOTE_QUAD] = 0x235E, // ⍞
+ [RIGHT_ARROW] = 0x2192, // → 45
+ [ZILDE] = 0x236C, // ⍬
+ [ALPHA] = 0x237A, // ⍺
+ [ALPHA_UNDERBAR] = 0x2376, // ⍶
+ [LEFT_CEILING] = 0x2308, // ⌈
+ [LEFT_FLOOR] = 0x230A, // ⌊ 50
+ [LOW_LINE] = 0x005F, // _
+ [NABLA] = 0x2207, // ∇
+ [INCREMENT] = 0x2206, // ∆
+ [DELTA_UNDERBAR] = 0x2359, // ⍙
+ [RING_OPERATOR] = 0x2218, // ∘ 55
+ [JOT_DIAERESIS] = 0x2364, // ⍤
+ [APOSTROPHE] = 0x0027, // '
+ [QUAD_EQUAL] = 0x2338, // ⌸
+ [QUAD] = 0x2395, // ⎕
+ [SQUISH_QUAD] = 0x2337, // ⌷ 60
+ [DOWN_TACK_JOT] = 0x234E, // ⍎
+ [IDENTICAL] = 0x2261, // ≡
+ [UP_TACK_JOT] = 0x2355, // ⍕
+ [NOT_IDENTICAL] = 0x2262, // ≢
+ [RIGHT_TACK] = 0x22A2, // ⊢ 65
+ [LEFT_TACK] = 0x22A3, // ⊣
+ [SUBSET] = 0x2282, // ⊂
+ [SUPERSET] = 0x2283, // ⊃
+ [CHI] = 0x03C7, // χ
+ [INTERSECTION] = 0x2229, // ∩ 70
+ [UNION] = 0x222A, // ∪
+ [UP_TACK] = 0x22A5, // ⊥
+ [DOWN_TACK] = 0x22A4, // ⊤
+ [VERTICAL_LINE] = 0x007C, // |
+ [UP_SHOE_JOT] = 0x235D, // ⍝ 75
+ [COMMA_BAR] = 0x236A, // ⍪
+ [BACKSLASH_BAR] = 0x2340, // ⍀
+ [SLASH_BAR] = 0x233F, // ⌿
+ [QUAD_COLON] = 0x2360, // ⍠ 79
+};