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 +++++++++++++++++++++++++++++++++++++++++
 tt.windows.ahk  |  5 ++---
 2 files changed, 43 insertions(+), 3 deletions(-)
 create mode 100644 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}
diff --git a/tt.windows.ahk b/tt.windows.ahk
index 84f6385..87f04e4 100644
--- a/tt.windows.ahk
+++ b/tt.windows.ahk
@@ -12,16 +12,15 @@ Gui, FakeWindow:Show, x0 y%y% AutoSize NA, FakeWindow
 
 ;; -> body
 
-#q::WinSet, Bottom,, A
-#a::WinSet, Top,, A
 #t::WinSet, AlwaysOnTop, Toggle, A
-#y::
+#f::
 WinGet, t, Transparent, A
 if (t = OFF)
 	WinSet, Transparent, 180, A
 else
 	WinSet, Transparent, OFF, A
 return
+#g::WinSet, Top,, A
 #b::WinSet, Bottom,, A
 #!m::WinMove, A,, 0, 0
 
-- 
cgit v1.2.3