Autopagerize for haiku

autopagerize_for_haiku.user.js

// ==UserScript==
// @name           Autopagerize for haiku
// @namespace      http://rails2u.com/
// @include        http://h.hatena.ne.jp/*
// @include        http://h.hatena.com/*
// ==/UserScript==

var THRESHOLD = 800;

var w = unsafeWindow;
var p = w.Hatena.Haiku.Pager;
var Ten = w.Ten;

var enable    = true;
var appending = false;
var lastMaxScrollY = 0;
var now = function() {
  return Number(new Date);
};

p.addEventListener('loadedEntries', function() {
  appending = false;
});

w.addEventListener('scroll', function(ev) {
  if (!enable) return;

  if (!appending) {
    if ((w.scrollMaxY - w.scrollY) < THRESHOLD) {
      lastMaxScrollY = w.scrollMaxY;
      appending = true;
      var anchor = Ten.Selector.getElementsBySelector('div.pager:first-child > a:first-child')[0];
      var mEv = e = w.document.createEvent('MouseEvents');
      mEv.initEvent('click',true,true);
      anchor.dispatchEvent(mEv);
    }
  }
}, false);

w.addEventListener('dblclick', function(ev) {
    enable = !enable;
}, false);

gistfile2.txt

test