ClipboardへSafariの最前面WindowのTitleとURL，選択文字列をコピーするApplescript

参考：[ AppleScript ] Safari でページタイトルと URL をクリップボードにコピーするサンプル | Bowz::Notebook 感謝．

tell application "Safari"
 set ThisText to do JavaScript "window.getSelection()" in front document
 set ThisURL to do JavaScript "document.URL" in front document
 set ThisTitle to do JavaScript "document.title" in front document
 if ThisText is equal to "" then
  set the clipboard to "「" & ThisTitle & "」 " & ThisURL
 else
  set the clipboard to "“" & ThisText & "” 「" & ThisTitle & "」 " & ThisURL
 end if
end tell

っていうか 'do JavaScript "…"'なんてできるんだ．

で，Automatorでサービスにしてみる．

追記(2010/11/25): 入力をテキストにすると選択文字列があるときだけ利用できる．選択文字列があるときにコンテクストメニューに項目がでる．