Add autohotkey script and executable for glyphs

2 files changed, 391 insertions, 0 deletions

diff --git a/editors/autohotkey-win/bqn.ahk b/editors/autohotkey-win/bqn.ahk
new file mode 100644
index 00000000..8d33f248
--- /dev/null
+++ b/editors/autohotkey-win/bqn.ahk
@@ -0,0 +1,391 @@
+RAlt & `::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ¬
+    } Else {
+        Send, ˜
+    }
+return
+
+RAlt & 1::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⎉
+    } Else {
+        Send, ˘
+    }
+return
+
+RAlt & 2::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⚇
+    } Else {
+        Send, ¨
+    }
+return
+RAlt & 3::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⍟
+    } Else {
+        Send, ⁼
+    }
+return
+RAlt & 4::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ◶
+    } Else {
+        Send, ⌜
+    }
+return
+RAlt & 5::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⊘
+    } Else {
+        Send, ´
+    }
+return
+
+
+RAlt & 6::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⎊
+    } Else {
+        Send, ˝
+    }
+return
+
+RAlt & 7::
+    Send, ⍎
+return
+
+RAlt & 8::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⍕
+    } Else {
+        Send, ∞
+    }
+return
+
+RAlt & 9::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⟨
+    } Else {
+        Send, ¯
+    }
+return
+
+RAlt & 0::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⟩
+    } Else {
+        Send, •
+    }
+return
+
+RAlt & -::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, √
+    } Else {
+        Send, ÷
+    }
+return
+
+RAlt & =::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, *
+    } Else {
+        Send, ×
+    }
+return
+
+RAlt & q::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ↙
+    } Else {
+        Send, ⌽
+    }
+return
+
+
+RAlt & w::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, 𝕎
+    } Else {
+        Send, 𝕨
+    }
+return
+
+
+RAlt & e::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⍷
+    } Else {
+        Send, ∊
+    }
+return
+
+
+RAlt & r::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, 𝕣
+    } Else {
+        Send, ↑
+    }
+return
+
+RAlt & t::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⍋
+    } Else {
+        Send, ∧
+    }
+return
+
+RAlt & y::
+return
+
+RAlt & u::
+
+    Send, ⊔
+return
+
+RAlt & i::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⊑
+    } Else {
+        Send, ⊏
+    }
+return
+
+
+RAlt & o::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⊒
+    } Else {
+        Send, ⊐
+    }
+return
+
+RAlt & p::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⍳
+    } Else {
+        Send, π
+    }
+return
+
+RAlt & [::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⊣
+    } Else {
+        Send, ←
+    }
+return
+
+RAlt & ]::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⊢
+    } Else {
+        Send, →
+    }
+return
+
+RAlt & \::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, |
+    }
+return
+
+RAlt & a::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ↖
+    } Else {
+        Send, ⍉
+    }
+return
+
+
+RAlt & s::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, 𝕊
+    } Else {
+        Send, 𝕤
+    }
+return
+
+RAlt & d::
+
+        Send, ↕
+return
+
+
+RAlt & f::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, 𝔽
+    } Else {
+        Send, 𝕗
+    }
+return
+
+RAlt & g::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, 𝔾
+    } Else {
+        Send, 𝕘
+    }
+return
+
+RAlt & h::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, «
+    } Else {
+        Send, ⊸
+    }
+return
+
+
+RAlt & j::
+        Send, ∘
+return
+
+RAlt & k::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⌾
+    } Else {
+        Send, ○
+    }
+return
+
+RAlt & l::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, »
+    } Else {
+        Send, ⟜
+    }
+return
+
+RAlt & `;::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ·
+    } Else {
+        Send, ⋄
+    }
+return
+
+RAlt & '::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ˙
+    } Else {
+        Send, ↩
+    }
+return
+
+RAlt & z::
+        Send, ⥊
+return
+
+RAlt & x::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, 𝕏
+    } Else {
+        Send, 𝕩
+    }
+return
+
+RAlt & c::
+        Send, ↓
+return
+
+RAlt & v::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⍒
+    } Else {
+        Send, ∨
+    }
+return
+
+RAlt & b::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⌈
+    } Else {
+        Send, ⌊
+    }
+return
+
+RAlt & n::
+return
+
+RAlt & m::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ≢
+    } Else {
+        Send, ≡
+    }
+return
+
+RAlt & ,::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ≤
+    } Else {
+        Send, ∾
+    }
+return
+
+RAlt & .::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ≥
+    } Else {
+        Send, ≍
+    }
+return
+
+
+RAlt & /::
+    ShiftState := GetKeyState("Shift", "P")
+    If (ShiftState) {
+        Send, ⇐
+    } Else {
+        Send, ≠
+    }
+return
+
+RAlt & Space::
+        Send, ‿
+return
+
diff --git a/editors/autohotkey-win/bqn.exe b/editors/autohotkey-win/bqn.exe
new file mode 100644
index 00000000..ba3ba4c5
--- /dev/null
+++ b/editors/autohotkey-win/bqn.exe