/***************************************
 * JavaScript Textile-Editor.
 *
 *
 *  Uses code from ben@ben-daglish.net (with thanks to John Hughes for improvements)
 *  Issued under the "do what you like with it - I take no responsibility" licence
 ****************************************/


(function() {

  var toolbarHtml = '<div class="textileEditorToolbar"><table class="teToolbar teToolbarRow1 Enabled" cellpadding="0" cellspacing="0" align="">\n  <tbody>\n  <tr>\n    <td class="teToolbarStart"><span><!-- IE --></span></td>\n    <td><a href="javascript:;" class="teButton teButtonEnabled te_bold" title="Fett"><span\n        class="teIcon te_bold"></span></a></td>\n    <td><a href="javascript:;" class="teButton teButtonEnabled te_italic" title="Kursiv"><span\n        class="teIcon te_italic"></span></a></td>\n    <td><a href="javascript:;" class="teButton teButtonEnabled te_underline" title="Unterstrichen"><span class="teIcon te_underline"></span></a></td>\n    <td><span class="teSeparator"></span></td>\n    <td><a href="javascript:;" class="teButton teButtonEnabled te_bullist" title="Unsortierte Liste"><span\n        class="teIcon te_bullist"></span></a></td>\n    <td><a href="javascript:;" class="teButton teButtonEnabled te_numlist" title="Sortierte Liste"><span\n        class="teIcon te_numlist"></span></a></td>\n    <td><span class="teSeparator"></span></td>\n    <td><a href="javascript:;" class="teButton te_link teButtonEnabled" title="Link einfügen"><span class="teIcon te_link"></span></a></td>\n    <td class="teToolbarEnd teToolbarEndButton teLast"><span><!-- IE --></span></td>\n  </tr>\n  </tbody>\n</table></div>';


  var inpr,inbq,inbqq,html;
  var aliases = new Array;
  var alg = {'>':'right','<':'left','=':'center','<>':'justify','~':'bottom','^':'top'};
  var ent = {"'":"&#8217;"," - ":" &#8211; ","--":"&#8212;"," x ":" &#215; ","\\.\\.\\.":"&#8230;","\\(C\\)":"&#169;","\\(R\\)":"&#174;","\\(TM\\)":"&#8482;"};
  var tags = {"b":"\\*\\*","i":"__","em":"_","strong":"\\*","cite":"\\?\\?","sup":"\\^","sub":"~","span":"\\%",/* "del":"-",*/ "code":"@","ins":"\\+"};
  var le = "\n\n";
  var lstlev = 0,lst = "",elst = "",intable = 0,mm = "";
  var para = /^p(\S*)\.\s*(.*)/;
  var rfn = /^fn(\d+)\.\s*(.*)/;
  var bq = /^bq\.(\.)?\s*/;
  var bulletListRegex = /^\*+ /;
  var table = /^table\s*{(.*)}\..*/;
  var trstyle = /^\{(\S+)\}\.\s*\|/;


  function textile2html(t) {
    var lines = t.split(/\r?\n/);
    html = "";
    inpr = inbq = inbqq = 0;
    for (var i = 0; i < lines.length; i++) {
      if (lines[i].indexOf("[") == 0) {
        var m = lines[i].indexOf("]");
        aliases[lines[i].substring(1, m)] = lines[i].substring(m + 1);
      }
    }
    for (i = 0; i < lines.length; i++) {
      if (lines[i].indexOf("[") == 0) {
        continue;
      }
      if (mm = para.exec(lines[i])) {
        stp(1);
        inpr = 1;
        html += lines[i].replace(para, "<p" + make_attr(mm[1]) + ">" + prep(mm[2]));
        continue;
      }
      // comment in, if you want support for h1/h2/h3/.....
//      if (mm = /^h(\d)(\S*)\.\s+(.*)/.exec(lines[i])) {
//        stp(1);
//        html += tag("h" + mm[1], make_attr(mm[2]), prep(mm[3])) + le;
//        continue;
//      }
      if (mm = rfn.exec(lines[i])) {
        stp(1);
        inpr = 1;
        html += lines[i].replace(rfn, '<p id="fn' + mm[1] + '"><sup>' + mm[1] + '<\/sup>' + prep(mm[2]));
        continue;
      }
      if (lines[i].indexOf("*") == 0 && bulletListRegex.test(lines[i])) {
        lst = "<ul>";
        elst = "<\/ul>";
      }
      else if (lines[i].indexOf("#") == 0) {
        lst = "<\ol>";
        elst = "<\/ol>";
      }
      else {
        while (lstlev > 0) {
          html += elst;
          if (lstlev > 1) {
            html += "<\/li>";
          } else {
            html += "\n";
          }
          html += "\n";
          lstlev--;
        }
        lst = "";
      }
      if (lst) {
        stp(1);
        var m = /^([*#]+)\s*(.*)/.exec(lines[i]);
        var lev = m[1].length;
        while (lev < lstlev) {
          html += elst + "<\/li>\n";
          lstlev--;
        }
        while (lstlev < lev) {
          html = html.replace(/<\/li>\n$/, "\n");
          html += lst;
          lstlev++;
        }
        html += tag("li", "", prep(m[2])) + "\n";
        continue;
      }
      if (lines[i].match(table)) {
        stp(1);
        intable = 1;
        html += lines[i].replace(table, '<table style="$1;">\n');
        continue;
      }
      if ((lines[i].indexOf("|") == 0) || (lines[i].match(trstyle))) {
        stp(1);
        if (!intable) {
          html += "<table>\n";
          intable = 1;
        }
        var rowst = "";
        var trow = "";
        var ts = trstyle.exec(lines[i]);
        if (ts) {
          rowst = qat('style', ts[1]);
          lines[i] = lines[i].replace(trstyle, "\|");
        }
        var cells = lines[i].split("|");
        for (j = 1; j < cells.length - 1; j++) {
          var ttag = "td";
          if (cells[j].indexOf("_.") == 0) {
            ttag = "th";
            cells[j] = cells[j].substring(2);
          }
          cells[j] = prep(cells[j]);
          var al = /^([<>=^~\/\\\{]+.*?)\.(.*)/.exec(cells[j]);
          var at = "",st = "";
          if (al != null) {
            cells[j] = al[2];
            var cs = /\\(\d+)/.exec(al[1]);
            if (cs != null) {
              at += qat('colspan', cs[1]);
            }
            var rs = /\/(\d+)/.exec(al[1]);
            if (rs != null) {
              at += qat('rowspan', rs[1]);
            }
            var va = /([\^~])/.exec(al[1]);
            if (va != null) {
              st += "vertical-align:" + alg[va[1]] + ";";
            }
            var ta = /(<>|=|<|>)/.exec(al[1]);
            if (ta != null) {
              st += "text-align:" + alg[ta[1]] + ";";
            }
            var is = /\{([^\}]+)\}/.exec(al[1]);
            if (is != null) {
              st += is[1];
            }
            if (st != "") {
              at += qat('style', st);
            }
          }
          trow += tag(ttag, at, cells[j]);
        }
        html += "\t" + tag("tr", rowst, trow) + "\n";
        continue;
      }
      if (intable) {
        html += "<\/table>" + le;
        intable = 0;
      }

      if (lines[i] == "") {
        stp();
      }
      else if (!inpr) {
        if (mm = bq.exec(lines[i])) {
          lines[i] = lines[i].replace(bq, "");
          html += "<blockquote>";
          inbq = 1;
          if (mm[1]) {
            inbqq = 1;
          }
        }
        html += "<p>" + prep(lines[i]);
        inpr = 1;
      }
      else {
        html += prep(lines[i]);
      }
    }
    stp();
    return html;
  }


  function prep(m) {
    for (i in ent) {
      m = m.replace(new RegExp(i, "g"), ent[i]);
    }
    for (i in tags) {
      m = make_tag(m, RegExp( "" + tags[i] + "(.+?)" + tags[i]), i, " ");
//      m = make_tag(m, RegExp("^" + tags[i] + "(.+?)" + tags[i]), i, "");
//      m = make_tag(m, RegExp(" " + tags[i] + "(.+?)" + tags[i]), i, " ");
    }
    m = m.replace(/\[(\d+)\]/g, '<sup><a href="#fn$1">$1<\/a><\/sup>');
    m = m.replace(/([A-Z]+)\((.*?)\)/g, '<acronym title="$2">$1<\/acronym>');
    m = m.replace(/(\"|&quot;)(.+?)(\"|&quot;):((http|https|mailto):\S+)/g, '<a href="$4">$2<\/a>');
    m = make_image(m, /!([^!\s]+)!:(\S+)/);
    m = make_image(m, /!([^!\s]+)!/);
    m = m.replace(/"([^\"]+)":(\S+)/g, function($0, $1, $2) {
      return tag("a", qat('href', aliases[$2]), $1)
    });
    m = m.replace(/(=)?"([^\"]+)"/g, function($0, $1, $2) {
      return ($1) ? $0 : "&#8220;" + $2 + "&#8221;"
    });
    return m;
  }


  function make_tag(s, re, t, sp) {
    var result = "";
    while (m = re.exec(s)) {
      // get part before match
      var idx = s.indexOf(m[0]);
      result += s.substring(0, idx);
      s = s.substring(idx + m[0].length);

      var st = make_attr(m[1]);
//      m[1] = m[1].replace(/^[\[\{\(]\S+[\]\}\)]/g, "");
//      m[1] = m[1].replace(/^[<>=()]+/, "");
      result +=  sp + tag(t, st, m[1]);
    }
    result += s;
    return result;
  }


  function make_image(m, re) {
    var ma = re.exec(m);
    if (ma != null) {
      var attr = "";
      var st = "";
      var at = /\((.*)\)$/.exec(ma[1]);
      if (at != null) {
        attr = qat('alt', at[1]) + qat("title", at[1]);
        ma[1] = ma[1].replace(/\((.*)\)$/, "");
      }
      if (ma[1].match(/^[><]/)) {
        st = "float:" + ((ma[1].indexOf(">") == 0) ? "right;" : "left;");
        ma[1] = ma[1].replace(/^[><]/, "");
      }
      var pdl = /(\(+)/.exec(ma[1]);
      if (pdl) {
        st += "padding-left:" + pdl[1].length + "em;";
      }
      var pdr = /(\)+)/.exec(ma[1]);
      if (pdr) {
        st += "padding-right:" + pdr[1].length + "em;";
      }
      if (st) {
        attr += qat('style', st);
      }
      var im = '<img src="' + ma[1] + '"' + attr + " />";
      if (ma.length > 2) {
        im = tag('a', qat('href', ma[2]), im);
      }
      m = m.replace(re, im);
    }
    return m;
  }


  function make_attr(s) {
    var st = "";
    var at = "";
    if (!s) {
      return "";
    }
    var l = /\[(\w\w)\]/.exec(s);
    if (l != null) {
      at += qat('lang', l[1]);
    }
    var ci = /\((\S+)\)/.exec(s);
    if (ci != null) {
      s = s.replace(/\((\S+)\)/, "");
      at += ci[1].replace(/#(.*)$/, ' id="$1"').replace(/^(\S+)/, ' class="$1"');
    }
    var ta = /(<>|=|<|>)/.exec(s);
    if (ta) {
      st += "text-align:" + alg[ta[1]] + ";";
    }
    var ss = /\{(\S+)\}/.exec(s);
    if (ss) {
      st += ss[1];
      if (!ss[1].match(/;$/)) {
        st += ";";
      }
    }
    var pdl = /(\(+)/.exec(s);
    if (pdl) {
      st += "padding-left:" + pdl[1].length + "em;";
    }
    var pdr = /(\)+)/.exec(s);
    if (pdr) {
      st += "padding-right:" + pdr[1].length + "em;";
    }
    if (st) {
      at += qat('style', st);
    }
    return at;
  }


  function qat(a, v) {
    return ' ' + a + '="' + v + '"';
  }


  function tag(t, a, c) {
    return "<" + t + a + ">" + c + "</" + t + ">";
  }


  function stp(b) {
    if (b) {
      inbqq = 0;
    }
    if (inpr) {
      html += "<\/p>" + le;
      inpr = 0;
    }
    if (inbq && !inbqq) {
      html += "<\/blockquote>" + le;
      inbq = 0;
    }
  }


  function escapeHtml(string) {
    var result = string;
    result = result.replace(/&/g, "&amp;");
    result = result.replace(/"/g, '&quot;');
    result = result.replace(/</g, "&lt;");
    result = result.replace(/>/g, "&gt;");
    return result;
  }


  function getSelectedText(textarea) {
    return $(textarea).getSelection().text;
  }


  function wrapSelection(textarea, addBefore, addAfter) {
    var text = getSelectedText(textarea);
    $(textarea).replaceSelection(addBefore + text + addAfter);
    refreshPreview(textarea);
  }


  function replaceSelection(textarea, text) {
    $(textarea).replaceSelection(text);
    refreshPreview(textarea);
  }


  function runInEditorFor(toolbarButton, executeThis) {
    var textArea = $(toolbarButton).closest('.textileEditorToolbar').next('.textileEditor');
    if (textArea && textArea.length) {
      executeThis(textArea);
      $(textArea).focus();
    }
    return false;
  }


  function refreshPreview(textarea) {
    var editorId = $(textarea).attr('id');
    var previewId = editorId + "-preview";
    var text = escapeHtml($(textarea).val());
    var html = textile2html(text);
    $('#' + previewId).empty().html(html);
  }


  $(function() {
    // attach preview-updater to all text areas marked as ".textileEditor"
    $('.textileEditor').keyup(function() {
      refreshPreview(this);
    });

   $('.textileEditor').bind('textileEditor.refresh', function() {
     refreshPreview(this);
   });

    $(toolbarHtml).insertBefore($('.textileEditor'));

    $('.te_bold').click(function() {
      return runInEditorFor(this, function(editor) {
        wrapSelection(editor, "*", "*");
      })
    });

    $('.te_italic').click(function() {
      return runInEditorFor(this, function(editor) {
        wrapSelection(editor, "_", "_");
      })
    });

    $('.te_underline').click(function() {
      return runInEditorFor(this, function(editor) {
        wrapSelection(editor, "+", "+");
      });
    });

    $('.te_strikethrough').click(function() {
      return runInEditorFor(this, function(editor) {
        wrapSelection(editor, "-", "-");
      });
    });

    $('.te_bullist').click(function() {
      return runInEditorFor(this, function(editor) {
        var text = getSelectedText(editor);
        text = text.replace(/\n/g, '\n* ');
        text = "\n* " +text;
        replaceSelection(editor, text);
      });
    });

    $('.te_numlist').click(function() {
      return runInEditorFor(this, function(editor) {
        var text = getSelectedText(editor);
        text = text.replace(/\n/g, '\n# ');
        text = "\n# " +text;
        replaceSelection(editor, text);
      });
    });

    $('.te_link').click(function() {
      return runInEditorFor(this, function(editor) {
        var linkTarget = prompt('Bitte Linkziel eingeben:', 'http://');
        if (linkTarget) {
          linkTarget = linkTarget.replace(/\n/g,'');
          var selection = getSelectedText(editor);
          if ( selection.length > 0 ) {
            wrapSelection(editor, '"', '":' + linkTarget +" ");
          }
          else {
            replaceSelection(editor, '"' + linkTarget+'":'+linkTarget + " ");
          }
        }
      });
    });


    $('.textile2html').bind('textileEditor.refresh', function() {
      var text = escapeHtml($(this).text());
      var html = textile2html(text);
      $(this).empty().html(html);
    });

    $('.textile2html').trigger('textileEditor.refresh');
  });
})();