path: root/functions.ahk

dirWorking() {
    If A_OSVersion in WIN_XP
      {
        Run explorer %A_MyDocuments%
      }
    Else
      {
        Run explorer %A_MyDocuments%\..\Downloads
      }
    Return
  }

dirSync() {
    If A_OSVersion in WIN_XP
      {
        Run explorer %A_MyDocuments%\Vault
      }
    Else
      {
        Run explorer %A_MyDocuments%\..\Vault
      }
    Return
  }

launchTerminal() {
    If A_OSVersion in WIN_XP
      {
        Run C:\cygwin\bin\mintty.exe -
      }
    Else
      {
        Run C:\cygwin64\bin\mintty.exe -
      }
    Return
  }

launchKeepass() {
    If A_OSVersion in WIN_XP
      {
        Run "%A_MyDocuments%\Vault\docs\keepass\KeePass.exe"
      }
    Else
      {
        Run "%A_MyDocuments%\..\Vault\docs\keepass\KeePass.exe"
      }
    Return
  }

insertDate() {
    FormatTime, CurrentDateTime,, yyyy-MM-dd
    Send %CurrentDateTime%
    Return
  }

insertDateTime() {
    FormatTime, CurrentDateTime,, yyyy-MM-dd HHmm
    Send %CurrentDateTime%
    Return
  }

appendClipboard() {
    newclipboard = %clipboard%
    Send, ^c
    clipboard = %newclipboard%`r`n%clipboard%
    Return
  }

pasteTelephone() {
    StringReplace, clipboard, clipboard, +44, 0, All ;translate intl codes
    StringReplace, clipboard, clipboard, %A_Space%,, All ;remove spaces
    StringReplace, clipboard, clipboard, %A_Tab%, `,, All ;remove tabs
    StringReplace, clipboard, clipboard, `,,, All ;remove commas
    StringReplace, clipboard, clipboard, `r,, All ;remove lines
    StringReplace, clipboard, clipboard, `n,, All ;remove lines
    StringReplace, clipboard, clipboard, -,, All ;remove hyphens
    StringReplace, clipboard, clipboard, (,, All ;remove lbracket
    StringReplace, clipboard, clipboard, ),, All ;remove rbracket
    StringLeft, 5Digits, clipboard, 5
    StringRight, 6Digits, clipboard, 6
    Send %5Digits% %6Digits%
    Return
  }

dialTelephone() { ;lg phone-link
    ClipSaved := ClipboardAll
    Send, ^c
    StringReplace, clipboard, clipboard, +44, 0, All ;translate intl codes
    Run, dial://%clipboard% ;must enable internet dialling to work
    Clipboard := ClipSaved
    ClipSaved =
    Return
  }

typeSyncDocs() {
    If A_OSVersion in WIN_XP
      {
        Send %A_MyDocuments%\Vault\docs\
      }
    Else
      {
        Send C:\Users\%A_UserName%\Vault\docs\
      }
    Return
  }

typeDocuments() {
    If A_OSVersion in WIN_XP
      {
        Send %A_MyDocuments%
      }
    Else
      {
        Send C:\Users\%A_UserName%\
      }
    Return
  }

typeVault() {
    If A_OSVersion in WIN_XP
      {
        Send %A_MyDocuments%\Vault\
      }
    Else
      {
        Send C:\Users\%A_UserName%\Vault\
      }
    Return
  }

typeCygwin() {
    If A_OSVersion in WIN_XP
      {
        Send C:\cygwin\home\%A_UserName%\
      }
    Else
      {
        Send C:\cygwin64\home\%A_UserName%\
      }
    Return
  }

typeAcuteE() {
    ; {AltDown}130{AltUp} doesn't work for some reason, don't judge me
    ClipSaved := ClipboardAll
    Clipboard = �
    Send ^v
    Clipboard := ClipSaved
    ClipSaved =
    Return
  }

cmdPaste() { ;C-v / S-insert pastes into cmd
    CoordMode, Mouse, Relative
    MouseMove, 100, 100
    Send {RButton}p
    Return
  }

toggleFullscreen() { ;double click the window
    CoordMode, Mouse, Relative
    MouseMove, 250, 250
    Send {Click 2}
    Return
  }

explorerUp() { ;up one folder
    If A_OSVersion in WIN_XP
      {
        Send {BackSpace}
      }
    Else
      {
        Send !{Up}
      }
    Return
  }

explorerRename() {
    If A_OSVersion in WIN_XP
      {
        Send {F2}{CtrlDown}{Home}{ShiftDown}{End}{CtrlUp}{Left 4}{ShiftUp} ; Rename (hopefully) deselects file extension
      }
    Else
      {
        Send {F2}
      }
    Return
  }

explorerCMD() { ;open command prompt in current location
    ClipSaved := ClipboardAll
    Send !d^c
    Run, cmd /K "cd `"%clipboard%`""
    Clipboard := ClipSaved
    ClipSaved =
    Return
  }

explorerHidden() { ;toggle show/hide hidden folders, stolen from http://www.autohotkey.com/board/topic/68131-turn-off-show-hidden-files-at-boot/
    RegRead, HiddenFiles_Status, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden
    If HiddenFiles_Status = 2
        RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 1
    Else
        RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced, Hidden, 2
    WinGetClass, eh_Class,A
    If (eh_Class = "#32770" OR A_OSVersion = "WIN_VISTA" OR A_OSVersion = "WIN_7")
        Send, {F5}
    Else PostMessage, 0x111, 28931,,, A
    Return
  }

explorerNewDir() { ;allows xp to create new folder from keypress
    If A_OSVersion in WIN_XP
      {
        Send !fwf
      }
    Else
      {
        Send ^+n
      }
    Return
  }

explorerNewFile() { ;create a new blank text file
    If A_OSVersion in WIN_XP
      {
        Send !fwt{End}{Left 4}{ShiftDown}{Home}{ShiftUp} ;new text file, and deselect file extension
      }
    Else
      {
        Send !fwt ;clever windows 7 already knows to skip file extensions
      }
    Return
  }

excelFormulaBar() { ;jumps to formula bar
    CoordMode, Mouse, Relative
    MouseMove, 180, 60
    Send {LButton}
    Return
  }

borderlessFullscreen() { ;borderless fullscreen script from PCGW (http://pcgamingwiki.com/wiki/Glossary:Borderless_fullscreen_windowed#Borderless_scripts)
    WinGet, WindowID, ID, A
    WinSet, Style, -0xC40000, ahk_id %WindowID%
    WinMove, ahk_id %WindowID%, , 0, 0, A_ScreenWidth, A_ScreenHeight
    Return
  }

toggleAudioDevice() { ;toggle between default audio output (http://ml.pe/optimizing/2013/changing-the-default-sound-device-using-autohotkey/)
    switch := !switch
    If (switch)
        usePlaybackDevice(1)
    Else
        usePlaybackDevice(3)
    Return
  }

usePlaybackDevice(device) {
    Run, mmsys.cpl
    WinWaitActive, Sound ahk_class #32770
    ControlSend, SysListView321,{Down %device%}, Sound ahk_class #32770
    ControlClick, Button2, Sound ahk_class #32770
    WinClose, Sound ahk_class #32770
  }

winSplit() { ;split active and previous window side by side
    Tile("R")
    Sleep, 15
    Send {AltDown}{Tab}{AltUp}
    Sleep, 10
    Tile("L")
    Sleep, 15
    Send {AltDown}{Tab}{AltUp}
  }

winSplitH() { ;split active and previous window on top of each other
    Tile("T")
    Sleep, 15
    Send {AltDown}{Tab}{AltUp}
    Sleep, 10
    Tile("B")
    Sleep, 15
    Send {AltDown}{Tab}{AltUp}
  }

kdeMove() { ;kde-windows (Easy Window Dragging -- KDE style (requires XP/2k/NT) -- by Jonny)
    MouseGetPos,KDE_X1,KDE_Y1,KDE_id
    WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
    If KDE_Win
        WinRestore, A
    WinGetPos,KDE_WinX1,KDE_WinY1,,,ahk_id %KDE_id%
    Loop
      {
        GetKeyState,KDE_Button,LButton,P ; Break if Button has been released.
        If KDE_Button = U
            Break
        MouseGetPos,KDE_X2,KDE_Y2 ; Get the current Mouse position.
        KDE_X2 -= KDE_X1 ; Obtain an offset from the initial Mouse position.
        KDE_Y2 -= KDE_Y1
        KDE_WinX2 := (KDE_WinX1 + KDE_X2) ; Apply this offset to the window position.
        KDE_WinY2 := (KDE_WinY1 + KDE_Y2)
        WinMove,ahk_id %KDE_id%,,%KDE_WinX2%,%KDE_WinY2% ; Move the window to the new position.
      }
    Return
  }

kdeResize() {
    MouseGetPos,KDE_X1,KDE_Y1,KDE_id
    WinGet,KDE_Win,MinMax,ahk_id %KDE_id%
    If KDE_Win
        WinRestore, A
    ; Get the initial window position and size.
    WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id%
    ; Define the window region the mouse is currently in.
    ; The four regions are Up and Left, Up and Right, Down and Left, Down and Right.
    If (KDE_X1 < KDE_WinX1 + KDE_WinW / 2)
        KDE_WinLeft := 1
    Else
        KDE_WinLeft := -1
    If (KDE_Y1 < KDE_WinY1 + KDE_WinH / 2)
        KDE_WinUp := 1
    Else
        KDE_WinUp := -1
    Loop
      {
        GetKeyState,KDE_Button,RButton,P ; Break if Button has been released.
        If KDE_Button = U
            Break
        MouseGetPos,KDE_X2,KDE_Y2 ; Get the current Mouse position.
        ; Get the current window position and size.
        WinGetPos,KDE_WinX1,KDE_WinY1,KDE_WinW,KDE_WinH,ahk_id %KDE_id%
        KDE_X2 -= KDE_X1 ; Obtain an offset from the initial Mouse position.
        KDE_Y2 -= KDE_Y1
        ; Then, act according to the defined region.
        WinMove,ahk_id %KDE_id%,, KDE_WinX1 + (KDE_WinLeft+1)/2*KDE_X2  ; X of Resized window
                , KDE_WinY1 +   (KDE_WinUp+1)/2*KDE_Y2  ; Y of resized window
                , KDE_WinW  -     KDE_WinLeft  *KDE_X2  ; W of resized window
                , KDE_WinH  -       KDE_WinUp  *KDE_Y2  ; H of resized window
        KDE_X1 := (KDE_X2 + KDE_X1) ; Reset the initial position for the next iteration.
        KDE_Y1 := (KDE_Y2 + KDE_Y1)
      }
    Return
  }

Tile(Pos)
  {
    WinGetClass, class, A
    IfInString , shell_TrayWnd,Progman,Button,DV2ControlHost, %class%
    Return
    IfWinExist,ahk_class Shell_TrayWnd
        SysGet, m, MonitorWorkArea
    Else SysGet, m, Monitor
    WinGetPos, MWT_X, MWT_Y, MWT_W, MWT_H, A
    SendMessage, 0x1F,,,, A
    WinGet, MWT_active, MinMax, A
    If (MWT_active = 1)
        WinRestore, A
    If (Pos = "T")
        WinMove, A,, 0, 0, mRight, mBottom/2
    If (Pos = "B")
        WinMove, A,, 0, mBottom/2, mRight, mBottom/2
    If (Pos = "L")
        WinMove, A,, 0, 0, mRight/2, mBottom
    If (Pos = "R")
        WinMove, A,, mRight/2, 0, mRight/2, mBottom
    If (Pos = "TL")
        WinMove, A,, 0, 0, mRight/2, mBottom/2
    If (Pos = "TR")
        WinMove, A,, mRight/2, 0, mRight/2, mBottom/2
    If (Pos = "BR")
        WinMove, A,, mRight/2, mBottom/2, mRight/2, mBottom/2
    If (Pos = "BL")
        WinMove, A,, 0, mBottom/2, mRight/2, mBottom/2
  }
Return