Idea: Install normal Colemak, but have an easy way to switch back to Qwerty
Requires: AutoHotKey_L
Instructions: Either install AHKL or use an appropriate standalone exe.
Name the script the same as the exe but with an ahk extension and place in same directory as the exe
Usage: Colemak will work normally with CapsLock as Backspace.
When you want to switch to Qwerty (eg co-worker wants to type), press Control + CapsLock. The CapsLock light will activate and you will be in Qwerty mode.
#SingleInstance Force
#NoEnv
#UseHook
+CapsLock::CapsLock
CapsLock::Backspace
#If GetKeyState("CapsLock", "T")
Shift(Key) {
if GetKeyState("Shift")
Send, +%Key%
else
Send, %Key%
}
a::
+a::Shift("a")
^a::^a
!a::!a
b::
+b::Shift("b")
^b::^b
!b::!b
c::
+c::Shift("c")
^c::^c
!c::!c
d::
+d::Shift("g")
^d::^g
!d::!g
e::
+e::Shift("k")
^e::^k
!e::!k
f::
+f::Shift("e")
^f::^e
!f::!e
g::
+g::Shift("t")
^g::^t
!g::!t
h::
+h::Shift("h")
^h::^h
!h::!h
i::
+i::Shift("l")
^i::^l
!i::!l
j::
+j::Shift("y")
^j::^y
!j::!y
k::
+k::Shift("n")
^k::^n
!k::!n
l::
+l::Shift("u")
^l::^u
!l::!u
m::
+m::Shift("m")
^m::^m
!m::!m
n::
+n::Shift("j")
^n::^j
!n::!j
o::
+o::Shift(";")
^o::^`;
!o::!`;
p::
+p::Shift("r")
^p::^r
!p::!r
q::
+q::Shift("q")
^q::^q
!q::!q
r::
+r::Shift("s")
^r::^s
!r::!s
s::
+s::Shift("d")
^s::^d
!s::!d
t::
+t::Shift("f")
^t::^f
!t::!f
u::
+u::Shift("i")
^u::^i
!u::!i
v::
+v::Shift("v")
^v::^v
!v::!v
w::
+w::Shift("w")
^w::^w
!w::!w
x::
+x::Shift("x")
^x::^x
!x::!x
y::
+y::Shift("o")
^y::^o
!y::!o
z::
+z::Shift("z")
^z::^z
!z::!z
`;::
+`;::Shift("p")
^`;::^p
!`;::!p
#IfOther: I have actually tried to roll this straight into the keyboard layout using Microsoft Keyboard Layout Creator, but I had trouble when pressing Control + R in Qwerty (CapsLock) mode, it would actually press Control + P (which makes sense from a pass-through to Colemak)
If anyone has any suggestions for improvement, feel free to comment
