From 31575a608b5f2bbd0685b1c4f35e712d96f1a2dc Mon Sep 17 00:00:00 2001 From: breadcat Date: Thu, 9 Apr 2015 01:13:17 +0100 Subject: Small improvements and fixes --- appspecific.ahk | 63 +++++++++++++++++++++++++++++++++++++++++++++++++-------- borders.ahk | 5 +++++ 2 files changed, 60 insertions(+), 8 deletions(-) diff --git a/appspecific.ahk b/appspecific.ahk index 46fa65d..34f50be 100644 --- a/appspecific.ahk +++ b/appspecific.ahk @@ -23,13 +23,37 @@ Send {F2} } Return + F3:: ;cmd to path + ClipSaved := ClipboardAll + Send !d + Sleep 10 + Send ^c + Run, cmd /K "cd `"%clipboard%`"" + Clipboard := ClipSaved + ClipSaved = + Return + ^h:: ;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 + ^+n::Send {AltDown}f{AltUp}wf ;windows xp only #IfWinActive #IfWinActive ahk_class FontViewWClass ;font previewer Capslock::Send !{F4} ;quit #IfWinActive -#IfWinActive ahk_class SciCalc ;calc +#IfWinActive ahk_class SciCalc ; windows xp calc + Capslock::Send !{F4} ;quit +#IfWinActive +#IfWinActive ahk_class CalcFrame ; windows 7 calc Capslock::Send !{F4} ;quit #IfWinActive @@ -59,7 +83,7 @@ #IfWinActive ahk_class mpv ;mpv Alt & Enter:: ;overflow to fullscreen below Ralt & Enter::Send f ; ralt-enter fullscreens - Capslock::Send !{F4} ;quitp + Capslock::Send !{F4} ;quit #IfWinActive #IfWinActive ahk_class rctrl_renwnd32 ;outlook @@ -68,6 +92,13 @@ #IfWinActive ahk_class XLMAIN ;excel ^+v::Send {Esc}{Up}^c{Down}^v{Esc}{Down} ;ctrl+shift+v copies above cell into current + ^F2::Send {AltDown}o{AltUp}hr ;rename sheet + F3::Send {CtrlDown}f{CtrlUp}{Enter}{Escape} ;f3 searches for the same string again + F6:: ;jumps to formula bar + CoordMode, Mouse, Relative + MouseMove, 180, 60 + Send {LButton} + return #IfWinActive #IfWinActive ahk_class WindowsForms10.Window.8.app.0.2004eee ;act @@ -97,12 +128,14 @@ ^b::Send ^v ;replace bookmarks with paste f6::Send ^l ;F6 jumps to address bar ^+o::Send {AltDown}t<{AltUp}o ;ctrl+shift+o option - #o:: - StringReplace, clipboard, clipboard, %A_SPACE%, , All ;remove spaces, basic validation - StringReplace, clipboard, clipboard, `r, , All ;remove lines, sometimes overflows :/ - StringReplace, clipboard, clipboard, `n, , All ;remove lines, sometimes overflows :/ - Send, ^c^t^v{Enter} ;copy selected uri and open, right click option fails to recognise ~50% of what I try - return + #o::Send, ^c^t^v{Enter} ;copy selected uri and open, right click option fails to recognise ~50% of what I try + +PgDn::Send {Space 4}{Down 7} ;scroll down to specific part of a specific page, not really + +PgUp::Send {Home} ;makes sense, kinda +#IfWinActive + +#IfWinActive ahk_class MSPaintApp ;mspaint + ^=::Send {CtrlDown}{PgUp}{CtrlUp} ;zoom in + ^-::Send {CtrlDown}{PgDn}{CtrlUp} ;zoom out #IfWinActive #IfWinActive ahk_class Notepad2 ;notepad2-mod @@ -114,3 +147,17 @@ ^+Up:: ^Up::Send {Up} ; disable (alt) shift line up feature #IfWinActive + +#IfWinActive ahk_class wxWindowClassNR ;audacity + ^=::Send {CtrlDown}1{CtrlUp} ;zoom in + ^-::Send {CtrlDown}3{CtrlUp} ;zoom out + ^0::Send {CtrlDown}2{CtrlUp} ;zoom reset +#IfWinActive + +#IfWinActive ahk_class civ5 ;civilization 5 + F12:: ;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 +#IfWinActive diff --git a/borders.ahk b/borders.ahk index ecc83d2..d0899b3 100644 --- a/borders.ahk +++ b/borders.ahk @@ -89,4 +89,9 @@ AdjustWindow(id) { WinSet, Style, -0xC00000, %WinTitle% } + If WinClass In % "Qt5QWindowIcon" ;owncloud client + { + WinSet, Style, -0xC00000, %WinTitle% + } + } \ No newline at end of file -- cgit v1.2.3