Skip to content

Instantly share code, notes, and snippets.

@zarigani

zarigani/AppleScript_URL_by_JavaScript.scpt

Created May 14, 2010 12:06
Show Gist options
  • Save zarigani/401071 to your computer and use it in GitHub Desktop.
Save zarigani/401071 to your computer and use it in GitHub Desktop.
Download ZIP
AppleScript_URL_by_JavaScript.scpt
Raw
AppleScript_URL_by_JavaScript.scpt
tell application "AppleScript Editor"
activate
set myString to contents of document 1
set beforeList to {"%", ASCII character (9), ASCII character (13), ASCII character (13), ASCII character (32), ASCII character (34), "&", "<", ">", "\\", "\""}
set afterList to {"%25", "%09", "%0a", "%0a", "%20", "%22", "%26", "%3c", "%3e", "\\\\", "\\\""}
set html1 to "<html>\n<head>\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">\n</head>\n<body>\n\n<script language=\"JavaScript\">\n<!--\nlocation.href=\""
set html2 to "\"\nsetTimeout('window.close();', 1000);\n//-->\n</script>\n\n</body>\n</html>\n"
set oldDel to text item delimiters of AppleScript
set i to 1
repeat with x in beforeList
set text item delimiters of AppleScript to x
set mylist to every text item of myString
set text item delimiters of AppleScript to item i of afterList
set myString to mylist as string
set i to i + 1
end repeat
set text item delimiters of AppleScript to oldDel
set myString to html1 & "applescript://com.apple.scripteditor?action=new&script=" & myString & html2
set the clipboard to myString
end tell
my message("クリップボード", "AppleScriptをURLに変換して、セットしました。")
on message(title, msg)
try
do shell script "/usr/local/bin/growlnotify " & title & " -m " & quoted form of msg
on error
activate
display alert msg giving up after 1
end try
end message
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment