Private Browse for Textual

privatebrowse.scpt

# Drop me in ``~/Library/Application Support/Textual/Scripts``...
# Usage is: ``/privatebrowse <url>``
on textualcmd(input)
	tell application "Google Chrome"
		activate
	end tell
	
	tell application "System Events"
		tell process "Google Chrome"
			tell menu bar 1
				tell menu bar item "File"
					tell menu "File"
						click menu item "New Incognito Window"
					end tell
				end tell
			end tell
			
			keystroke "l" using command down
			keystroke input
			key code 36
		end tell
	end tell
end textualcmd