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.

1 files changed, 41 insertions, 0 deletions

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}