// Vimperator plugin: "Update Haiku"
// Last Change: 12-Jan-2009. Jan 2008
// License: Creative Commons
// Maintainer: mattn <mattn.jp@gmail.com> - http://mattn.kaoriya.net/
//
// The script allows you to update Haiku status from Vimperator.
//
// Commands:
//  :haiku some thing text
//      post "some thing text" to keyword 'id:username' on Hatena Haiku.
//  :haiku #keyword some thing text
//      post "some thing text" to keyword 'id:keyword' on Hatena Haiku.
//  :haiku!/
//      show public timeline.
//  :haiku! someone
//      show someone's statuses.
//  :haiku! album
//      show album timeline.
//  :haiku!+ someone
//      fav someone's last status.. mean put Hatena Star.
//  :haiku!- someone
//      un-fav someone's last status.. mean remove Hatena Star.
//  :haiku! #keyword
//      show the keyword timeline.
var PLUGIN_INFO =
<VimperatorPlugin>
  <name>{NAME}</name>
  <description>Hatena Haiku Client</description>
  <author mail="mattn.jp@gmail.com" homepage="http://mattn.kaoriya.net">mattn</author>
  <license>Creative Commons</license>
  <minVersion>2.0a1</minVersion>
  <maxVersion>2.0</maxVersion>
  <updateURL>https://github.com/vimpr/vimperator-plugins/raw/master/haiku.js</updateURL>
  <detail><![CDATA[
The script allows you to update Haiku status from Vimperator.

== Commands ==
:haiku some thing text:
    post "some thing text" to keyword 'id:username' on Hatena Haiku.
:haiku #keyword some thing text:
    post "some thing text" to keyword 'id:keyword' on Hatena Haiku.
:haiku!/:
    show public timeline.
:haiku! someone:
    show someone's statuses.
:haiku! album:
    show album timeline.
:haiku!+ someone:
    fav someone's last status.. mean put Hatena Star.
:haiku!- someone:
    un-fav someone's last status.. mean remove Hatena Star.
:haiku! #keyword:
    show the keyword timeline.
  ]]></detail>
</VimperatorPlugin>;

(function(){
    liberator.plugins.haiku = {
        get cache() statuses
    };
    var passwordManager = Cc["@mozilla.org/login-manager;1"].getService(Ci.nsILoginManager);
    var CLIENT_NAME = encodeURIComponent(config.name + "::plugin::haiku.js");
    var evalFunc = window.eval;
    var statuses = null;
    try {
        var sandbox = new Components.utils.Sandbox("about:blank");
        if (Components.utils.evalInSandbox("true", sandbox) === true) {
            evalFunc = function(text) {
                return Components.utils.evalInSandbox(text, sandbox);
            }
        }
    } catch (e) { liberator.log('warning: haiku.js is working with unsafe sandbox.'); }

    function sprintf(format){
        var i = 1, re = /%s/, result = "" + format;
        while (re.test(result) && i < arguments.length) result = result.replace(re, arguments[i++]);
        return result;
    }
    function sayHaiku(username, password, stat){
        var keyword = '';
        var user = '', id = '';
        if (stat.match(/^#([^ ].+)\s+(.*)$/)) [keyword, stat] = [RegExp.$1, RegExp.$2];
        else if (stat.match(/^@([^\s#]+)(?:#(\d+))?\s+(.*)$/)) [user, id, stat] = [RegExp.$1, RegExp.$2, RegExp.$3];
        stat = stat.split("\\n").map(function(str) encodeURIComponent(str)).join("\n");
        //liberator.log({keyword:keyword,user:user,id:id,stat:stat},0);
        if (user && !(id && isValidStatusID(id))){
            id = getStatusIDFromUserID(user);
            if (!id) stat = "@" + user + "\n" + stat;
        }
        var xhr = new XMLHttpRequest();
        xhr.open("POST", "http://h.hatena.ne.jp/api/statuses/update.json", false, username, password);
        xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
        var senddata = [
            "status=", stat,
            keyword ? "&keyword=" + encodeURIComponent(keyword) : id ? "&in_reply_to_status_id=" + id : "",
            "&source=" + CLIENT_NAME
        ].join('');
        //liberator.log('xhr.send(' + senddata +')',0);
        xhr.send(senddata);
    }
    function favHaiku(username, password, user){
        var xhr = new XMLHttpRequest();
        xhr.open("POST", "http://h.hatena.ne.jp/api/statuses/user_timeline/" + user + ".json", false, username, password);
        xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
        xhr.send(null);
        xhr.open("POST", "http://h.hatena.ne.jp/api/favorites/create/" + evalFunc(xhr.responseText)[0].id + '.json', false, username, password);
        xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
        xhr.send(null);
    }
    function unfavHaiku(username, password, user){
        var xhr = new XMLHttpRequest();
        xhr.open("POST", "http://h.hatena.ne.jp/api/statuses/user_timeline/" + user + ".json?count=1", false, username, password);
        xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
        xhr.send(null);
        xhr.open("POST", "http://h.hatena.ne.jp/api/favorites/destroy/" + evalFunc(xhr.responseText)[0].id + '.json', false, username, password);
        xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
        xhr.send(null);
    }
    function isValidStatusID(id){
        if (!statuses) return false;
        return statuses.some(function(status) status.id == id);
    }
    function getStatusIDFromUserID(userid){
        if (!statuses) return null;
        return statuses.filter(function(status) status.in_reply_to_user_id == userid)[0].id;
    }
    function getTimelineURLFromTarget(target){
        if (target == "/"){
            return "http://h.hatena.ne.jp/api/statuses/public_timeline.json";
        } else if (target == "album"){
            return "http://h.hatena.ne.jp/api/statuses/album.json";
        } else if (/^#(.+)/.test(target)){
            return "http://h.hatena.ne.jp/api/statuses/keyword_timeline/" +
                   encodeURIComponent(RegExp.$1) + ".json";
        } else if (/^@?(.+)/.test(target)){
            return "http://h.hatena.ne.jp/api/statuses/user_timeline/" + RegExp.$1 + ".json";
        }
        return "http://h.hatena.ne.jp/api/statuses/friends_timeline.json";
    }
    function statusToXML(statuses){
        var html = <style type="text/css"><![CDATA[
            span.haiku.entry-title { text-decoration: underline; }
            .haiku.entry-content { white-space: normal; }
            .haiku.entry-content a { text-decoration: none; }
            dl.haiku { margin-left: 1em; }
            img.haiku.photo { border; 0px; width: 16px; height: 16px; vertical-align: baseline; }
        ]]></style>;

        statuses.forEach(function(status) {
            var text = status.text;
            var keyword = status.keyword;
            var star = status.favorited > 0 ? <><img src="http://s.hatena.ne.jp/images/star.gif"/><span style="color:orange;">{'x' + status.favorited}</span></> : <></>;
            var replies = <></>;

            if (text.indexOf(keyword+"=") == 0) text = status.text.substr(keyword.length + 1);
            text = convert(text);
            keyword = convert(keyword);

            if (status.replies.length > 0){
                replies = <dl class="haiku"></dl>;
                status.replies.forEach(function(rep){
                    replies.* += <>
                                 <dt>
                                    <img src={rep.user.profile_image_url} alt={rep.user.screen_name} class="haiku photo"/>
                                    <strong>{rep.user.name}</strong>
                                 </dt>
                                 <dd class="haiku entry-content">{rep.text.substr(keyword.length)}</dd>
                                 </>;
                });
            }
            html += <>
                <div>
                    <img src={status.user.profile_image_url}
                         alt={status.user.screen_name}
                         title={status.user.screen_name}
                         class="haiku photo"/>
                    <strong>{status.user.name}&#x202C;</strong>
                    {star}
                    <span>:</span>
                    <span class="haiku entry-title">{keyword}</span><br/>
                    <span class="haiku entry-content">{text}</span>
                </div>
                {replies}
                <hr/>
            </>;
        });
        return html;
    }
    function showFollowersStatus(username, password, target){
        var xhr = new XMLHttpRequest();
        var endPoint = getTimelineURLFromTarget(target);
        xhr.open("POST", endPoint, false, username, password);
        xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
        xhr.send(null);
        statuses = evalFunc(xhr.responseText);

        var html = statusToXML(statuses);
        liberator.log(html.toXMLString(), 0);
        liberator.echo(html, true);
    }
    function convert(str){
        function createHTML(all){
            var str = all;
            if (all.indexOf("id:") == 0){
                str = '<a href="http://h.hatena.ne.jp/' + all.replace(":", "/") + '">' + all + '</a>';
            } else if (/\.(?:jpe?g|gif|png|bmp)$/.test(all)){
                str = '<img src="' + all + '"/>';
            } else if (/^http:\/\/(?:[^.]+\.)?youtube\.com\/(?:watch\?(?:[^&]+&)*v=|v\/)([^&=#?;\/]+)/.test(all)){
                var url = "http://www.youtube.com/v/" + RegExp.$1 + "&amp;fs=1";
                str = '<a href="#" class="hl-URL">' + url + '</a>' +
                      '<div><object width="300" height="250" data="' + url + '" type="application/x-shockwave-flash">'+
                      '<param name="wmode" value="transparent"/><param name="allowFullScreen" value="true"/>'+
                      '</object></div>';
            } else if (/^http:\/\/[^.]+\.nicovideo\.jp\/watch\/([-\w]+)$/.test(all)){
                str = '<iframe width="312" height="176" src="http://ext.nicovideo.jp/thumb/'+RegExp.$1 + '" scrolling="no">'+
                      '<a href="' + all + '">' +all+'</a></iframe>';
            } else if (all.charAt(0) == "["){
                var keyword = all.substring(2, all.length -2);
                str = '<a href="http://h.hatena.ne.jp/keyword/' + keyword + '" class="hl-URL">' + keyword + '</a>';
            }
            return str;
        }
        var str = str.replace(/&/g,"&amp;")
                     .replace(/</g,"&lt;")
                     .replace(/>/g,"&gt;")
                     .replace(/\n/g,"<br/>")
                     .replace(/\[\[[^\]]+\]\]|https?:\/\/[-\w!#$%&'()*+,.\/:;=?@~]+|id:[a-zA-Z][-\w]{1,30}[a-zA-Z\d]/g, createHTML);
        return new XMLList(str);
    }
    commands.addUserCommand(["haiku"], "Change Haiku status",
        function(args){
            var special = args.bang;
            var password;
            var username;
            try {
                var logins = passwordManager.findLogins({}, 'http://h.hatena.ne.jp', null, 'http://h.hatena.ne.jp (API)');
                if (logins.length)
                    [username, password] = [logins[0].username, logins[0].password];
                else {
                    var ps = Cc['@mozilla.org/embedcomp/prompt-service;1'].getService(Ci.nsIPromptService);
                    var [user,pass] = [{ value : '' }, { value : '' }];
                    var ret = ps.promptUsernameAndPassword(
                        window, 'http://h.hatea.ne.jp (API)', 'Enter username and password.\nyou can get "password" from\n\thttp://h.hatena.ne.jp/api#auth', user, pass, null, {});
                    if(ret){
                        username = user.value;
                        password = pass.value.replace(/@.*$/, '');
                        var nsLoginInfo = new Components.Constructor(
                            '@mozilla.org/login-manager/loginInfo;1', Ci.nsILoginInfo, 'init');
                        loginInfo = new nsLoginInfo('http://h.hatena.ne.jp', null, 'http://h.hatena.ne.jp (API)', username, password, '', '');
                        passwordManager.addLogin(loginInfo);
                    } else
                        throw 'Haiku: account not found';
                }
            }
            catch (ex){
                liberator.echoerr(ex);
            }

            var arg = args.string.replace(/%URL%/g, buffer.URL)
                     .replace(/%TITLE%/g, buffer.title);

            if (special && arg.match(/^\+\s*(.*)/))
                favHaiku(username, password, RegExp.$1)
            else
            if (special && arg.match(/^-\s*(.*)/))
                unfavHaiku(username, password, RegExp.$1)
            else
            if (special || arg.length == 0)
                showFollowersStatus(username, password, arg)
            else
                sayHaiku(username, password, arg);
        }, {
            bang: true,
            hereDoc: true,
            completer: function(context, args){
                if (!statuses) return;
                var matches= context.filter.match(/^([@#]|[-+]\s*)(\S*)$/);
                if (!matches) return;
                var list = [];
                var [prefix, target] = [matches[1],matches[2]];
                switch (prefix.charAt(0)){
                    case "+":
                    case "-":
                        if (!args.bang) return;
                    case "@":
                        context.title = ["ID","Entry"];
                        if (args.bang)
                            list = statuses.map(function(entry) ["@" + entry.user.id, entry.text]);
                        else
                            list = statuses.map(function(entry) ["@" + entry.user.id + "#" + entry.id, entry.text]);
                        break;
                    case "#":
                        context.title = ["Keyword","Entry"];
                        list = statuses.map(function(entry) ["#" + entry.keyword, entry.text]);
                        break;
                }
                if (target){
                    list = list.filter(function($_) $_[0].indexOf(target) >= 0);
                }
                context.completions = list;
            }
        }
    );
})();
// vim:sw=4 ts=4 et: