超いーかげん、Safariで開いているタブをはてなブックマークに登録するスクリプト
9月 14th, 2006
前のエントリで書いた「Mac OS XのSafariで開いているタブをまとめてはてなブックマークに登録するAppleScript」がいちおうできたけど……。
こちらのページによれば、はてなブックマークはだいぶ前に仕様変更されて、確認画面なしでは登録できなくなったようだ。タグを付けた状態で確認画面を呼び出すこともできない。確かにこれが可能だと、スパム的なブックマークががんがん登録されてしまうから仕方ないのか。
そういうわけで、「タブで開いているページをまとめてはてなブックマークへ登録するのがちょっと楽になるAppleScript」になってしまった。Safariで複数タブを開いた状態で下記のスクリプトを実行すると、それぞれのページについてのはてなブックマーク登録画面が現れる。タブの切り替えルーチンが非常にいい加減なので、同じURLのページが複数あるとそこで止まってしまうし、複数ウィンドウにも対応していない。KOTOERAで公開されている「Safari で開いている全ての URL からロケーションファイルを作成」スクリプトのタブ切り替えルーチンは、複数ウィンドウでタブを開いている場合でもうまく動作するようだ。
tell application "Safari"
set i to true
set URL_list to {}
repeat
if exists the URL of document 1 then
set this_URL to the URL of document 1
else
set this_URL to ""
end if
repeat with j from 1 to count of URL_list
if this_URL = item j of URL_list then
set i to false
exit repeat
end if
end repeat
if i = true then
set URL_list to URL_list & {this_URL}
my next_tab()
else
exit repeat
end if
end repeat
repeat with j from 1 to count of URL_list
open location "http://b.hatena.ne.jp/add?mode=confirm&url=" & item j of URL_list
end repeat
end tell
on next_tab()
tell application "Safari" to activate
tell application "System Events"
tell process "Safari"
click menu item "次のタブを選択" of menu "ウインドウ" of menu bar 1
end tell
end tell
end next_tab