Capslock_Numpad.ahk

; CapslockNumpad 1.1.0 (2019-12-30)
; Desi Quintans
; https://github.com/DesiQuintans/CapslockNumpad

; An Autohotkey script for Windows that lets you emulate a numeric keypad
; (numpad) on a keyboard that doesn't have it. Both NumLock modes are usable.

; Press Ctrl + CapsLock to toggle the numpad on and off.
; Press \ (above Enter) to toggle NumLock.

; 789  ->  789
; uio  ->  456
; jkl  ->  123
; 0./  ->  0./
; *-=  ->  *-+



; ======================================

#NoEnv
#SingleInstance force
SetWorkingDir %A_ScriptDir%



; - Global vars and other setup ------------------------------

SetNumLockState, On
Suspend, On

numlock_on()
{
    return GetKeyState("NumLock", "T")
}

update_traytip()
{
    tray_text := "CapsLock Numpad`nToggle with Ctrl + CapsLock"

    if (numlock_on() == true) {
        numlock_state := "NumLock is ON"
    } else {
        numlock_state := "NumLock is OFF"
    }

    Menu, Tray, Tip, %tray_text%`n`n%numlock_state%
}

update_traytip()

; - Ctrl + CapsLock toggling ---------------------------------

^CapsLock::
    Suspend, Toggle
    SoundPlay, *48
    update_traytip()
    Return



; - Rebinds --------------------------------------------------

;; Common to both numlock states:
i::Numpad5
/::NumpadDiv
=::NumpadAdd
-::NumpadSub
+8::NumpadMult
m::Numpad0
0::Numpad0
SC034::NumpadDot  ; Period/Greater-Than key

SC02B::           ; Backslash/Pipe
    Send {NumLock}
    SoundPlay, *64
    update_traytip()
    Return



#If (numlock_on() == true)
    7::Numpad7
    8::Numpad8
    9::Numpad9

    u::Numpad4
    o::Numpad6

    j::Numpad1
    k::Numpad2
    l::Numpad3


#If (numlock_on() == false)
    7::NumpadHome
    8::NumpadUp
    9::NumpadPgUp

    u::NumpadLeft
    o::NumpadRight

    j::NumpadEnd
    k::NumpadDown
    l::NumpadPgDn