Small improvements and fixes

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