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

;; -> body

#IfWinActive ahk_class Emacs

; RAlt::Alt

#IfWinActive ahk_class ConsoleWindowClass

!F4::WinClose, A

#IfWinActive ahk_exe WINWORD.EXE

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

#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_class MozillaWindowClass

+^!+::SendInput, ^!{WheelUp}
+^!-::SendInput, ^!{WheelDown}
!s::SendInput, ^k
F3::SendInput, !{Left}
F4::SendInput, !{Right}
!F1::SendInput, {WheelUp}
!F2::SendInput, {WheelDown}
F1::
Loop, 5
  SendInput, {WheelUp}
return
F2::
Loop, 5
  SendInput, {WheelDown}
return

#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

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

~RShift::
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::
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

#IfWinActive