SafariでMake LinkするAppleScript

SafariでURLとTitleと選択している文字列を引用するためのAppleScriptを作ってみようと思います。

まずURLとTitleは

set t to name of document 1
set u to URL of document 1

で取得できました。

選択文字列はselectionで取得できるかと思ったら、どうやら無理のようです。で、考えられる方法は二つ。

• keystrokeかkey codeでcommand+cを送出してコピー
• JavaScriptでselectionを取得

ですね。今回はJavaScriptで取得してみます。

set theSelection to do JavaScript "unescape(escape(getSelection()));" in document 1

選択箇所がない場合はタイトルをリンク付きで取得。選択箇所がある場合はblockquoteで取得するようにしました。

tell application "Safari"

        

    set theTitle to name of document 1

    set theURL to URL of document 1

    set theSelection to do JavaScript "unescape(escape(getSelection()));" in document 1

        

        

    if theSelection is "" then

            set theText to "<a href='" & theURL & "'>" & theTitle & "</a>"

    else

            set theText to "<blockquote cite='" & theURL & "' title='" & theTitle & "'>" & return & "<p>" & theSelection & "<cite><a href='" & theURL & "'>" & theTitle & "</a></cite></p>" & return & "</blockquote>" & return

    end if

        

    set the clipboard to theText as Unicode text

end tell