Swap the behavior of Caps Lock with more useful functions; Use it as an Escape key and/or provide comfortable access to the arrow keys

caps_lock_dual.ahk

; This script disables the normal behavior of Caps Lock,
; and makes the key more useful for programmers.
;
; Caps Lock + h/j/k/l -- Arrow keys
; Just Caps Lock -- Escape (on key released)
; Both shift keys -- Toggle Caps Lock (in case it's needed)

#SingleInstance force

SetCapsLockState, AlwaysOff
is_tap := 1


LShift & RShift::
RShift & LShift::
	SetCapsLockState % !GetKeyState("CapsLock", "T")
	return

CapsLock & h::
	is_tap := 0
	Send {Left}
	return

CapsLock & j::
	is_tap := 0
	Send {Down}
	return

CapsLock & k::
	is_tap := 0
	Send {Up}
	return

CapsLock & l::
	is_tap := 0
	Send {Right}
	return

CapsLock up::
	if is_tap
		Send {Esc}
	is_tap := 1
	return