Movable Type on Leopard - AppleScript から制御する。

Mac OS X Leopard のAppleScriptが密かに面白い。
単なるOS Xネイティブなアプリケーションだけでなく例えば Movable Type 4.1 のようなソフトウェアを扱えるようになっているようだ(用語辞書、誰が書いたんだろう?)。

エントリーをブログに登録して再構築するスクリプトの例

tell application "Movable Type 4.1"
activate
set obj to new entry with property
{ title : "Welcome to Movable Type4!",
text : "New design launched using Movable Type.",
status : 2,
author : 1 }
set blog to item 1 of mt_blog
set result to save obj in blog
rebuild result without index archive
end tell

まぁ、ここまでなら素直にPerlで書けよ! ってなことになるけれど、以下の例なんかどうだ?

Excelと連携させる

tell application "Movable Type 4.1"
activate
set blog to item 1 of mt_blog
set entries to get entries of blog
set i to 1
repeat with entry in entries
tell application "Microsoft Excel"
tell document 1
set cell1 to "A" & i
set cell2 to "B" & i
set text of range cell1 to (title of entry)
set text of range cell2 to (permalink of entry)
set i to i + 1
end tell
end tell
end repeat
end tell

エントリーのタイトルとURLをExcelにそのまま渡してセルにセットしている。Excelからエントリーをインポートの方がニーズはありそうだけど。

嘘! 嘘です。すいません、もうしませんって言ったのに...一年に一度だし...また書いてしまいました。あんまり覚えてないや、AppleScript。(てかLeopardのマシンないし!)

それでも、

do shell script "./tools/run-periodic-tasks"

ってのは普通に使えるかもね。Excelから値をひっぱってシェル経由でPerlスクリプトに渡せばいいわけか。いや、できんことないよな。意味があるかどうかわからんけど。