// ==UserScript==
// @name  Tieba Advanced
// @namespace http://gera2ld.blog.163.com/
// @author  Gerald <gera2ld@163.com>
// @icon  http://cn.gravatar.com/avatar/a0ad718d86d21262ccd6ff271ece08a3?s=80
// @version 2.7.8
// @description 贴吧增强 - Gerald倾情打造
// @homepageURL http://gerald.top/code/TiebaAdvanced
// @include http://tieba.baidu.com/*
// @exclude http://tieba.baidu.com/tb/*
// @require https://greasyfork.org/scripts/144/code.user.js
// @grant none
// @downloadURL none
// ==/UserScript==

// Mask layer
var mask=$('<div class=ge_mask style="padding:100px 100px 20px;">').appendTo('body');
DELAY=2000;

// 初始化贴子管理面板
function initPostManager() {
  if(utils.postManager) return;
  utils.addStyle('\
#ge_tm{display:none;border-collapse:separate;width:100%;height:100%;background:white;color:#333;padding:20px;border-radius:20px;shadow:0 1px 5px #333;border-spacing:5px;table-layout:fixed;}\
#ge_tm tr{height:1px;}\
#ge_tm tr.ge_td{height:auto;}\
.ge_td>td{width:50%;height:100%;vertical-align:top;position:relative;}\
.ge_td>td>*{width:100%;height:100%;border:1px solid;overflow:auto;background:transparent;'+(window.opera?'position:absolute;':'')+'}\
');
  var tm=$('<table id=ge_tm>').appendTo(mask);
  tm.listItems=function(t,e,x,s){
    var d=[];
    if(x) d.push('<option>'+x+'</option>');
    t.list.forEach(function(i){d.push('<option>'+i.name+'</option>');});
    e.html(d.join(''));
    if(s) {x=x?1:0;t.load(s-x);e.prop('selectedIndex',t.last+x);}
  };
  tm.newItem=function(e,d) {
    tm.list.load(tm.list.length-1);
    if(!tm.list.cur||tm.list.cur.data) {
      tm.list.load(tm.list.push(d));
      $('<option>').appendTo(ti).text(tm.list.cur.name);
    } else {
      tm.list.cur.type=d.type;
      tm.list.cur.data=d.data;
    }
    $(ti).prop('selectedIndex',tm.list.last);
    editItem();
  };
  var th=document.createElement('p'),tk='innerText' in th?'innerText':'textContent';
  function h2t(h){  // html to text
    th.innerHTML=h.replace(/<br>/g,'\n');
    return th[tk];
  }
  function t2h(t){  // text to html
    th[tk]=t;
    return th.innerHTML.replace(/  /g,'&nbsp; ').replace(/(^| ) /g,'&nbsp;$1').replace(/\r?\n/g,'<br>');
  }
  function editItem(e) {
    if(e) tm.list.load(ti.prop('selectedIndex'),1);
    var t=tm.list.cur;
    tc.prop('disabled',!t);
    if(!t) t={type:'s',data:''};
    tt.val(t.type);
    if(['j','h','H'].indexOf(t.type)>=0) tc.val(t.data);
    else tc.val(h2t(t.data));
    liveShow();
  }
  function saveItem(e) {
    var t=tm.list.cur;if(!t) return;
    switch(t.type=tt.val()) {
      case 'j':try{eval(t.data=tc.val());}catch(e){}break;
      case 's':t.data=t2h(tc.val());break;
      case 'H':t.data=tc.val();break;
      default:tv.find('img').each(function(i,e){
                e.setAttribute('pic_type',1);
                unsafeWindow.EditorUI.resizeImage(e,560);
              });
              tc.val(t.data=tv.html());
    }
  }
  function liveShow(e) {
    function show() {
      if(--count) return;
      var t=tt.val(),s;
      if(t=='j') try{s=eval(tc.val());}catch(e){s='<font color=red>JS代码有误！</font>';}
      else s=tc.val();
      if(t=='s') s=t2h(s);
      else if(t=='H') s=s.split('\n').shift();
      tv.html(s);
    }
    count++;
    setTimeout(show,500);
  }
  var count=0;
  tm.loadPanel=function(t,n,c) {
    tm.list=t;tn.text(n);tm.callback=c;
    tm.listItems(t,ti);editItem(1);
    mask.fadeIn('fast',function() {
      tm.css({display:'table'}).animate({top:'0px',left:'0px'},300);
    });
  };
  var c=$('<td colspan=2>').appendTo($('<tr>').appendTo(tm)),
      tn=$('<strong class=ge_rsep>').appendTo(c),
      ti=$('<select>').appendTo(c).change(editItem);
  $('<span class="ge_sbtn ge_rsep">改名</span>').appendTo(c).click(function(e) {
    if(!tm.list.cur) return;
    var t=prompt('修改名称：',tm.list.cur.name);
    if(t) {tm.list.cur.name=t;ti.children('option:eq('+tm.list.last+')').text(t);}
  });
  var tt=$('<select>').appendTo($('<label class=ge_rsep>类型：'+utils.getLink('advanced',{title:'帮助',html:'(?)'})+'</label>').appendTo(c)).html('<option value="s" checked>普通字串</option><option value="h">HTML代码</option><option value="H">HTML随机</option><option value="j">JS代码</option>').change(liveShow).blur(saveItem);
  $('<span class=ge_sbtn>添加</span>').appendTo(c).click(tm.newItem);
  $('<span class=ge_sbtn>删除</span>').appendTo(c).click(function() {
    var l=tm.list.last;tm.list.pop(l);ti.children().eq(l).remove();editItem(1);
  });
  c=$('<div style="float:right;"></div>').appendTo(c);
  $('<span class=ge_sbtn>关闭</span>').appendTo(c).click(function() {
    tm.list.save();if(tm.callback) tm.callback();
    tm.animate({top:innerHeight+'px'},300,function() {$(this).hide();mask.fadeOut('fast');});
  });
  $('<tr><td>编辑框</td><td align=right>预览框</td></tr>').appendTo(tm);
  c=$('<tr class=ge_td>').appendTo(tm);
  var tc=$('<textarea>').appendTo($('<td>').appendTo(c)).blur(saveItem).keyup(liveShow).mouseup(liveShow);
  var tv=$('<div>').appendTo($('<td>').appendTo(c));
  utils.postManager=tm;
}
// 灌水
function initAddWater(editor) {
  initPostManager();
  var tails=utils.list('tails',null,function(){return {type:'s',data:'',name:'新尾巴'};},[
    {type:'j',name:'UA',data:'"——我喂自己袋盐<br>&gt;&gt;"+navigator.userAgent'},
    {type:'h',name:'求妹纸',data:'<img pic_type="1" class="BDE_Image" src="http://imgsrc.baidu.com/forum/w%3D580/sign=6ca77dcee5dde711e7d243fe97edcef4/b03533fa828ba61e111605e44134970a314e5905.jpg" width="560" height="11"><br><img pic_type="1" src="http://static.tieba.baidu.com/tb/editor/images/tsj/t_0010.gif" class="BDE_Smiley" height="40" width="40">少壮不追妹，老大去相亲'},
  ]).load(),water=utils.list('water',null,function(){return {type:'s',data:'',name:'新水贴'};},[
    {type:'s',name:'打酱油',data:'我是打酱油的~'},
  ]).load();
  function initTails(){utils.postManager.listItems(tails,ti,'随机',utils.getObj('tailindex',1));}
  function initWater(){utils.postManager.listItems(water,wi,'随机',utils.getObj('waterindex',0));}
  function getItem(t,s){
    var l=s.prop('selectedIndex'),L=t.length;if(!L) return;
    if(!l) l=Math.floor(Math.random()*L); else l--;
    t=t.list[l];var d=t.data;
    if(t.type=='j') d=eval(d);
    else if(t.type=='H') {d=d.split('\n');d=d[Math.floor(Math.random()*d.length)];}
    return d;
  }
  var op=utils.addRPopup(utils.addSButton('灌 水')).panel;
  $('<div class=ge_sbtn style="cursor:default">智能灌水</div>').appendTo(op);
  var ti=$('<select class=ge_rsep>').appendTo($('<label>尾巴：</label>').appendTo(op)).change(function(e){utils.setObj('tailindex',this.selectedIndex);});
  $('<br>').appendTo(op);
  var tail=utils.bindProp($('<input type=checkbox>').prependTo($('<label class=ge_rsep>自动附加尾巴</label>').appendTo(op)),'checked','usetail',true);
  $('<br>').appendTo(op);
  $('<span class=ge_sbtn>存为新尾巴</span>').appendTo(op).click(function(e){
    utils.postManager.loadPanel(tails,'尾巴管理',initTails);
    utils.postManager.newItem(e,{type:'h',name:'新尾巴',data:editor.$body.html()});
  });
  $('<span class=ge_sbtn>管理</span>').appendTo(op).click(function(e){utils.postManager.loadPanel(tails,'尾巴管理',initTails);});
  $('<hr>').appendTo(op);
  var wi=$('<select class=ge_rsep>').appendTo($('<label>水贴：</label>').appendTo(op)).change(function(e){utils.setObj('waterindex',this.selectedIndex);});
  $('<br>').appendTo(op);
  $('<span class=ge_sbtn>存为新水贴</span>').appendTo(op).click(function(e){
    utils.postManager.loadPanel(water,'水贴管理',initWater);
    utils.postManager.newItem(e,{type:'h',name:'新水贴',data:editor.$body.html()});
  });
  $('<span class=ge_sbtn>管理</span>').appendTo(op).click(function(e){utils.postManager.loadPanel(water,'水贴管理',initWater);});
  $('<br>').appendTo(op);
  $('<span class=ge_sbtn>载入</span>').appendTo(op).click(function(e){
    editor.execCommand('inserthtml',getItem(water,wi));
  });
  $('<span class=ge_sbtn>发表</span>').appendTo(op).click(function(e){
    editor.$body.html(getItem(water,wi));
    unsafeWindow.test_poster.post();
  });
  /*$('<span class=ge_sbtn>人工置顶</span>').appendTo(op).click(function(e){
    function post(){PostHandler.post(rich_postor._option.url,b,delay,function(){});}
    function delay(m){
      if(m) {
        if(m.no) d+=1000; else {d=DELAY;e.text('停止('+(++c)+')');}
      }
      if(!m||!m.no) b.content=getItem(water,wi);
      setTimeout(post,d);
    }
    (e=$(this)).unbind('click').text('停止').click(function(){location.reload();});
    var c=0,d=0;b=rich_postor._getData();delay();
  });*/
  var tailed=false;
  initTails();initWater();
  utils.wait(unsafeWindow,'test_poster',function(){
    utils.hook(unsafeWindow.test_poster,'post',{before:function(){
      var t=getItem(tails,ti);
      if(!tail.prop('checked')||!t||tailed) return;
      editor.$body.append('&nbsp;<br><br>'+t);tailed=true;    // 加个空格以免破坏@
    }});
    utils.hook(unsafeWindow.test_poster,'showPostSuccess',{after:function(){
      tailed=false;
    }});
  });
}

// 尾页直达功能
function initLastPage() {
  utils.addStyle('.threadlist_rep_num{cursor:pointer;}');
  $('.threadlist_rep_num').prop('title','直达尾页').click(function(e){
    e=$(e.target);e.unbind('click');
    var s='',d=JSON.parse(e.parents('.j_thread_list').attr('data-field'));
    setInterval(function(){
      if(s.length>2) s=''; else s+='.';
      e.html(s);
    },300);
    d='/p/'+d.id;
    $.get(d,function(data){
      var m=data.match(/共<span class="red">(\d+)/)[1];
      if(m=='1') m=''; else m='?pn='+m;
      location.href=d+m;
    });
  });
}

// 召唤术增强
var calllist=utils.list('calllist','calllast',function(){return {name:'新列表',data:[]};},true).load();
function initCard() {
  function fix(){
    var t=this._j_card,c=calllist.cur.data;
    setTimeout(function(){
      function update(a) {a.html((j<0?'加入':'移出')+'@列表');}
      var u=t.getData().un,j=c.indexOf(u),w=t.find('.interaction_wrap'),a;
      if(w.length) update(a=$('<a href=# class="btn-small btn-encourage">').appendTo(w).click(function(e){
        e.preventDefault();
        if(j<0) {j=c.length;c.push(u);}
        else {for(;j<c.length-1;j++) c[j]=c[j+1];c.pop();j=-1;}
        calllist.save();
        update(a);
      }));
    },0);
  }
  function hook(b){
    utils.hook(b.__proto__,'buildVisitCard',{before:function(){
      utils.hook(this._visit_card,'setContent',{after:fix});
    }});
  }
  unsafeWindow._.Module.use("ihome/widget/UserVisitCard",{},hook);
  unsafeWindow._.Module.use("puser/widget/UserVisitCard",{},hook);
}
function initCall(editor) {
  var pl,sl,be,bs,c=calllist;
  utils.addStyle('\
#callList{border:1px solid;height:125px;overflow:auto;background:white;margin:0 auto;width:380px;}\
#callList a{padding:2px;border-radius:2px;margin:2px;display:inline-block;}\
#callList a.selected{background:limegreen;color:white}\
.edui-btn-toolbar .edui-btn .edui-button{width:21px;height:20px;line-height:20px;text-align:center;font-size:16px;font-weight:bold;cursor:pointer;}\
');
  function newList(e) {
    c.load(c.push());$('<option>').appendTo(sl).text(c.cur.name);
    sl.prop('selectedIndex',c.last);
    editList(e);
  }
  function editList(e) {
    if(e) c.load(sl.prop('selectedIndex')); else sl.prop('selectedIndex',c.last);
    pl.empty();
    c.cur.data.forEach(function(i){$('<a href=#>').html(i).appendTo(pl);});
    pl.prop('contenteditable',false);
  }
  function loadLists(p) {
    var op=p.panel;
    c.load();op.empty();
    $('<div class=ge_sbtn style="cursor:default">超级召唤</div>').appendTo(op);
    sl=$('<select>').appendTo($('<label>选择名单：</label>').appendTo(op)).change(editList);
    $('<span class="ge_sbtn ge_rsep">改名</span>').appendTo(op).click(function(e) {
      e.preventDefault();
      var t=prompt('列表名称：',c.cur.name);
      if(t) {sl.children(':eq('+c.last+')').text(t);c.cur.name=t;c.save();}
    });
    $('<span class=ge_sbtn>新建列表</span>').appendTo(op).click(newList);
    $('<span class="ge_sbtn ge_rsep">删除列表</span>').appendTo(op).click(function(e){
      e.preventDefault();
      var l=c.last;c.pop(l);editList();sl.children().eq(l).remove();
    });
    pl=$('<div id=callList>').appendTo(op).click(function(e){
      e.preventDefault();
      e=e.target;if(e.tagName=='A') $(e).toggleClass('selected');
    }).dblclick(function(e){
      e.stopPropagation();
      var s=window.getSelection();
      if(!s.rangeCount) return;
      var r=s.getRangeAt(0),c=r.startContainer,k=r.startOffset;
      var i=c.data.substr(0,k).search(/\s\S*$/),j=c.data.substr(k).search(/\s/);
      r.setStart(c,i+1);r.setEnd(c,j<0?c.data.length:k+j);
      s.removeAllRanges();s.addRange(r);  // Compatible with Chrome
    });
    $('<label>名单管理：</label>').appendTo(op);
    be=$('<span>').appendTo(op);
    $('<span class=ge_sbtn>编辑</span>').appendTo(be).click(function(e){
      bs.show();be.hide();
      pl.prop('contenteditable',true);
      pl.text(c.cur.data.join(' '));
    });
    $('<span class=ge_sbtn>全选/不选</span>').appendTo(be).click(function(e){
      e.preventDefault();
      var a=pl.children('a:not(.selected)');
      if(a.length) a.addClass('selected'); else pl.children('a').removeClass('selected');
    });
    bs=$('<span>').appendTo(op).hide();
    $('<span class=ge_sbtn>去重</span>').appendTo(bs).click(function(e){
      var d=pl.text().replace(/^\s+|\s+$/,'').split(/\s+/),h={};
      d.forEach(function(i){h[i]=0;});
      pl.text(Object.getOwnPropertyNames(h).join(' '));
    });
    $('<span class="ge_sbtn ge_rsep">完成</span>').appendTo(bs).click(function(e){
      c.cur.data=pl.text().replace(/^\s+|\s+$/,'').split(/\s+/);
      c.save();editList(e);be.show();bs.hide();
    });
    $('<span>空格隔开，双击选中一个名字</span>').appendTo(bs);
    var b=$('<div style="float:right">').appendTo(op);be=be.add(b);
    $('<span class=ge_sbtn title="普通召唤，超过十个ID将会失败">召唤</span>').appendTo(b).click(function(e){
      var se=p==pM?editor:unsafeWindow.LzlEditor._s_p._se;
      pl.children('a.selected').each(function(i,e){se.execCommand('inserthtml','@'+e.innerHTML+'&nbsp;');});
      p.onclose();
    });
    /*$('<span class=ge_sbtn title="插入一个占位符，将自动替换成召唤名单">自动召唤</span>').appendTo(b).click(function(e){
      e=[];pl.children('a.selected').each(function(){e.push(this.innerHTML);});
      p.onclose();
      if(e.length) {
        p.holder.names=e;
        e=p.holder==E?editor:unsafeWindow.LzlEditor._s_p._se;
        e.execCommand('inserthtml','<img class=BDE_Smiley title="将在此自动插入召唤名单" alt="召唤列表" height=18>');
      }
    });*/
    c.list.forEach(function(i){$('<option>').text(i.name).appendTo(sl);});
    editList();
  }
  var l=/<img [^>]*?alt="召唤列表"[^>]*>/;
  function addNames(e,n){
    if(n.splice) n='@'+n.splice(0,10).join(' @')+' ';
    return e.replace(l,n);
  }
  // 主编辑框
  var o=utils.addTButton($('<div unselectable="on" class="edui-button" style="color:red" title="召唤">@</div>')),
      pM=utils.addTPopup(o,loadLists);
  /*utils.hook(unsafeWindow.PostHandler,'post',{before:function(f,a){
    function post(){f.hook_func(a[0],a[1],E.names?delay:a[2],a[3]);}
    function delay(m){
      if(m){if(m.no) d+=1000; else d=DELAY;}
      if((!m||!m.no)&&E.names) {
        a[1].content=addNames(e,E.names);
        if(!E.names.length) delete E.names;
      }
      setTimeout(post,d);
    }
    var e=a[1].content,d=0;f.hookStop();
    if(E.names&&e.search(l)<0) delete E.names;
    delay();
  }});*/
  // 楼中楼
  /*lzl_init.push(function(){
    utils.hook(unsafeWindow.SimplePostor.prototype,'_submitData',{before:function(f){
      function post(){
        $.tb.post(FORUM_POST_URL.postAdd,b,delay);
      }
      function delay(m){
        if(o.names) {
          if(m){if(m.no) d+=1000; else d=DELAY;}
          if(!m||!m.no) {
            b.content=addNames(a,o.names);
            if(!o.names.length) delete o.names;
          }
          setTimeout(post,d);
        } else location.reload();
      }
      if(o.names&&this._se.editArea.innerHTML.search(l)>=0) {
        f.hookStop();var d=0,b=this._getData(),a=b.content;delay();
      }
    }});
  });*/
  var o=$('<span title="召唤" style="color:red">@</span>'),p=utils.addLPopup(o,loadLists);
  lzl_init.push(p.getfunc('reinit'));
  addPButton(o.click(p.ontoggle));
}

// 楼中楼初始化
var lzl_init=[],lzl_buttons=[];
function addPButton(o) { // 新增楼中楼按钮
  lzl_buttons.push(o.addClass('lzl-button'));
}
function initLzL(editor) {
  // 楼中楼初始化
  function fixLzl() {
    var p=editor.cur_sec.find('.lzl_panel_btn');
    p.parent().css('width','50%').prev().css('width','auto');
    p.next().css({left:'auto',right:24});
    lzl_buttons.forEach(function(i){utils.insertButton(p,i);});
    lzl_init.forEach(function(i){i();});
  }
  if(lzl_buttons.length)
    utils.addStyle('.lzl-button{width:22px;height:20px;margin:2px 6px 0;float:right;cursor:pointer;line-height:20px;font-size:16px;font-weight:bold;text-align:center;}');
  if(editor.cur_sec) fixLzl();
  utils.hook(editor,'_buildEditor',{after:fixLzl});
}

function initEditor(editor){
  initAddWater(editor);     // 灌水+尾巴
  initCall(editor);     // 召唤增强，召唤列表
}

// 以下为模块调用，可将不需要的模块注释，不要改变顺序
if($&&PageData&&PageData.user) {
  initCard();   // 用户卡片上添加召唤按钮
  // 以下模块无需登录
  if(PageData.thread) { // 以下模块仅在帖子浏览页面加载
  } else {
    initLastPage();   // 尾页直达功能
  }
  //以下模块仅在登录时加载
  if(PageData.user.is_login&&unsafeWindow.PosterContext&&unsafeWindow.PosterContext.isPostAllowed()) {
    utils.wait(unsafeWindow,'test_editor',initEditor);
    utils.wait(unsafeWindow,'LzlEditor',initLzL);
  }
}