要は、Safari ブラウザで いま表示しているページにリンクを張るHTMLコードを作ってくれます。
下図のように、Safari で表示しているURL(下図では、『http://blog.goo.ne.jp/vallie』)と Safari で表示しているそのページのタイトル(下図では、『GameSprit』)を取得し、次のようなHTMLコードを生成し、確認のためにダイアログを出し、クリップボードにコピーします。
どこかに、ペーストすれば、次のようなコードが貼付けられるわけです。
<a href="http://blog.goo.ne.jp/vallie" target=_blank>GameSprit</a>
『 target=_blank>』をつけているので、リンク先が別ウィンドウで開きます。
![](https://blogimg.goo.ne.jp/user_image/54/e8/4f4b83f54fe219fa8c600f57d0115de8.jpg)
上のコードをスクリプトエディタに貼り付けて、アプリケーションとして保存し、Dock に置いておけば、手軽にHTMLリンクを作成できます。
下図のように、Safari で表示しているURL(下図では、『http://blog.goo.ne.jp/vallie』)と Safari で表示しているそのページのタイトル(下図では、『GameSprit』)を取得し、次のようなHTMLコードを生成し、確認のためにダイアログを出し、クリップボードにコピーします。
どこかに、ペーストすれば、次のようなコードが貼付けられるわけです。
<a href="http://blog.goo.ne.jp/vallie" target=_blank>GameSprit</a>
『 target=_blank>』をつけているので、リンク先が別ウィンドウで開きます。
![](https://blogimg.goo.ne.jp/user_image/54/e8/4f4b83f54fe219fa8c600f57d0115de8.jpg)
tell application "Safari" --または"Shiira"
try
set theUrl to (URL of document 1)
set theTitle to (name of document 1)
on error
beep 2
return
end try
end tell
set theInfo to "<a href=\"" & theUrl & "\" target=_blank>" & theTitle & "</a>"
set the clipboard to theInfo
display dialog theInfo
-- on Leopard, Mac OS 10.5.4
『\』は、本当は半角です。
上のコードをスクリプトエディタに貼り付けて、アプリケーションとして保存し、Dock に置いておけば、手軽にHTMLリンクを作成できます。