gistfile1.scpt

kopierURL()

tell application "Safari" to activate
test()

-- metoder --

on kopierURL()
	tell application "System Events"
		activate application "Google Chrome"
		keystroke "l" using {command down}
		
		keystroke "c" using {command down}
	end tell
	
end kopierURL

on appIsRunning(appName)
	tell application "System Events" to (name of processes) contains appName
end appIsRunning




on test()
	if appIsRunning("Safari") then
		tell application "Safari"
			add reading list item (the clipboard)
			quit
		end tell
	else
		delay 4
		tell application "Safari"
			add reading list item (the clipboard)
			quit
		end tell
	end if
end test