From 04b865477e8d52dac294db647bcf41234d9fd6f2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Sat, 26 Dec 2020 15:44:47 +0100
Subject: keyboard: Add "alt mode", but disable all such hotkeys

---
 tt.keyboard.ahk | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

(limited to 'tt.keyboard.ahk')

diff --git a/tt.keyboard.ahk b/tt.keyboard.ahk
index 72c47c9..0a199f9 100644
--- a/tt.keyboard.ahk
+++ b/tt.keyboard.ahk
@@ -74,6 +74,7 @@ Modifiers() {
 
 ;; -> body
 
+/*
 ^<::^y
 *#BackSpace::Delete
 #F9::PrintScreen
@@ -97,3 +98,47 @@ Modifiers() {
 #i Up::SendInput, {PgUp up}
 *#o::SendInput, % Modifiers() "{End down}"
 #o Up::SendInput, {End up}
+*/
+
+;; -> init
+
+/*
+ToggleAltMode() ; disable alt mode
+*/
+
+;; -> body
+
+/*
+<^>!z::
+  ToggleAltMode()
+  InputBox, AltCode, Ange teckenkod,,, 150, 90, Locale
+  ToggleAltMode()
+  IfEqual, AltCode,, return
+  Send, {LAlt down}
+  Loop, PARSE, AltCode
+  {
+    X := A_LoopField
+    Send, % "{Numpad" . SubStr(X, 0) . "}"
+  }
+  Send, {LAlt up}
+  return
+
+$m::Send, 0
+$j::Send, 1
+$k::Send, 2
+$l::Send, 3
+$u::Send, 4
+$i::Send, 5
+$o::Send, 6
+
+ToggleAltMode()
+{
+  Hotkey, $m, Toggle
+  Hotkey, $j, Toggle
+  Hotkey, $k, Toggle
+  Hotkey, $l, Toggle
+  Hotkey, $u, Toggle
+  Hotkey, $i, Toggle
+  Hotkey, $o, Toggle
+}
+*/
-- 
cgit v1.2.3