From eab25092d8e80c5496a110f145c8c0d6b871c678 Mon Sep 17 00:00:00 2001 From: Peter Date: Wed, 27 Apr 2022 10:09:29 +0100 Subject: Auto-indent script --- ahk-assistant.ahk | 843 +++++++++++++++++++++++++++--------------------------- 1 file changed, 423 insertions(+), 420 deletions(-) diff --git a/ahk-assistant.ahk b/ahk-assistant.ahk index 86e0ef9..3652042 100644 --- a/ahk-assistant.ahk +++ b/ahk-assistant.ahk @@ -1,4 +1,3 @@ - ; ahk-assistant ; ^ctrl #win !alt +shift @@ -76,320 +75,320 @@ Insert::appendClipboard() ; application specific hotkeys #IfWinActive ahk_class #32770 ; misc save/load/time-date/find boxes and more! - CapsLock::Send !{F4} ; quit - F1::Send, {F2} ; rename, help is useless in explorer - /::Send, \ ; forward slashes paths aren't accepted - !/::Send, / ; just in case you need an incorrect slash +CapsLock::Send !{F4} ; quit +F1::Send, {F2} ; rename, help is useless in explorer +/::Send, \ ; forward slashes paths aren't accepted +!/::Send, / ; just in case you need an incorrect slash #IfWinActive #IfWinActive ahk_class CabinetWClass ; explorer - CapsLock:: ; overflow - RAlt & Up::Send {AltDown}{Up}{AltUp} - Alt & Enter:: ; overflow - Ralt & Enter::Send {AppsKey}{Up}{Enter} ; ralt-enter properties - ^+Enter::Send {AppsKey}e ; C-S-enter opens in new window - F1:: ; overflow to rename, help is useless in explorer - F3::Send, {F2} ; rename for fun, nobody uses F3 - F6::Send !d ; addressbar - ^Backspace::Send ^+{Left}{Backspace} ; backspace a word - ^f::Return ; disable search in explorer, was always pretty useless - ^h::explorerHidden() - ^p::Send, !p ; C-p also works for toggle preview - ^-::Send ^{WheelDown 2} ; zoom out - ^=::Send ^{WheelUp 2} ; zoom in +CapsLock:: ; overflow +RAlt & Up::Send {AltDown}{Up}{AltUp} +Alt & Enter:: ; overflow +Ralt & Enter::Send {AppsKey}{Up}{Enter} ; ralt-enter properties +^+Enter::Send {AppsKey}e ; C-S-enter opens in new window +F1:: ; overflow to rename, help is useless in explorer +F3::Send, {F2} ; rename for fun, nobody uses F3 +F6::Send !d ; addressbar +^Backspace::Send ^+{Left}{Backspace} ; backspace a word +^f::Return ; disable search in explorer, was always pretty useless +^h::explorerHidden() +^p::Send, !p ; C-p also works for toggle preview +^-::Send ^{WheelDown 2} ; zoom out +^=::Send ^{WheelUp 2} ; zoom in #IfWinActive #IfWinActive ahk_class ShockwaveFlashFullScreen ; full screen flash - Ralt & Enter:: ; overflow - Alt & Enter::toggleFullscreen() ; leave flash full screen with a keyboard command +Ralt & Enter:: ; overflow +Alt & Enter::toggleFullscreen() ; leave flash full screen with a keyboard command #IfWinActive #IfWinActive ahk_class FontViewWClass ; font previewer - CapsLock::Send !{F4} ; quit +CapsLock::Send !{F4} ; quit #IfWinActive #IfWinActive ahk_exe 7zFM.exe ; 7zip file manager - !Up::Send {Backspace} +!Up::Send {Backspace} #IfWinActive #If WinActive("ahk_exe AppMgrEX.exe") or WinActive("ahk_exe AppMgr.exe") or WinActive("ahk_exe AppMgrPx.exe") ; NEC programming tools - global necUsername - global necPassword - global necPort - :*?:__login:: - Send tech{Tab}12345678{Enter} - Return - Alt & Enter:: ; connect, paste IP, enter credentials, connect - Send {F5}{Sleep 250}{Tab 5}{Sleep 250} - pasteClipboard() - Send {Tab}{Enter}{Tab}%necPort%{Tab 2}{Enter}{Tab}%necUsername%{Tab}%necPassword%{Tab}{Enter}{Sleep 250}{Enter} - Return +global necUsername +global necPassword +global necPort +:*?:__login:: + Send tech{Tab}12345678{Enter} +Return +Alt & Enter:: ; connect, paste IP, enter credentials, connect +Send {F5}{Sleep 250}{Tab 5}{Sleep 250} +pasteClipboard() +Send {Tab}{Enter}{Tab}%necPort%{Tab 2}{Enter}{Tab}%necUsername%{Tab}%necPassword%{Tab}{Enter}{Sleep 250}{Enter} +Return #If #If WinActive("ahk_class SciCalc") or WinActive("ahk_class CalcFrame") ; windows xp or windows 7 calculator - CapsLock::Send !{F4} ; quit +CapsLock::Send !{F4} ; quit #IfWinActive #IfWinActive ahk_class ShImgVw:CPreviewWnd ; photoviewer windows xp - ^w:: ; overflow - CapsLock::Send !{F4} ; quit - ^-::Send {-} ; zoom out - ^=::Send {+} ; zoom in +^w:: ; overflow +CapsLock::Send !{F4} ; quit +^-::Send {-} ; zoom out +^=::Send {+} ; zoom in #IfWinActive #IfWinActive ahk_class Photo_Lightweight_Viewer ; photoviewer windows 7 - q:: ; overflow - ^w:: ; overflow - CapsLock::Send !{F4} ; quit - Up:: ; overflow - Down::Return ; fixes up/down breaking left/right navigation +q:: ; overflow +^w:: ; overflow +CapsLock::Send !{F4} ; quit +Up:: ; overflow +Down::Return ; fixes up/down breaking left/right navigation #IfWinActive #IfWinActive ahk_exe nomacs.exe - q:: ; overflow - ^w:: ; overflow - CapsLock::Send !{F4} ; quit +q:: ; overflow +^w:: ; overflow +CapsLock::Send !{F4} ; quit #IfWinActive #IfWinActive ahk_class IrfanView - q:: ; overflow - ^w:: ; overflow - CapsLock::Send !{F4} ; quit - !Left::Send l - !Right::Send r +q:: ; overflow +^w:: ; overflow +CapsLock::Send !{F4} ; quit +!Left::Send l +!Right::Send r #IfWinActive #IfWinActive ahk_class FullScreenClass ; irfanview fullscreen-o-mode - q:: ; overflow - ^w:: ; overflow - CapsLock::Send !{F4}{sleep 15}!{F4} ; quit +q:: ; overflow +^w:: ; overflow +CapsLock::Send !{F4}{sleep 15}!{F4} ; quit #IfWinActive #IfWinActive ahk_exe SumatraPDF.exe ; sumatra pdf - CapsLock::Send !{F4} ; quit - ^b::Send {F12} ; C-b toggles bookmarks - ^t::Send !vt ; C-t toggles toolbar - Alt & Enter:: ; overflow - Ralt & Enter::Send ^l ; fullscreen +CapsLock::Send !{F4} ; quit +^b::Send {F12} ; C-b toggles bookmarks +^t::Send !vt ; C-t toggles toolbar +Alt & Enter:: ; overflow +Ralt & Enter::Send ^l ; fullscreen #IfWinActive #IfWinActive ahk_class MediaPlayerClassicW ; mpc-hc - 1::Send 2^1 ; 1 keeps borders - Ralt & Enter::Send !{Enter} ; ralt-enter fullscreens - CapsLock::Send !{F4} ; quit - p::Send ^7 ; p for playlist +1::Send 2^1 ; 1 keeps borders +Ralt & Enter::Send !{Enter} ; ralt-enter fullscreens +CapsLock::Send !{F4} ; quit +p::Send ^7 ; p for playlist #IfWinActive #If WinActive("ahk_exe mpv.exe") or WinActive("ahk_exe mpvnet.exe") ; mpv and mpv.net - Alt & Enter:: ; overflow to fullscreen below - Ralt & Enter::Send f ; ralt-Enter fullscreens - q:: ; overflow to quit, for mpv.net - CapsLock::Send !{F4} ; quit +Alt & Enter:: ; overflow to fullscreen below +Ralt & Enter::Send f ; ralt-Enter fullscreens +q:: ; overflow to quit, for mpv.net +CapsLock::Send !{F4} ; quit #IfWinActive #IfWinActive ahk_class rctrl_renwnd32 ; outlook - ^Enter::Return ; disable accidentally send email shortcut - ^f::Send ^e ; C-f finds instead of forwards - ^t::Send !go ; C-t goes to today, on calendar view +^Enter::Return ; disable accidentally send email shortcut +^f::Send ^e ; C-f finds instead of forwards +^t::Send !go ; C-t goes to today, on calendar view #IfWinActive #IfWinActive ahk_class OpusApp ; word 2003 - ^=::Send ^{WheelUp} ; zoom in - ^-::Send ^{WheelDown} ; zoom out - ^0::Send !vzp{Enter} ; fit to page zoom +^=::Send ^{WheelUp} ; zoom in +^-::Send ^{WheelDown} ; zoom out +^0::Send !vzp{Enter} ; fit to page zoom #IfWinActive #IfWinActive ahk_class XLMAIN ; excel 2003/2007 - ^!t::Send {AppsKey}f{Tab}{End}{Up 2}{Enter} ; sets cell format to text to allow leading zeroes - ^+v::Send ^'{Down} ; C-S-v copies above cell contents into current - ^!+v::pasteClipboard() ; C-A-S-v past clipboard as above steals C-A-v - ^+n::Send !iw ; new sheet - ^+w::Send !el ; delete current sheet - !F2:: ; overflow - ^F2::Send !ohr ; rename sheet - F3::Send +{F4} ; f3 searches for the same string again - F6::Send {F2} ; shortcut to formula bar - F11::Send !vu ; fullscreen - ^Tab::Send ^{PgDn} ; next sheet - ^+Tab::Send ^{PgUp} ; prev sheet - ^0::Send !vz1{Enter} ; reset zoom - ^-::Send ^{WheelDown} ; zoom out - ^=::Send ^{WheelUp} ; zoom in - ^Backspace::Send {CtrlDown}{ShiftDown}{Left}{CtrlUp}{ShiftUp}{Backspace} ; C-Backspace deletes word when in formula bar, can't ^!LB due to it not releasing and deleting the whole line +^!t::Send {AppsKey}f{Tab}{End}{Up 2}{Enter} ; sets cell format to text to allow leading zeroes +^+v::Send ^'{Down} ; C-S-v copies above cell contents into current +^!+v::pasteClipboard() ; C-A-S-v past clipboard as above steals C-A-v +^+n::Send !iw ; new sheet +^+w::Send !el ; delete current sheet +!F2:: ; overflow +^F2::Send !ohr ; rename sheet +F3::Send +{F4} ; f3 searches for the same string again +F6::Send {F2} ; shortcut to formula bar +F11::Send !vu ; fullscreen +^Tab::Send ^{PgDn} ; next sheet +^+Tab::Send ^{PgUp} ; prev sheet +^0::Send !vz1{Enter} ; reset zoom +^-::Send ^{WheelDown} ; zoom out +^=::Send ^{WheelUp} ; zoom in +^Backspace::Send {CtrlDown}{ShiftDown}{Left}{CtrlUp}{ShiftUp}{Backspace} ; C-Backspace deletes word when in formula bar, can't ^!LB due to it not releasing and deleting the whole line #IfWinActive #IfWinActive ahk_class wxWindowNR ; hydrus client - CapsLock::Send !{F4} ; quit +CapsLock::Send !{F4} ; quit #IfWinActive #IfWinActive ahk_class ConsoleWindowClass ; command prompt - ^l::Send ^c{Enter}cls{Enter} ; clear screen as in linux +^l::Send ^c{Enter}cls{Enter} ; clear screen as in linux #IfWinActive #IfWinActive ahk_class MozillaWindowClass ; firefox - ^+w::Send ^w ; quit window closes tab - ^+n::Send ^+p ; new incognito window - ^q::Send ^w ; quit now closes tab, the two keys are too close for this sort of thing - ^!d::Send ^j ; why Downloads is ctrl+j while addons is ctrl+alt+a will never make sense - ^d::Send ^f ; bookmark remapped to find - ^b::Send ^v ; replace bookmarks with paste - ^+m::Send, ^+n ; why is this feature even a thing - #o::Send, ^c{F6}^v{Enter} ; copy selected uri and open in current tab - #+o::Send, ^c^t^v{Enter} ; copy selected uri and open in new tab - ^+o::Send, !t{sleep 150}s ; C-S-o options - F1:: ; overflow - F2::Send {Sleep 25}{Esc}{Sleep 25}{F6}{ShiftDown}{Tab 2}{ShiftUp}{AppsKey}w{Sleep 250} ; split current tab from window - F7:: ; overflow - F6::Send ^l ; F6 jumps to address bar - +PgDn::Send {Space 4}{Down 5} ; scroll down to specific part of a specific page, not really - +PgUp::Send {Home} ; makes sense, kinda - RAlt & Left::Send, !{Left} - RAlt & Right::Send, !{Right} - Ralt & Enter:: ; overflow - Alt & Enter::toggleFullscreen() ; leave flash full screen with a keyboard command - :*?:_crm:: - insertCRMFooter() - return +^+w::Send ^w ; quit window closes tab +^+n::Send ^+p ; new incognito window +^q::Send ^w ; quit now closes tab, the two keys are too close for this sort of thing +^!d::Send ^j ; why Downloads is ctrl+j while addons is ctrl+alt+a will never make sense +^d::Send ^f ; bookmark remapped to find +^b::Send ^v ; replace bookmarks with paste +^+m::Send, ^+n ; why is this feature even a thing +#o::Send, ^c{F6}^v{Enter} ; copy selected uri and open in current tab +#+o::Send, ^c^t^v{Enter} ; copy selected uri and open in new tab +^+o::Send, !t{sleep 150}s ; C-S-o options +F1:: ; overflow +F2::Send {Sleep 25}{Esc}{Sleep 25}{F6}{ShiftDown}{Tab 2}{ShiftUp}{AppsKey}w{Sleep 250} ; split current tab from window +F7:: ; overflow +F6::Send ^l ; F6 jumps to address bar ++PgDn::Send {Space 4}{Down 5} ; scroll down to specific part of a specific page, not really ++PgUp::Send {Home} ; makes sense, kinda +RAlt & Left::Send, !{Left} +RAlt & Right::Send, !{Right} +Ralt & Enter:: ; overflow +Alt & Enter::toggleFullscreen() ; leave flash full screen with a keyboard command +:*?:_crm:: + insertCRMFooter() +return #IfWinActive #IfWinActive ahk_exe mspaint.exe ; mspaint - ^=::Send ^{PgUp} ; zoom in - ^-::Send ^{PgDn} ; zoom out +^=::Send ^{PgUp} ; zoom in +^-::Send ^{PgDn} ; zoom out #IfWinActive #If WinActive("ahk_class Notepad2") or WinActive("ahk_class Notepad3") ; notepad 2 and 3 - ^0::Send ^/ ; remap transparency feature to reset zoom level, in keeping with other hotkeys - !t::Return ; disable always on top - ^+Down:: ; overflow - ^Down::Send {Down} ; disable (alt) shift line down feature - ^+Up:: ; overflow - ^Up::Send {Up} ; disable (alt) shift line up feature - !u::Send ^a!o ; remap delete last character to sort lines, after selecting everything +^0::Send ^/ ; remap transparency feature to reset zoom level, in keeping with other hotkeys +!t::Return ; disable always on top +^+Down:: ; overflow +^Down::Send {Down} ; disable (alt) shift line down feature +^+Up:: ; overflow +^Up::Send {Up} ; disable (alt) shift line up feature +!u::Send ^a!o ; remap delete last character to sort lines, after selecting everything #IfWinActive #IfWinActive ahk_exe calibre-parallel.exe ; calibre reader - q:: ; overflow - CapsLock::Send !{F4} ; quit +q:: ; overflow +CapsLock::Send !{F4} ; quit #IfWinActive #IfWinActive ahk_exe audacity.exe ; audacity - ^=::Send ^1 ; zoom in - ^-::Send ^3 ; zoom out - ^0::Send ^2 ; zoom reset +^=::Send ^1 ; zoom in +^-::Send ^3 ; zoom out +^0::Send ^2 ; zoom reset #IfWinActive #IfWinActive ahk_class WinClass_FXS ; civilization 5 - F11::borderlessFullscreen() - ^h::send {Home}{Esc} ; return to capital city, then close home screen +F11::borderlessFullscreen() +^h::send {Home}{Esc} ; return to capital city, then close home screen #IfWinActive #IfWinActive ahk_exe Teams.exe ; i hate ms teams - ^a::Send {End}{ShiftDown}{Home}{ShiftUp} +^a::Send {End}{ShiftDown}{Home}{ShiftUp} #IfWinActive ; text insertion/replacements :*?:_date:: - insertDate() - Return + insertDate() +Return :*?:_time:: - insertTime() - Return + insertTime() +Return :*?:_dttime:: - insertBlogDateTime() - Return + insertBlogDateTime() +Return :*?:_dtime:: - insertDateTime() - Return + insertDateTime() +Return :*?:_week:: - insertWeek() - Return + insertWeek() +Return :*?:_gw:: - insertGateway() - Return + insertGateway() +Return :*?:_lip:: - Send, %A_IPAddress1% - Return + Send, %A_IPAddress1% +Return :*?:_sig:: - insertSignature() - Return + insertSignature() +Return :*?:_reg:: - Send,`n`nRegards,`n%firstName%. - Return + Send,`n`nRegards,`n%firstName%. +Return :*?:_kreg:: - Send,`n`nKind regards,`n%firstName%. - Return + Send,`n`nKind regards,`n%firstName%. +Return :*:_hem:: - Send, %homeEmailAddress% - Return + Send, %homeEmailAddress% +Return :*:_wem:: - Send, %workEmailAddress% - Return + Send, %workEmailAddress% +Return :*:_wip:: - Send, %workIPAddress% - Return + Send, %workIPAddress% +Return :*:_cbip:: - Send, %workCBIPAddress% - Return - :*:_ntp:: - Send, 0.uk.pool.ntp.org - Return + Send, %workCBIPAddress% +Return +:*:_ntp:: + Send, 0.uk.pool.ntp.org +Return :*:_mac:: - Send, %remoteMAC% - Return + Send, %remoteMAC% +Return :*:_htel:: - Send, %homePhoneNumber% - Return + Send, %homePhoneNumber% +Return :*:_wtel:: - Send, %workPhoneNumber% - Return + Send, %workPhoneNumber% +Return :*:_wddi:: - Send, %workPhoneNumberDDI% - Return + Send, %workPhoneNumberDDI% +Return :*:_mob:: - Send, %mobilePhoneNumber% - Return + Send, %mobilePhoneNumber% +Return :*:_wmob:: - Send, %workMobilePhoneNumber% - Return + Send, %workMobilePhoneNumber% +Return :*:_xmraddr:: - Send, %xmrAddress% - Return + Send, %xmrAddress% +Return :*:_xrbaddr:: - Send, %xrbAddress% - Return + Send, %xrbAddress% +Return :*:_banaddr:: - Send, %banAddress% - Return + Send, %banAddress% +Return :*:_proid:: - Send, %prolificID% - Return + Send, %prolificID% +Return :*:_haddr:: - Send, %homeAddress% - Return + Send, %homeAddress% +Return :*:_waddr:: - Send, %workAddress% - Return + Send, %workAddress% +Return :*:_hpc:: - Send, %homePostCode% - Return + Send, %homePostCode% +Return :*:_wpc:: - Send, %workPostCode% - Return + Send, %workPostCode% +Return :*:_salu:: - insertSalutation() - Return + insertSalutation() +Return :*:_wdatfile:: - workDatFile() - Return + workDatFile() +Return :*:_db:: - Send, %A_WorkingDir%\Vault\ - Return + Send, %A_WorkingDir%\Vault\ +Return :*:_md:: - Send, %A_WorkingDir% - Return + Send, %A_WorkingDir% +Return :*?:_foot:: - insertFooter() - Return + insertFooter() +Return ; special character insertion ; swedish @@ -443,8 +442,8 @@ Insert::appendClipboard() :c?*:(a-)::á :c?*:(E-)::É :c?*:(e-):: - Send {ASC 130} ; C-A-e insertion for é is weird - Return + Send {ASC 130} ; C-A-e insertion for é is weird +Return :c?*:(I-)::Í :c?*:(i-)::í :c?*:(O-)::Ó @@ -562,260 +561,264 @@ Insert::appendClipboard() ; functions insertGateway() { - RunWait , %comspec% /c ipconfig > %A_Temp%\gw.txt,, Hide - ArrayCount = 0 - Loop, Read, %A_Temp%\gw.txt - { - Count := RegExMatch(A_LoopReadLine, ".*Default Gateway .+ ((?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)).*",ip) - If ( %Count% != 0) { - ArrayCount += 1 - IP_Array%ArrayCount% := ip1 - gateway := ip1 - } - } - FileDelete %A_Temp%\gw.txt - Send, %gateway% - } + RunWait , %comspec% /c ipconfig > %A_Temp%\gw.txt,, Hide + ArrayCount = 0 + Loop, Read, %A_Temp%\gw.txt + { + Count := RegExMatch(A_LoopReadLine, ".*Default Gateway .+ ((?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)).*",ip) + If ( %Count% != 0) { + ArrayCount += 1 + IP_Array%ArrayCount% := ip1 + gateway := ip1 + }} + FileDelete %A_Temp%\gw.txt + Send, %gateway% +} insertSignature() { - global firstName - global lastName - StringLeft, firstInitial, firstname, 1 - StringLeft, lastInitial, lastname, 1 - Send, %A_Space%-%firstInitial%%lastInitial% - } + global firstName + global lastName + StringLeft, firstInitial, firstname, 1 + StringLeft, lastInitial, lastname, 1 + Send, %A_Space%-%firstInitial%%lastInitial% +} insertFooter() { - Send, {Enter} - insertDateTime() - insertSignature() - Return - } + Send, {Enter} + insertDateTime() + insertSignature() + Return +} insertCRMFooter() { - insertFooter() - Send, {Tab}{Space} ; jump out of textarea and press save - Return - } + insertFooter() + Send, {Tab}{Space} ; jump out of textarea and press save + Return +} insertSalutation() { - If(A_Hour <12) - Send, Morning - Else if (A_Hour <17) - Send, Afternoon - Else - Send, Evening - Return - } + If(A_Hour <12) + Send, Morning + Else If (A_Hour <17) + Send, Afternoon + Else + Send, Evening + Return +} workDatFile() { - global firstName - Send order{Tab 3}`.dat file request{Tab} - insertSalutation() - Send, ,`n`nPlease can I get a .dat file generated for system ID: %clipboard%?`nThe order reference will be:{Space}`n`nRegards,`n%firstName%.{Up 3}{End} - Return - } + global firstName + Send order{Tab 3}`.dat file request{Tab} + insertSalutation() + Send, ,`n`nPlease can I get a .dat file generated for system ID: %clipboard%?`nThe order reference will be:{Space}`n`nRegards,`n%firstName%.{Up 3}{End} + Return +} insertDate() { - FormatTime, CurrentDateTime,, yyyy-MM-dd - Send %CurrentDateTime% - Return - } + FormatTime, CurrentDateTime,, yyyy-MM-dd + Send %CurrentDateTime% + Return +} insertTime() { - FormatTime, CurrentDateTime,, HH:mm - Send %CurrentDateTime% - Return - } + FormatTime, CurrentDateTime,, HH:mm + Send %CurrentDateTime% + Return +} insertBlogDateTime() { - FormatTime, CurrentDateTime,, yyyy-MM-ddTHH:mm:00 - Send %CurrentDateTime% - Return - } + FormatTime, CurrentDateTime,, yyyy-MM-ddTHH:mm:00 + Send %CurrentDateTime% + Return +} insertDateTime() { - FormatTime, CurrentDateTime,, yyyy-MM-dd HH:mm - Send %CurrentDateTime% - Return - } + FormatTime, CurrentDateTime,, yyyy-MM-dd HH:mm + Send %CurrentDateTime% + Return +} insertWeek() { - yearWeek = %A_YDay% - yearWeek /= 7 - yearWeek++ ; Convert from 0-base to 1-base - Send %yearWeek% - } + yearWeek = %A_YDay% + yearWeek /= 7 + yearWeek++ ; Convert from 0-base to 1-base + Send %yearWeek% +} appendClipboard() { - backupClipboard = %clipboard% - Send, ^c - clipboard = %backupClipboard%`r`n%clipboard% - backupClipboard = - Return - } - -pasteClipboard() { ; manually paste clipboard, minus most formatting - tempClipboard = %clipboard% - StringReplace, tempClipboard, tempClipboard, ?,, All ; remove bullet points - StringReplace, tempClipboard, tempClipboard, ·,, All ; remove middots - StringReplace, tempClipboard, tempClipboard, %A_Tab%,, All ; remove tabs - StringReplace, tempClipboard, tempClipboard, /,%A_Space%, All ; forward slashes mess up linux paths - StringReplace, tempClipboard, tempClipboard, +44,0, All ; remove international dialling code without a space - StringReplace, tempClipboard, tempClipboard, `r,, All ; remove half of line breaks - StringReplace, tempClipboard, tempClipboard, `n,, All ; remove other half of line breaks - tempClipboard = %tempClipboard% ; trim whitespace - SendRaw %tempClipboard% - tempClipboard = - Return - } - -toggleFullscreen() { ;double click the window - CoordMode, Mouse, Relative - MouseMove, 250, 250 - Send {Click 2} - 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 - Send, {F5} - 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 - } + backupClipboard = %clipboard% + Send, ^c + clipboard = %backupClipboard%`r`n%clipboard% + backupClipboard = + Return +} + +pasteClipboard() { + ; manually paste clipboard, minus most formatting + tempClipboard = %clipboard% + StringReplace, tempClipboard, tempClipboard, ?,, All ; remove bullet points + StringReplace, tempClipboard, tempClipboard, ·,, All ; remove middots + StringReplace, tempClipboard, tempClipboard, %A_Tab%,, All ; remove tabs + StringReplace, tempClipboard, tempClipboard, /,%A_Space%, All ; forward slashes mess up linux paths + StringReplace, tempClipboard, tempClipboard, +44,0, All ; remove international dialling code without a space + StringReplace, tempClipboard, tempClipboard, `r,, All ; remove half of line breaks + StringReplace, tempClipboard, tempClipboard, `n,, All ; remove other half of line breaks + tempClipboard = %tempClipboard% ; trim whitespace + SendRaw %tempClipboard% + tempClipboard = + Return +} + +toggleFullscreen() { + ;double click the window + CoordMode, Mouse, Relative + MouseMove, 250, 250 + Send {Click 2} + 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 + Send, {F5} + 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 +} forceClose() { - WinGet, PID, PID, % "ahk_id " WinExist("A") - Process, Close, %PID% - } + WinGet, PID, PID, % "ahk_id " WinExist("A") + Process, Close, %PID% +} dailyNotes() { - formattime, todaysDate,, yyyy-MM-dd - noteFilename := A_WorkingDir . "\Vault\docs\wfh\notes " . todaysDate . ".txt" - Run notepad "%noteFilename%" - Return - } - -toggleAudioDevice() { ;toggle between default audio output (http://ml.pe/optimizing/2013/changing-the-default-sound-device-using-autohotkey/) - switch := !switch - If (switch) - usePlaybackDevice(3) - Else - usePlaybackDevice(4) - Return - } + formattime, todaysDate,, yyyy-MM-dd + noteFilename := A_WorkingDir . "\Vault\docs\wfh\notes " . todaysDate . ".txt" + Run notepad "%noteFilename%" + Return +} + +toggleAudioDevice() { + ;toggle between default audio output (http://ml.pe/optimizing/2013/changing-the-default-sound-device-using-autohotkey/) + switch := !switch + If (switch) + usePlaybackDevice(3) + Else + usePlaybackDevice(4) + 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 - } - -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 - } + 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 +} + +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 - } + 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 +} scriptEdit: - { - Run notepad "%A_ScriptDir%\%A_ScriptName%" - Return - } +{ + Run notepad "%A_ScriptDir%\%A_ScriptName%" + Return +} scriptEditVariables: - { - Run notepad "%A_ScriptDir%\variables.ahk" - Return - } +{ + Run notepad "%A_ScriptDir%\variables.ahk" + Return +} ; autorun script section in tray menu scriptAutorun: - { - ; delete and recreate registry key - RegDelete, HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, %A_ScriptName% - RegWrite, REG_SZ, HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, %A_ScriptName%, "%A_ScriptDir%\%A_ScriptName%" - Return - } +{ + ; delete and recreate registry key + RegDelete, HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, %A_ScriptName% + RegWrite, REG_SZ, HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, %A_ScriptName%, "%A_ScriptDir%\%A_ScriptName%" + Return +} ; auto-reload script on source change changeReload: - { - FileGetAttrib, FileAttribs, %A_ScriptFullPath% - IfInString, FileAttribs, A - { - FileSetAttrib, -A, %A_ScriptFullPath% - TrayTip, Reloading Script..., %A_ScriptName%, , 1 - Reload - Sleep, 5000 - TrayTip - } - Return - } - +{ + FileGetAttrib, FileAttribs, %A_ScriptFullPath% + IfInString, FileAttribs, A + { + FileSetAttrib, -A, %A_ScriptFullPath% + TrayTip, Reloading Script..., %A_ScriptName%, , 1 + Reload + Sleep, 5000 + TrayTip + } + Return +} \ No newline at end of file -- cgit v1.2.3