;; Program shortcuts ----------------------------------------------------------

;; -> body

#IfWinActive ahk_class ConsoleWindowClass

!F4::WinClose, A

#IfWinActive ahk_exe WINWORD.EXE

XButton1::SendInput, +{F5} ; cycle cursor position backwards

#IfWinActive ahk_exe EXCEL.EXE

!s::SendInput, ^s{Space}

#IfWinActive ahk_class Audition v1.5

+WheelUp::
Loop, 30
	SendInput, ^+{Left}
return

+WheelDown::
Loop, 30
	SendInput, ^+{Right}
return

#IfWinActive ahk_class EVERYTHING

WheelUp::Up
WheelDown::Down

#IfWinActive ahk_class SciTEWindow

F2::Gosub, TrayRebuild ; rebuild scripts.ahk

#IfWinActive ahk_exe firefox.exe ahk_class MozillaWindowClass

^'::^g

F1::SendInput, {WheelUp}
F2::SendInput, {WheelDown}
!F1::
Loop, 5
	SendInput, {WheelUp}
return
!F2::
Loop, 5
	SendInput, {WheelDown}
return

F3::SendInput, !{Left}
F4::SendInput, !{Right}

; No stylesheet
F8::
SendInput, {Alt}
Sleep, 10
SendInput, {Right}{Right}{Down}{Down}{Down}{Down}{Right}{Enter}
return
; First stylesheet
F9::
SendInput, {Alt}
Sleep, 10
SendInput, {Right}{Right}{Down}{Down}{Down}{Down}{Right}{Down}{Enter}
return

; Default window size
F10::WinMove, A,,,, 1211, 1118

#IfWinActive ahk_class KMeleon Browser Window

F3::SendInput, !{Left}
F4::SendInput, !{Right}
!F1::SendInput, {LAlt Up}{Up}
!F2::SendInput, {LAlt Up}{Down}
F1::
Loop, 5
	SendInput, {WheelUp}
return
F2::
Loop, 5
	SendInput, {WheelDown}
return

#IfWinActive ahk_class MediaPlayerClassicW

F10::WinMove, A,,,, 240, 180

Esc::
WinGetPos, x, y, w, h
if (x = 0 and y = 0 and w = A_ScreenWidth and h = A_ScreenHeight)
	SendInput, !{Enter}
return

~RShift:: ; show controls (including time remaining)
WinGetPos, x, y, w, h, A
if not (x = 0 and y = 0 and w = A_ScreenWidth and h = A_ScreenHeight)
	return
MouseGetPos, mx, my
MouseMove, % A_ScreenWidth, % A_ScreenHeight, 0
KeyWait, RShift
MouseMove, % mx, % my, 0
return

~LShift:: ; show playlist
WinGetPos, x, y, w, h, A
MouseGetPos, mx, my
SendInput, {LCtrl Down}7{LCtrl Up}
if (x = 0 and y = 0 and w = A_ScreenWidth and h = A_ScreenHeight)
	MouseMove, % A_ScreenWidth, 0, 0
KeyWait, LShift
MouseMove, % mx, % my, 0
SendInput, {LCtrl Down}7{LCtrl Up}
return

Numpad0:: ; crop to 4:3
SendInput, {Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}{Numpad9}
return

#IfWinActive ahk_class Photoshop

MButton::
SendInput, {Space Down}{LButton Down}
KeyWait, MButton
SendInput, {Space Up}{LButton Up}
return

#IfWinActive

#If WinActive("ahk_class 9pmgraphics") and Layout() = layouts.sv ; see tt.layout.ahk

^!8::SendInput, {ASC 91}
^!9::SendInput, {ASC 93}
^!+::SendInput, {ASC 92}
<^>!8::SendInput, {ASC 91}
<^>!9::SendInput, {ASC 93}
<^>!+::SendInput, {ASC 92}

#If WinActive("ahk_class 9pmgraphics") and !AltTabActive

!Tab::
SendInput, {LAlt}
SendInput, {LAlt Down}{Tab}
AltTabActive := 1
KeyWait, LAlt
SendInput, {LAlt Up}
AltTabActive := 0
return

#If WinActive("ahk_exe SimCity 4.exe")

; Fix pausing for non-English keyboard layouts
^SC029::
old := Layout()
us := DllCall("LoadKeyboardLayout", "Str", "00000409", "Int", 1)
DllCall("SendMessage", "UInt", WinActive("A"), "UInt", 80, "UInt", 1, "UInt", us)
SendInput, {LCtrl Down}``{LCtrl Up}
DllCall("SendMessage", "UInt", WinActive("A"), "UInt", 80, "UInt", 1, "UInt", old)
return

#IfWinActive