From 52279dd08ceb29be175ad89840be26659f299475 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Tue, 15 Dec 2020 21:30:21 +0100
Subject: Add 'keyboard' script (hotkeys for new keyboard)

The Fujitsu FKB8530 is an optionally split keyboard, without arrow keys
or numpad.  These hotkeys made it very much bearable to use.
---
 tt.keyboard.ahk | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 tt.keyboard.ahk

(limited to 'tt.keyboard.ahk')

diff --git a/tt.keyboard.ahk b/tt.keyboard.ahk
new file mode 100644
index 0000000..caa2a18
--- /dev/null
+++ b/tt.keyboard.ahk
@@ -0,0 +1,41 @@
+;; Fujitsu FKB8530 mappings ---------------------------------------------------
+
+;; -> library
+
+Modifiers() {
+	s := ""
+	if (GetKeyState("Shift"))
+		s .= "{Shift down}"
+	if (GetKeyState("Ctrl"))
+		s .= "{Ctrl down}"
+	if (GetKeyState("Alt"))
+		s .= "{Alt down}"
+	return s
+}
+
+;; -> body
+
+LWin Up::Send {Esc}
+
+^<::^y
+*#BackSpace::Delete
+#F9::PrintScreen
+#F12::Insert
+
+*#h::SendInput, % Modifiers() "{Left down}"
+#h Up::SendInput, {Left up}
+*#j::SendInput, % Modifiers() "{Down down}"
+#j Up::SendInput, {Down up}
+*#k::SendInput, % Modifiers() "{Up down}"
+#k Up::SendInput, {Up up}
+*#l::SendInput, % Modifiers() "{Right down}"
+#l Up::SendInput, {Right up}
+
+*#y::SendInput, % Modifiers() "{Home down}"
+#y Up::SendInput, {Home up}
+*#u::SendInput, % Modifiers() "{PgDn down}"
+#u Up::SendInput, {PgDn up}
+*#i::SendInput, % Modifiers() "{PgUp down}"
+#i Up::SendInput, {PgUp up}
+*#o::SendInput, % Modifiers() "{End down}"
+#o Up::SendInput, {End up}
-- 
cgit v1.2.3