binWord/blog

超いーかげん、Safariで開いているタブをはてなブックマークに登録するスクリプト

前のエントリで書いた「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

Posted by Tats_y at 2006年09月14日 18:05 | | この記事へのリンク