This script dynamically embeds YouTube players into reddit comments wherever a comment references a YouTube video URL. It is a prototype of functionality I would like to see added to RES.
In Chrome:
YouTube embedded in reddit comments^http://.+reddit.+\/
| ;#NoTrayIcon ; uncomment this to also hide this script's systray icon | |
| init() | |
| return | |
| init() { | |
| ; Configure event hook for window-created message reception | |
| Gui +LastFound | |
| hWnd := WinExist() | |
| DllCall( "RegisterShellHookWindow", UInt,hWnd ) | |
| MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" ) |
| // The Babylonian Method | |
| // http://en.wikipedia.org/wiki/Methods_of_computing_square_roots#Babylonian_method | |
| // @param n - the number to compute the square root of | |
| // @param g - the best guess so far (can omit from initial call) | |
| function squirt(n, g) { | |
| if (!g) { | |
| // Take an initial guess at the square root | |
| g = n / 2.0; | |
| } | |
| var d = n / g; // Divide our guess into the number |
| /////////////////////////////////////////////////////// | |
| // extendClass(): subclassing for Javascript | |
| /////////////////////////////////////////////////////// | |
| // extendClass won't create surrogate child functions for these function names. | |
| var EXTEND_CLASS_BANNED_SURROGATE_NAMES = | |
| ['constructor', '$base', '$super', '$parent']; | |
| // Inherit superClass's prototype onto subClass. | |
| // Adds properties of prototype argument to subClass's prototype. |
| ;; Go to anything that is in the currently selected text: URLs, email addresses, Windows paths, or just "Google it" | |
| ;; Forum topic: http://www.autohotkey.com/community/viewtopic.php?f=2&t=85152&p=537116 | |
| $#G:: | |
| ;Tip("Clipping...") ;; include my mouse-tip library for this https://gist.github.com/2400547 | |
| clip := CopyToClipboard() | |
| if (!clip) { | |
| return | |
| } | |
| addr := ExtractAddress(clip) | |
| if (!addr) |
| ;; Chrome has been seen with any of these class names | |
| GroupAdd, GoogleChrome, ahk_class Chrome_WindowImpl_0 | |
| GroupAdd, GoogleChrome, ahk_class Chrome_WidgetWin_0 | |
| GroupAdd, GoogleChrome, ahk_class Chrome_WidgetWin_1 | |
| ;; My email domain name | |
| EmailDomainName := "mydomain.com" | |
| ;; Send sitename@mydomain.com | |
| #IfWinActive ahk_group GoogleChrome |
| #Persistent | |
| ; update mouse tooltip position this often, in ms | |
| ; 10 ms looks the smoothest, but you may prefer a higher value | |
| ; if the CPU load is too high with 10 ms | |
| MouseTipUpdateInterval := 10 | |
| ; a usage example | |
| Tip("This is an example mousetip.") |