/*** BEGIN LICENSE BLOCK {{{
  Copyright (c) 2008 suVene<suvene@zeromemory.info>

  distributable under the terms of an MIT-style license.
  http://www.opensource.jp/licenses/mit-license.html
}}}  END LICENSE BLOCK ***/
// PLUGIN_INFO//{{{
var PLUGIN_INFO =
<VimperatorPlugin>
  <name>nextlink</name>
  <description>mapping "[[", "]]" by AutoPagerize XPath.</description>
  <description lang="ja">AutoPagerize 用の XPath より "[[", "]]" をマッピングします。</description>
  <author mail="suvene@zeromemory.info" homepage="http://zeromemory.sblo.jp/">suVene</author>
  <author mail="konbu.komuro@gmail.com" homepage="http://d.hatena.ne.jp/hogelog/">hogelog</author>
  <version>0.3.6</version>
  <license>MIT</license>
  <minVersion>1.2</minVersion>
  <maxVersion>2.0pre</maxVersion>
  <updateURL>http://svn.coderepos.org/share/lang/javascript/vimperator-plugins/trunk/nextlink.js</updateURL>
  <detail><![CDATA[
== Needs Library ==
- _libly.js(ver.0.1.20)
  @see http://coderepos.org/share/browser/lang/javascript/vimperator-plugins/trunk/_libly.js

== Option ==
>||
  let g:nextlink_followlink = "true"
||<
と設定することにより、"[[", "]]" の動作は、カレントのタブに新しくページを読み込むようになります。

>||
  let g:nextlink_prevmap = "[n"
  let g:nextlink_nextmap = "]n"
||<
のように設定することにより、"[[", "]]" 以外のキーに割り当てることができます。


== TODO ==
- Autopager 利用時の MICROFORMAT の対応.

  ]]></detail>
</VimperatorPlugin>;
//}}}
liberator.plugins.nextlink = (function() {

// initialize //{{{
if (!liberator.plugins.libly) {
  liberator.log("nextlink: needs _libly.js");
  return;
}

var libly = liberator.plugins.libly;
var $U = libly.$U;
var logger = $U.getLogger("nextlink");
var $H = Cc["@mozilla.org/browser/global-history;2"].getService(Ci.nsIGlobalHistory2);
const HTML_NAMESPACE = "http://www.w3.org/1999/xhtml";
const UUID = "{3b72c049-a347-4777-96f6-b128fc76ed6a}"; // siteinfo cache key

const DEFAULT_PREVMAP = "[[";
const DEFAULT_NEXTMAP = "]]";
var prevMap = liberator.globalVariables.nextlink_prevmap || DEFAULT_PREVMAP;
var nextMap = liberator.globalVariables.nextlink_nextmap || DEFAULT_NEXTMAP;

var isFollowLink = typeof liberator.globalVariables.nextlink_followlink == "undefined" ?
                   false : $U.eval(liberator.globalVariables.nextlink_followlink);
var pageNaviCss =
    <style type="text/css"><![CDATA[
      .vimperator-nextlink-page {
        background-color: #555;
        color: #fff;
        opacity: .85;
        padding: 10px;
        margin-top: 5px;
        margin-bottom: 5px;
        height: 1em;
        font-weight: bold;
        text-align: left;
        -moz-border-radius: 5px;
      }
      .vimperator-nextlink-page a:link {
        color: #EF6D29;
      }
      .vimperator-nextlink-page a:visited {
        color: #A50000;
      }
    ]]></style>;
//}}}

var NextLink = function() {//{{{
  this.initialize.apply(this, arguments);
};
NextLink.prototype = {
  initialize: function(pager) {

    this.initialized = false;
    this.siteinfo = [];
    this.pager = pager;
    this.browserModes = config.browserModes || [ modes.NORMAL, modes.VISUAL ];
    this.is2_0later = config.autocommands.some(function ([ k, v ]) k == "DOMLoad"); // toriaezu

    var wedata = new libly.Wedata("AutoPagerize");
    wedata.getItems(24 * 60 * 60 * 1000, null,
      $U.bind(this, function(isSuccess, data) {
        if (!isSuccess) return;
        this.siteinfo = data.map(function(item) item.data)
            .sort(function(a, b) b.url.length - a.url.length); // sort url.length desc
        this.initialized = true;
      })
    );
    // for debug
    /*
    this.initialized = true;
    this.siteinfo = [
      {
        url: "^https?://(?:192\\.168(?:\\.\\d+){2}|localhost)(?::\\d+)?/",
        nextLink: "id("next")",
        pageElement: "//*"
      }
    ];
    */

    this.customizeMap(this);
  },
  initDoc: function(context, doc) {
    var url = doc.location.href;
    var value = doc[UUID] = {};
    for (var i = 0, len = this.siteinfo.length; i < len; i++) {
      if (url.match(this.siteinfo[i].url) && this.siteinfo[i].url != "^https?://.") {
        value.siteinfo = this.siteinfo[i];
        break;
      }
    }
    this.pager.initDoc(context, doc);
  },
  nextLink: function(count) {
    var doc = window.content.document;
    if (!doc[UUID])
      this.initDoc(this, doc);

    this.pager.nextLink(doc, count);
  },
  customizeMap: function(context) {
    mappings.addUserMap(context.browserModes, [ prevMap ], "customize by nextlink.js",
      function(count) context.nextLink(count > 0 ? -1 * count : -1),
      { flags: Mappings.flags.COUNT });

    mappings.addUserMap(context.browserModes, [ nextMap ], "customize by nextlink.js",
      function(count) context.nextLink(count > 0 ? count : 1),
      { flags: Mappings.flags.COUNT });
  },
};//}}}

var Autopager = function() {};//{{{
Autopager.prototype = {
  initDoc: function(context, doc) {
    doc[UUID].loadURLs = [];

    if (context.is2_0later) {
      let css = $U.xmlToDom(pageNaviCss, doc);
      let node = doc.importNode(css, true);
      doc.body.insertBefore(node, doc.body.firstChild);
      //doc.body.appendChild(css);
    }
  },
  nextLink: function(doc, count) {
    var value = doc[UUID];

    // TODO: support MICROFORMAT
    // rel="next", rel="prev"

    // no siteinfo, defalut [[, ]] action
    if (!value.siteinfo) {
      if (count < 0) {
        return buffer.followDocumentRelationship("previous");
      } else {
        return buffer.followDocumentRelationship("next");
      }
    }

    var curPage = this.getCurrentPage(doc);
    logger.log(curPage);
    var page = (count < 0 ? Math.round : Math.floor)(curPage + count);
    if (page <= 1) {
      value.isLoading = false;
      doc.defaultView.scrollTo(0, 0);
      return true;
    }
    if (this.focusPagenavi(doc, page)) {
      value.isLoading = false;
      return true;
    }

    if (value.isLoading) {
      logger.echo("loading now...");
      return false;
    }

    value.isLoading = true;

    if (value.terminate) {
      value.isLoading = false;
      logger.echo("terminated.");
      return false;
    }

    var req = this.createNextRequest(doc);
    if (!req) {
      value.isLoading = false;
      var win = doc.defaultView;
      win.scrollTo(0, win.scrollMaxY);
      logger.echo("end of pages.");
      return true;
    }

    req.addEventListener("onSuccess", $U.bind(this, this.onSuccess));
    req.addEventListener("onFailure", $U.bind(this, this.onFailure));
    req.addEventListener("onException", $U.bind(this, this.onFailure));
    req.get();
  },
  onSuccess: function(res) {
    var doc = res.req.options.doc;
    var url = doc.location.href;
    var value = doc[UUID];
    var pages = this.getPageElement(res, value.siteinfo);
    var resDoc = res.doc;
    var reqUrl = res.req.url;
    var [ next ] = $U.getNodesFromXPath(value.siteinfo.nextLink, resDoc);

    value.loadURLs.push(reqUrl);
    value.next = next;
    value.isLoading = false;

    // set reqUrl link-state visited
    $H.addURI(makeURI(reqUrl), false, true, makeURI(url));

    if (!pages || pages.length==0) return;

    var addPageNum = this.getPageNum(doc) + 1;
    this.addPage(doc, resDoc, pages, reqUrl, addPageNum);
    this.focusPagenavi(doc, addPageNum);
  },
  addPage: function(doc, resDoc, pages, reqUrl, addPageNum) {
    var url = doc.location.href;
    var value = doc[UUID];
    if (!value.insertPoint)
      value.insertPoint = this.getInsertPoint(doc, value.siteinfo);
    var insertPoint = value.insertPoint;

    this.insertRule(doc, addPageNum, reqUrl, pages[0], insertPoint);

    pages.forEach(function(elem) {
      var pe = resDoc.importNode(elem, true);
      insertPoint.parentNode.insertBefore(pe, insertPoint);
    });
    return true;
  },
  onFailure: function(res) {
    logger.log("onFailure");
    var doc = res.req.options.doc;
    var url = doc.location.href;
    var value = doc[UUID];
    value.isLoading = false;
    value.terminate = true;
    logger.echoerr("nextlink: loading failed. " + "[" + res.status + "]" + res.statusText + " > " + res.req.url);
  },
  focusPagenavi: function(doc, page) {
    var xpath = '//*[@id="vimperator-nextlink-' + page + '"]';
    var [ elem ] = $U.getNodesFromXPath(xpath, doc);
    var win = doc.defaultView;
    if(elem) {
      let p = $U.getElementPosition(elem);
      win.scrollTo(0, p.top);
      return true;
    }
    return false;
  },
  createNextRequest: function(doc) {
    var value = doc[UUID];
    var url = doc.location.href;
    var next = value.next;
    if (!next)
      [ next ] = $U.getNodesFromXPath(value.siteinfo.nextLink, doc);
    if (!next)
      return false;

    var reqUrl = $U.pathToURL(next, url, doc);
    if(value.loadURLs.some(function(url) url==reqUrl)) return false;

    var req = new libly.Request(
                reqUrl, null,
                { asynchronous: true, encoding: doc.characterSet,
                  doc: doc }
              );
    return req;
  },
  getPageNum: function(doc) {
    var xpath = '//*[@class="vimperator-nextlink-page"]';
    var page = 1 + $U.getNodesFromXPath(xpath, doc).length;
    return page;
  },
  getCurrentPage: function(doc) {
    var xpath = '//*[@class="vimperator-nextlink-page"]';
    var makers = $U.getNodesFromXPath(xpath, doc);
    var win = doc.defaultView;
    var curPos = win.scrollY;

    // top of page
    if(curPos <= 0) return 1.0;

    // bottom of page
    if(curPos >= win.scrollMaxY) return 1.5 + makers.length;

    // return n.5 if between n and n+1
    var page = 1.0;
    for (let i = 0; i < makers.length; ++i) {
      let p = $U.getElementPosition(makers[i]);
      if (curPos == p.top)
        return page+1;
      if (curPos < p.top)
        return page+0.5;
      ++page;
    }
    return page+0.5;
  },
  getInsertPoint: function(doc, siteinfo) {
    var insertPoint, lastPageElement;

    if (siteinfo.insertBefore)
      [ insertPoint ] = $U.getNodesFromXPath(siteinfo.insertBefore, doc);

    if (!insertPoint) {
      let elems = $U.getNodesFromXPath(siteinfo.pageElement, doc);
      if (elems.length > 0) lastPageElement = elems.pop();
    }

    if (lastPageElement)
      insertPoint = lastPageElement.nextSibling ||
        lastPageElement.parentNode.appendChild(doc.createTextNode(" "));
    return insertPoint;
  },
  getPageElement: function(res, siteinfo) {
    var page = res.getHTMLDocument(siteinfo.pageElement);
    if (!page || page.length==0) 
      page = res.getHTMLDocument('//*[contains(@class, "autopagerize_page_element")]');
    return page;
  },
  insertRule: function(doc, addPageNum, reqUrl, page, insertPoint) {
    var p = doc.createElementNS(HTML_NAMESPACE, "p");
    p.id = "vimperator-nextlink-" + addPageNum;
    p.innerHTML = 'page: <a href="' + reqUrl + '">' + addPageNum + "</a>";
    p.className = "vimperator-nextlink-page";

    var tagName;
    if (page && page.tagName)
      tagName = page.tagName.toLowerCase();

    if (tagName == "tr") {
      let insertParent = insertPoint.parentNode;
      let colNodes = getElementsByXPath("child::tr[1]/child::*[self::td or self::th]", insertParent);

      let colums = 0;
      for (let i = 0, l = colNodes.length; i < l; i++) {
        let col = colNodes[i].getAttribute("colspan");
        colums += parseInt(col, 10) || 1;
      }
      let td = doc.createElement("td");
      td.appendChild(p);
      let tr = doc.createElement("tr");
      td.setAttribute("colspan", colums);
      tr.appendChild(td);
      insertParent.insertBefore(tr, insertPoint);
    } else if (tagName == "li") {
      let li = doc.createElementNS(HTML_NAMESPACE, "li");
      insertPoint.parentNode.insertBefore(li, insertPoint);
      li.appendChild(p);
    } else {
      insertPoint.parentNode.insertBefore(p, insertPoint);
    }
  },
};
//}}}

var FollowLink = function() {};//{{{
FollowLink.prototype = {
  initDoc: function(context, doc) {
  },
  nextLink: function(doc, count) {
    var url = doc.location.href;
    var value = doc[UUID];

    function followXPath(xpath) {
      var [ elem ] = $U.getNodesFromXPath(xpath, doc);
      if (elem) {
        var tagName = elem.tagName.toLowerCase();
        if (tagName == "link") {
          liberator.open(elem.href);
        } else {
          buffer.followLink(elem, liberator.CURRENT_TAB);
        }
        return true;
      }
      return false;
    }

    if (count < 0) {
      let xpath = [ "link", "a" ].map(function(e)
        "//" + e + '[translate(normalize-space(@rel), "PREV", "prev")="prev"]')
        .join(" | ");

      if (followXPath(xpath)) return;
      buffer.followDocumentRelationship("previous");
    } else {
      let xpath = [ "link", "a" ].map(function(e)
        "//" + e + '[translate(normalize-space(@rel), "NEXT", "next")="next"]')
        .join(" | ");
      if (followXPath(xpath)) return;

      if (value.siteinfo && followXPath(value.siteinfo.nextLink)) return;
      buffer.followDocumentRelationship("next");
    }
  }
};
//}}}

var instance = new NextLink((isFollowLink ? new FollowLink() : new Autopager()));
return instance;

})();
// vim: set fdm=marker sw=2 ts=2 sts=0 et: