daily dayflower

はてブコメントの並び順を変えるグリモン書いた

firefox, js

はじめて Greasemonkey 書きましたよ。おかしなところがあったら教えてください。

さいしょ はてなブックマークのコメントを昇順に並べ替えるGreasemonkey を使ってたんですけど，いろいろ不満があったので書き換えてみました。原型はとどめてない。

light じゃない版あったのカー→Sort HB Comment for Greasemonkey。じゃあこれいらないや。

• ページを読み込んだ段階では，ソートボタンを付与するだけで何もしない
  • 問答無用でソートするとコメント数が多いページで待ちが多くなるので
• 何種類かのボタンを指定できる
• ソート順を指定する関数を指定できる
• ソート中は「ソート中」って出る

まぁ「指定できる」ってのは，コード（setup() 部分）書き換えてくださいねっていうレベルなんですけれど。

ほんとは silog - script/SBMCommentsViewer とか使えばいいんでしょうけど，結構ブクマの entry ページとかよく見るんですよ。

// ==UserScript==
// @name           Sort HB Comment 2
// @namespace      http://d.hatena.ne.jp/dayflower/
// @description    Sort Hatena Bookmark Entry Page
// @include        http://b.hatena.ne.jp/entry/*
// @include        http://b.hatena.ne.jp/entry/?mode=more&url=*
// ==/UserScript==

(function () {

setup([
    {   // 逆順 (コメント優先)
        label: '\u25bd\u9006\u9806',
        criteria: function (a, b) {
            // first criteria: comment
            var ac = a.getAttribute('class') || '';
            var bc = b.getAttribute('class') || '';

            if (bc.match(/nocomment/)) {
                if (! ac.match(/nocomment/))
                    return -1;
            }
            else {
                if (ac.match(/nocomment/))
                    return 1;
            }

            // second criteria: original order (reverse)
            return b.xHatebuOrder - a.xHatebuOrder;
        }
    },
    {   // 元の順序
        label: '\u25bd\u6b63\u9806',
        criteria: function (a, b) {
            return a.xHatebuOrder - b.xHatebuOrder;
        }
    }
]);

var items;      // GLOBAL

function setup(confs) {
    var marks = document.getElementById('bookmarked_user');
    if (! marks)
        return;
    if (marks.childNodes[1].textContent
                     // 非表示に設定
             .match(/\u975e\u8868\u793a\u306b\u8a2d\u5b9a/))
        return;

    var res = document.evaluate(
        '//h2[@class="comment bookmark-list"]/span/span[@class="count"]',
        document.body,  null, 7, null
    );
    if (res.snapshotLength <= 0)
        return;
    var area = res.snapshotItem(0);
    for (var i = 0, n = confs.length; i < n; i ++)
        add_button(area, confs[i]);
}

function init_items() {
    var marks = document.getElementById('bookmarked_user');
    var items = [];

    if (1) {
        var t = marks.getElementsByTagName('li');

        for (var i = 0, n = t.length; i < n; i ++) {
            items[i] = t[i];
            items[i].xHatebuOrder = i;
        }
    }
    else {
        var res = document.evaluate('li', marks,  null, 7, null);

        for (var i = 0, n = res.snapshotLength; i < n; i ++) {
            items[i] = res.snapshotItem(i);
            items[i].xHatebuOrder = i;
        }
    }

    return items;
}

function do_sort_comments(criteria) {
    if (items == null)
        items = init_items();

    items.sort(criteria);

    var marks = document.getElementById('bookmarked_user');

    var newlist = document.createElement('ul');
    newlist.setAttribute('class', marks.getAttribute('class'));

    for (var i = 0, n = items.length; i < n; i ++)
        newlist.appendChild(items[i]);

    newlist.setAttribute('id', marks.getAttribute('id'));
    marks.parentNode.replaceChild(newlist, marks);
}

function add_button(area, conf) {
    var link = document.createElement('a');
    link.style.cursor = 'pointer';
    link.style.color  = '#fff';

    link.innerHTML = conf.label || '\u25bd';

    if (conf.title)
        link.title = conf.title;

    link.addEventListener('click', function (e) {
        var me = e.target;

        //              TEXTNODE
        var backup = me.firstChild.nodeValue;
        //                         ソート中…
        me.firstChild.nodeValue = '\u30bd\u30fc\u30c8\u4e2d\u2026';

        window.setTimeout(
            function () {
                do_sort_comments(conf.criteria);
                me.firstChild.nodeValue = backup;
                //me.parentNode.style.visibility = 'hidden';
            },
            0
        );

        e.preventDefault();
    }, true);

    var button = document.createElement('span');
    button.appendChild(document.createTextNode('\u3000['));
    button.appendChild(link);
    button.appendChild(document.createTextNode(']'));

    area.appendChild(button);
}

はじめて Greasemonkey 書いて感じたこと。

• デバッグがめんどくさい
  • エラー時に firebug console に出力される内容がちょっと変だったり。環境依存？
• でも DOM 操作とか非常に勉強になる
• Firefox でしか動かない JavaScript を書くくせがつきそう
• 自作スクリプトのインストールがめんどくさい
  • ドラッグドロップで登録できないんですけど…… Linux だから？
• HTMLCollection の sort() ができなかったんで，Array にコピーしてます
  • Array.prototype.sort 使ってみたけどうまくいかなかったです

Permalink | コメント(0) | トラックバック(1) | 13:20

Firefox の places.sqlite からブックマークをとりだす

firefox, browser, perl, memo

新規インストールしたマシンに旧マシンの Firefox のブックマークを移行しようと思いました。

で，どうせ bookmarks.html でしょと思ってみてみたら，どうも内容が乏しい。

調べてみたら Firefox 3 では places.sqlite というファイルにブックマークはじめアクセスした URL を記録しているみたいですね。

さいわいプロファイルフォルダをまるごととってあったので places.sqlite を上書きしようかと思ったんですが，そうすると新マシンでとったブックマークがなくなってしまうのでちょっと困ります。

なので places.sqlite の構造をみてみました。

% sqlite3 places.sqlite
SQLite version 3.5.9
Enter ".help" for instructions

sqlite> .tables
moz_anno_attributes  moz_favicons         moz_keywords       
moz_annos            moz_historyvisits    moz_places         
moz_bookmarks        moz_inputhistory   
moz_bookmarks_roots  moz_items_annos    

moz_bookmarks というテーブルがあやしい。

sqlite> .headers on

sqlite> SELECT * FROM moz_bookmarks;

id|type|fk|parent|position|title|keyword_id|folder_type|dateAdded|lastModified
1|2||0|0||||1209528568635986|1219119864784935
2|2||1|0|ブックマークメニュー|||1209528568636177|1228180489548243
3|2||1|1|ブックマークツールバー|||1209528568636276|1225854151400802
4|2||1|2|タグ|||1209528568636372|1209528568636992
5|2||1|3|未整理のブックマーク|||1209528568636468|1224748978301927

...... snip snip snip ......

60|1|44|3|2|Google|0||1209530922956848|1212462725554602

...... snip snip snip ......

ブックマークのタイトルはとれてますが，URL がみあたりません。

moz_bookmarks_roots テーブルをみてみると，

sqlite> SELECT * FROM moz_bookmarks_roots;

root_name|folder_id
places|1
menu|2
toolbar|3
tags|4
unfiled|5

こちらではなかったみたい。これは名前のとおり，ブックマークツリーのルートみたいですね。

では，general な名前の moz_places をみてみると，

sqlite> SELECT * FROM moz_places LIMIT 5;

id|url|title|rev_host|visit_count|hidden|typed|favicon_id|frecency
1|place:queryType=0&sort=8&maxResults=10|queryType=0&sort=8
  &maxResults=10||0|1|0||0
2|place:folder=BOOKMARKS_MENU&folder=UNFILED_BOOKMARKS
  &folder=TOOLBAR&queryType=1&sort=12
  &excludeItemIfParentHasAnnotation=livemark%2FfeedURI&maxResults=10
  &excludeQueries=1|folder=BOOKMARKS_MENU&folder=UNFILED_BOOKMARKS
  &folder=TOOLBAR&queryType=1&sort=12
  &excludeItemIfParentHasAnnotation=livemark%2FfeedURI&maxResults=10
  &excludeQueries=1||0|1|0||0
3|place:type=6&sort=14&maxResults=10|type=6&sort=14&maxResults=10||0|1|0||0
4|https://en-us.add-ons.mozilla.com/en-US/firefox/bookmarks/
 |/en-US/firefox/bookmarks/|moc.allizom.sno-dda.su-ne.|0|0|0|1|140
5|http://en-us.www.mozilla.com/en-US/firefox/central/
 |/en-US/firefox/central/|moc.allizom.www.su-ne.|0|0|0|2|140

こっちに URL が格納されているみたい。こちらにも title がありますが，こちらはもともとの title なのかな。

で，当て推量してると moz_bookmarks の fk フィールドと moz_places の id フィールドが対応しているみたい*1。

なので，結合して表示してみましょう。

sqlite> SELECT moz_places.url, moz_bookmarks.title
   ...> FROM moz_bookmarks, moz_places
   ...> WHERE moz_bookmarks.fk IS NOT NULL
   ...>   AND moz_bookmarks.fk = moz_places.id
   ...>   AND moz_places.url NOT LIKE 'place:%'
   ...> ORDER BY moz_bookmarks.id;

url|title
https://en-us.add-ons.mozilla.com/en-US/firefox/bookmarks/|Get Bookmark Add-ons
http://en-us.www.mozilla.com/en-US/firefox/central/|Getting Started
http://en-us.www.mozilla.com/en-US/firefox/help/|Help and Tutorials
http://en-us.www.mozilla.com/en-US/firefox/customize/|Customize Firefox
http://en-us.www.mozilla.com/en-US/firefox/community/|Get Involved
http://en-us.www.mozilla.com/en-US/firefox/about/|About Us
http://www.google.co.jp/|Google

おー。いい感じです。

じゃあこっからエクスポートするスクリプトを書いてみる。

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $file = shift;
if (! defined $file) {
    die "database places.sqlite not specified";
}

my $dbh = DBI->connect("dbi:SQLite:dbname=${file}")
    or die $DBI::errstr;

my $sth = $dbh->prepare(<<'END_SQL')
    SELECT moz_places.url, moz_bookmarks.title
      FROM moz_bookmarks, moz_places
     WHERE moz_bookmarks.fk IS NOT NULL
       AND moz_bookmarks.fk = moz_places.id
       AND moz_places.url NOT LIKE ?
     ORDER BY moz_bookmarks.id;
END_SQL
    or die $dbh->errstr;

$sth->execute('place:%')
    or die $dbh->errstr;

my @items;
while (my $rec = $sth->fetchrow_hashref()) {
    #use YAML;
    #print Dump($rec);

    my ($url, $title) = map { $rec->{$_} } qw( url title );

    for ($url) {
        s'"'&quot;'go;
    }
    for ($title) {
        s'&'&amp;'go;
        s'<'&lt;'go;   s'>'&gt'go;
    }

    push @items, <<"END_ITEM";
    <DT><A HREF="${url}">${title}</A>
END_ITEM
}

if (@items) {
    my $items = join q{}, @items;

    print <<"END_HTML";
<!DOCTYPE NETSCAPE-Bookmark-file-1>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<TITLE>Bookmarks</TITLE>
<H1>Bookmarks</H1>

<DL><p>
${items}
</DL><p>
END_HTML
}

で

% perl bookmark.pl $(BOOKMARKPROFILE)/places.sqlite

実行すると，

<!DOCTYPE NETSCAPE-Bookmark-file-1>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=UTF-8">
<TITLE>Bookmarks</TITLE>
<H1>Bookmarks</H1>

<DL><p>
    <DT><A HREF="https://en-us.add-ons.mozilla.com/en-US/firefox/bookmarks/">Get
 Bookmark Add-ons</A>
    
</DL><p>

うまくできました。

あとはこのファイルから不要な項目を削って「ブックマークの管理」から「HTML からインポート」すればいいはず。

ほんとうはブックマークフォルダの階層構造もとれるんでしょうけど，面倒だしそこまでもとめていない*2のでこれでいいやと思いました。

あと，favicon もとろうと思えばとれますが，bookmarks.html の場合，内部にアイコンがうめこまれているのに対し，places.sqlite の場合，moz_favicons テーブルからアイコンの URL を取得してブラウザキャッシュのアイコンファイルを利用しているのではないかなー。

Permalink | コメント(0) | トラックバック(1) | 11:43