AppleScript：QRコード（リンク）を作成する

AppleScript を使って、Safari でいま開いているサイトへのQRコード（リンク）を作成してみました。


AppleScript : HTMLリンクメイカー - GameSprit で作成したコードを基本的には流用し、一部変更します。


Google Chart API のお世話になっています。
Developer's Guide - Google Chart API - Google Code にQRコード作成のガイドがあります。

日本語版 デベロッパー ガイド - Google Chart API - Google Code には、2008年9月8日現在はQRコード作成のガイドがありませんが、そのうち追加されるでしょう。


このスプリプトを利用してQRコードを作成した投稿が ここ（携帯電話サイト：フリー辞書 - GameSprit） にあります。（この記事を見に行ってもそんなことはわかりませんが ^^ ）


ソースコード：

tell application "Safari"
try
set theUrl to (URL of document 1)
on error
beep 2
return
end try
end tell

set preF to "http://chart.apis.google.com/chart?chs="
set theMid to "&cht=qr&chl="
set theSize to "150x150"
set theEnc to "&choe=Shift_JIS"

set theInfo to preF & theSize & theMid & theUrl & theEnc
set the clipboard to theInfo --※１
display dialog theInfo --※2

tell application "Safari"
try
make new document with properties {name:"QR code output error", URL:theInfo}

on error
beep 2
return
end try
end tell

-- on Leopard, Mac OS 10.5.4

(* ref. QR code in google chart API
http://code.google.com/apis/chart/#qrcodes
*)

(*
※１　ここの行頭に『#』や『--』を書けば、クリップボードにコピーされない。
※２　ここの行頭に『#』や『--』を書けば、display されない。
*)

スクリプトエディタに貼り付けて実行すると、次のようになります。



QRコード（リンク）を作成したいサイトを、Safari で開き、このスクリプトを実行します。





作成するテキストが display されます。
（コメントアウト すると出ません）





Safari で新しい ウィンドウが開き、作成されたQRコードを確認することができます。





なお、作成したリンクテキストはクリップボードにコピーされています。
（コメントアウトすれば、クリップボードにコピーされません）