vi.js

/* 
    JSVI - VI in JavaScript.
    Copyright (C) 2006-2008 Internet Connection, Inc.

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

var version = '1.0';
var emacsen = false;

/* TODO

sortof bugs:
   the toolbar is kind of ugly- possibly replace with an image-version-
   or more likely- replace with styled buttons

ideas:
   uneditable sections?

   a ruler at the 72 character mark? possibly word-wrapping?

   want to switch between vi/emacs modes?

*/
var term_cols;
var term_rows;
var term_win_width;
var term_win_height;
var term_cur_width;

var tools;
var suggest;
var backing;

var tagstyle = 0;
var line_height = 0;
var cclick = undefined;

var mode = 0;
var accum = 0;
var lastaccum = 0;
var marks = new Object();
var registers = new Object();
var lastreg = '';

var lastcommand;
var lastmotion;
var cursoriv;
var drawiv;

var printer;
var term;
var base = 0;
var left = 0;

var vselm = 0;
var vselx = undefined;
var vsely = undefined;
var vseld = false;

var lastkey = undefined;

var statustext = '';
var command = '';
var oldcommand = '';
var commandleft = 0;
var savex, savey;
var once = true;

var cursorx, cursory;
var file = new Array();
var tags = new Array();
var palette;
var cursor;

var yank_buffer = undefined;

var term_save_h = new Array();

var term_save_ss;
var term_save_mc;
var term_save_kd;
var term_save_kp;
var term_save_rs;
var term_save_op;

var lastsearch;
var lastsubst;
var lastflags;

var undoset = undefined;
var undoline = undefined;
var undoy = -1;

var term_ex_motion;
var vi_ft_reg;
var viflags = '';
var lastinsert = '';

var spelling = false;
var spellcheck = new Object();
var safewords = new Object();
var brokenwords = new Object();
var suggestions = new Object();

safewords['jsvi']=true;
safewords['javascript']=true;
safewords['URL']=true;
safewords['hyperlinks']=true;
safewords['HTML']=true;
safewords['UNIX']=true;
safewords['Firefox']=true;
safewords['MSIE']=true;
safewords['Ctrl']=true;
safewords['vi']=true;
safewords['vi-keys']=true;
safewords[':hardcopy']=true;
safewords['unicode-aware']=true;
safewords['developer-centric']=true;

var doing_backing_paste = false;

function _true() { return true; }
function _false() { return false; }

function _cbrestore() {
	var i;
	for (i = 0; i < term_save_h.length; i++) {
		var z = term_save_h[i];
		z();
	}
	term_save_h = new Array();
}
function _cbw(nx,ny) {
	var nz = window['on'+nx];
	(function(x,y,z) {
		term_save_h[term_save_h.length] = function() {
			window['on'+x] = z;
		};
	})(nx,ny,nz);
	window['on'+nx]=ny;
}
function _cbd(nx,ny) {
	var nz = document['on'+nx];
	(function(x,y,z) {
		term_save_h[term_save_h.length] = function() {
			document['on'+x] = z;
		};
	})(nx, ny, nz);
	document['on'+nx]=ny;
}
function _rer(re,t,aa) {
	if (RegExp.rightContext != undefined) return RegExp.rightContext;
	// emulate rightContext
	var s = re.toString();
	if ((s.substr(0,2) == '/^' && s.substr(s.length-1,1) == '/') || s.substr(0,1) == '^') {
		// bound at beginning
		return t.substr(aa[0].length, t.length - aa[0].length);
	}
	if ((s.substr(0,1) == '/' && s.substr(s.length-2,2) == '$/') || s.substr(s.length-1,1) == '$') {
		// bound at end
		return "";
	}
	var j = t.lastIndexOf(aa[0]);
	if (j != -1) return t.substr(j.t.length-j);
	return t;

}
function _rel(re,t,aa) {
	if (RegExp.leftContext != undefined) return RegExp.leftContext;
	// emulate leftContext
	var s = re.toString();
	if ((s.substr(0,2) == '/^' && s.substr(s.length-1,1) == '/') || s.substr(0,1) == '^') {
		// bound at beginning
		return "";
	}
	if ((s.substr(0,1) == '/' && s.substr(s.length-2,2) == '$/') || s.substr(s.length-1,1) == '$') {
		// bound at end
		return t.substr(0, t.length - aa[0].length);
	}
	var j = t.indexOf(aa[0]);
	if (j != -1) return t.substr(0,j);
	return "";
}
function _hra(x) {
	var i;
	var cx = 0;
	var t = '';
	var g = '';
	for (i = 0; i < x.length; i++) {
		var x3 = x.substr(i,3);
		var gx = String.fromCharCode(cx);
		if (x3 == '<b>') {
			cx = cx | 1;
			i += 2;
		} else if (x3 == '</b') {
			cx = (cx | 1) ^ 1;
			i += 3;
		} else if (x3 == '<u>') {
			cx = cx | 2;
			i += 2;
		} else if (x3 == '</u') {
			cx = (cx | 2) ^ 2;
			i += 3;
		} else if (x3 == '<i>') {
			cx = cx | 16;
			i += 2;
		} else if (x3 == '</i') {
			cx = (cx | 16) ^ 16;
			i += 3;
		} else if (x3 == '<sp') { // <span class="rv">
			cx = cx | 4;
			i += 16;
		} else if (x3 == '</s') { // </span>
			cx = (cx | 4) ^ 4;
			i += 6;
		} else if (x3 == '&am') { // &amp;
			t += '&';
			g += gx;
			i += 4;
		} else if (x3 == '&lt') { // &lt;
			t += '<';
			g += gx;
			i += 3;
		} else {
			t += x.substr(i,1);
			g += gx;
		}
	}
	var aa = new Array();
	aa[0] = t;
	aa[1] = g;
	return aa;
}
function _rtf(t,g) {
	var cx = 0;
	var i;
	var o = '';
	if (t == undefined) {
		t = '';
		g = '';
	}
	for (i = 0; i < t.length; i++) {
		var gx = g.substr(i, 1).charCodeAt(0);
		var tx = t.substr(i, 1);
		if (tx == "<") tx = "&lt;";
		else if (tx == '&') tx = '&amp;';
		if (gx != cx) {
			if ((gx & 1) && !(cx & 1)) {
				o += "<b>";
			} else if (!(gx & 1) && (cx & 1)) {
				o += "</b>";
			}

			if ((gx & 2) && !(cx & 2)) {
				o += "<u>";
			} else if (!(gx & 2) && (cx & 2)) {
				o += "</u>";
			}

			if ((gx & 4) && !(cx & 4)) {
				o += "<span class=\"rv\">";
			} else if (!(gx & 4) && (cx & 4)) {
				o += "</span>";
			}
			if ((gx & 16) && !(cx & 16)) {
				o += "<i>";
			} else if (!(gx & 16) && (cx & 16)) {
				o += "</i>";
			}
			cx = gx;
		}
		o += tx;
	}
	return o;
}
function _rtfl(y) {
	return _rtf(file[y],tags[y]);
}
function _dfx(q) {
/*@cc_on @*/
/*@if (1) return
@end @*/
	q.style.position = 'fixed';
}
function term_freeze() {
	var i;
	var o = '';
	for (i = 0; i < file.length; i++) {
		o += _rtfl(i)+"\n";
	}
	return o;
}
function _term_update_printer() {
	var i;
	var o = '';
	for (i = 0; i < file.length; i++) {
		o += _rtfl(i)+"<br/>";
	}
	printer.innerHTML = o;
}
function term_thaw(s) {
	var a = s.split("\n");
	var i;
	var aa;
	file = new Array();
	tags = new Array();
	var o = '';
	for (i = 0; i < a.length; i++) {
		o += a[i] + "<br/>";
		aa = _hra(a[i]);
		file[i] = aa[0];
		tags[i] = aa[1];
	}
	printer.innerHTML = o;
}

function _mxo(z,y) {
	var i;
	var o = '';
	for (i = 0; i < z.length; i++) {
		o += String.fromCharCode(z.substr(i, 1).charCodeAt(0) | y);
	}
	return o;
}
function _mxs(n,y) {
	var z = String.fromCharCode(y);
	var i;
	var o = '';
	for (i = 0; i < n; i++) {
		o += z;
	}
	return o;
}
function _zeros(n) {
	return _mxs(n,0);
}
function _fauc() {
	var d = document.getElementsByTagName('A');
	var i;
	for (i = 0; i < d.length; i++) {
		var j = d[i];
		if (j._len && j._term) {
			if (j._row == (base+cursory) && (left+cursorx) >= j._col && (left+cursorx) <= (j._col+j._len)) {
				return j;
			}
		}
	}
	return undefined;
}
function _pass_click(e) {
	var z = _fauc();
	if (z && z.onclick) return z.onclick();
	return false;
}
function _pass_dblclick(e) {
	var z = _fauc();
	if (z && z.ondblclick) return z.ondblclick();
	return false;
}

function _cancel_ev(e) {
	if (!e) e = window.event;
	if (!e) return false;
	if (e.preventDefault) e.preventDefault();
	if (e.stopPropagation) e.stopPropagation();
	return false;
}
function _willclick(e) {
	if (window.event) {
		if (!e) e = window.event;
	}
	if (!e) return true;
	if (cclick != undefined) window.clearTimeout(cclick);
	var x = e.clientX;
	var y = e.clientY;
	cclick = window.setTimeout(function() {
			cclick=undefined;
			_cursortoxy(x,y);
		}, 200);
	return false;
}
function _subclick(e) {
	return _willclick(e);
}
function _srep(e) {
	if (!e) e = window.event;
	if (e.preventDefault) e.preventDefault();
	if (e.stopPropagation) e.stopPropagation();
	e.cancelBubble=true;
	var y = this._row;
	var x = this._col;
	var len = this._len;
	var rep = this._word;
	var t = (file[y]);
	var g = (tags[y]);
	var w = (t.substr(x, len));
	var st = (g.substr(x, len));
	while (st.length < rep.length) {
		st = st + st;
	}
	if (st.length > rep.length) {
		st = st.substr(0, rep.length);
	}

	term_save_undo(); // save undo!
	file[y] = t.substr(0, x) + rep + t.substr(x+len, t.length-(x+len));
	tags[y] = g.substr(0, x) + st + g.substr(x+len, t.length-(x+len));
	suggest.style.display = 'none';
	suggest._visible = false;
	while (suggest.firstChild) suggest.removeChild(suggest.firstChild);
	if (w == rep) {
		statustext = '';
	} else {
		statustext = 'Replaced "' + w + '" with "' + rep + '"';
	}
	term_redraw();
	return false;
}
function _rl(w,h) {
	var x = document.createElement('DIV');
	x.style.overflow = 'hidden';
	x.style.height = h + 'px';
	x.style.marginLeft = w + 'px';
	x.style.marginRight = w + 'px';
	x.style.backgroundColor = palette[0];
	x.style.display = 'block';
	x.style.innerHTML = '&nbsp;';
	x.style.fontFamily = 'monospace';
	return x;
}
function _ruo(t) {
	this.style.color = palette[0];
	this.style.backgroundColor = palette[1];
}
function _rux(t) {
	this.style.color = palette[1];
	this.style.backgroundColor = palette[0];
}
function _openurl(e) {
	var u = this._term;
	window.open(u,'_new');
	return true;
}
function _suggest(e) {
	var z = this;
	if (window.event) {
		if (!e) e = window.event;
	}
	if (e) {
		if (e.preventDefault) e.preventDefault();
		if (e.stopPropagation) e.stopPropagation();
		e.cancelBubble=true;
	}
	(function(q) {
		window.setTimeout(function(){ 
			_dosuggest(q);
		}, 10);
	})(z);
	return false;
}
function _dosuggest(z) {
	var x = 0;
	var y = 0;
	var xt = z._term;
	var wrow = z._row;
	var wcol = z._col;
	var wlen = z._len;
	while (z && z != document.body) {
		x += z.offsetLeft;
		y += z.offsetTop;
		z = z.offsetParent;
	}

	suggest._visible = true;
	suggest.style.top = y + 'px';
	suggest.style.left = x + 'px';
	suggest.style.display = 'block';
	suggest.style.zIndex = '3';
	suggest.style.padding = '2px';

	while (suggest.firstChild) suggest.removeChild(suggest.firstChild);

	var sg = document.createElement('DIV');
	sg.style.backgroundColor = palette[0];
	sg.style.color = palette[1];
	sg.style.fontSize = '100%';
	sg.style.padding = '2px';
	sg.style.textAlign = 'center';
	sg.style.cursor = 'default';

	var sa = suggestions[xt];
	var i;
	var fs = 200;
	var fd = parseInt((100 / sa.length) * 1.5);
	var bf;
	for (i = 0; i < sa.length; i++) {
		var da = document.createElement('A');
		da.href = 'javascript:void(0)';
		da.onclick = _srep;
		da._word = sa[i];
		da._row = wrow;
		da._col = wcol;
		da._len = wlen;
		da.onmouseover = _ruo;
		da.onmouseout = _rux;
		da.style.margin = '4px';
		da.style.textDecoration = 'none';
		da.style.display = 'block';
		da.style.color = palette[1];
		da.style.backgroundColor = palette[0];
		da.style.fontSize = fs + '%';
		fs -= fd;
		if (fs <= 100) fs = 100;
		da.appendChild(document.createTextNode(sa[i]));
		// err...
		da.appendChild(document.createElement('BR'));
		if ((wrow-base) > term_rows-(sa.length+1)) {
			sg.insertBefore(da, sg.firstChild);
			bf = true;
		} else if (((i % 2) == 0) || (wrow < (sa.length+1))) {
			sg.appendChild(da);
		} else {
			sg.insertBefore(da, sg.firstChild);
		}
		da = undefined; // break
	}
	if (sa.length == 0) {
		sg.appendChild(document.createTextNode('No matches'));
	}
	var da = document.createElement('A');
	da.href = 'javascript:void(0)';
	da.onclick = _srep;
	da._word = xt;
	da._row = wrow;
	da._col = wcol;
	da._len = wlen;
	da.style.margin= '4px';
	da.style.textDecoration = 'none';
	da.style.color = palette[1];
	da.style.backgroundColor = palette[0];
	da.style.borderBottom = '1px dashed red';
	da.style.fontSize = '100%';
	da.onmouseover = _ruo;
	da.onmouseout = _rux;
	da.appendChild(document.createTextNode(xt));
	if (wrow > term_rows-(sa.length+1)) {
		sg.insertBefore(da, sg.firstChild);
	} else {
		sg.appendChild(da);
	}

	// rounded top and bottom
	suggest.appendChild(_rl(3,1));
	suggest.appendChild(_rl(2,1));
	suggest.appendChild(_rl(1,2));
	suggest.appendChild(sg);
	suggest.appendChild(_rl(1,2));
	suggest.appendChild(_rl(2,1));
	suggest.appendChild(_rl(3,1));

	// msie needs to recalculate these things manually... grr...
	// this doesn't work because msie doesn't calculate offsetwidth (thtphtpht)
	var zq;
	var mw = 11;
	if (mw < xt.length) mw = xt.length;
	for (i = 0; i < sa.length; i++) {
		if (mw < sa[i].length) mw = sa[i].length;
	}

	if (mw) {
		mw *= (term_cur_width*2);
		mw += 16;
		suggest.style.width = mw + 'px';
	}

	var sx = parseInt(sg.offsetWidth / 4);
	if (x < sx) {
		x = 0;
	} else {
		x -= sx;
		suggest.style.left = x + 'px';
	}
	var sy = parseInt(sg.offsetHeight / 4);
	if (bf) {
		suggest.style.top = '';
		suggest.style.bottom = '0px';
	} else if (y < sy) {
		y = 0;
		suggest.style.top = '0px';
		suggest.style.bottom = '';
	} else {
		y -= sy;
		suggest.style.top = y + 'px';
		suggest.style.bottom = '';
	}

	statustext = 'Suggestions for: ' + xt;
	term_redraw();

	da = undefined; // break
	sg = undefined; // break
}

function _backing_paste_real() {
	doing_backing_paste = false;
	term_redraw();
	if (!backing.value) return;
	if (backing._lastvalue == backing.value) {
		return;
	}
	backing._lastvalue = backing.value;
	term_paste(false, backing.value);
	term_redraw();
}
function _msie_paste() {
	var chunk = "new content associated with this object";
	event.returnValue = false;
	term_paste(false, window.clipboardData.getData("Text", chunk));
}
function _backing_paste() {
	_update_backing();
	if (!doing_backing_paste) {
		doing_backing_paste = true;
		window.setTimeout(_backing_paste_real, 10);
	}
}
function _update_backing() {
	if (!backing) return;
/*@cc_on @*/
/*@if (1) return
@end @*/
	backing.focus();
	backing.select();
}
function _yaty(y) {
	if (line_height) return parseInt(y/line_height);
	var zx;
	var qx = term.firstChild;
	var nh = 0;
	while (qx && qx != document.body) {
		nh += qx.offsetTop;
		qx = qx.offsetParent;
	}

	var ny = 0;
	var cy = 0;
	for (zx = term.firstChild; zx; zx = zx.nextSibling) {
		nh += (zx.offsetHeight + 4);
		if (y <= nh) {
			cy = ny;
			break;
		}
		ny++;
	}
	return cy;
}
function _cursortoxy(x,y) {
	// this is a little gross...
	var sx = cursorx;
	cursorx = parseInt(x / term_cur_width);
	term_redraw();

	var sy = cursory;
	cursory = _yaty(y);

	if (cursory >= (term_rows-1)) {
		cursory = sy;
		cursorx = sx;
		sy = 0;
	}

	term_scrollto();
	term_calcx();
	if (cursory != sy) {
		term_redraw();
	} else {
		term_calcy();
	}
	_update_backing();
	return true;
}
function _mousescroll(e) {
	if (!e) e = window.event;
	var d = 0;
	if (e.wheelDelta) {
		d = e.wheelDelta;
		if (d < 0) d = 1; else d = -1;
	} else if (e.detail) {
		d = e.detail;
	} else {
		return true;
	}
	if (d < 0) {
		if (base > 0) base--;
	} else if (d > 0) {
		if (base < (file.length - (term_rows-1))) base++;
	}
	term_redraw();
	return false;
}

function _mousedown(e) {
	if (suggest._visible) return true;
	if (!e) e = window.event;
	var y = _yaty(e.clientY);
	if (y >= (term_rows-1)) return true;
	_willclick(e);
	vseld = true;
	vselm = 0;
	vselx = undefined;
	vsely = undefined;
	return false;
}
function _mousemove(e) {
	if (!e) e = window.event;
	if (e) {
		if (e.preventDefault) e.preventDefault();
		if (e.stopPropagation) e.stopPropagation();
		e.cancelBubble=true;
	}
	if (window.getSelection) {
		var s = window.getSelection();
		if (s.removeAllRanges) s.removeAllRanges();
	}
	if (document.selection && document.selection.empty) {
		eval('try{document.selection.empty();}catch(e){}');
	}
	// fixup selection
	_update_backing();

	if (suggest._visible || !vseld) return true;
	if (vseld) {
		if (vselx == undefined && vsely == undefined) {
			// turn on v here
			vselm = 1;
			vselx = cursorx+left;
			vsely = cursory+base;
		}
		_willclick(e);
		return true;
	}
	return true;
}
function _mouseup(e) {
	if (suggest._visible || !vseld) return true;
	vseld = false;
	if (vselm && vselx != undefined && vsely != undefined) {
		// okay, we HAVE selection
		var rr = lastreg;
		lastreg = '*';
		term_vi_set('y');
		term_vi_unset('d');
		term_select();
		term_operate();
		lastreg = rr;
	} else {
		vselm = 0;
	}
	_willclick(e);
	return false;
}
function _mouseclick(e) {
	if (!e) e = window.event;
	var y = _yaty(e.clientY);
	if (y >= (term_rows-1)) return true;
	vselm = 0;
	_cursorto(e);
	return true;
}
function _cursorto(e) {
	if (!e) e = window.event;
	var x = e.clientX;
	var y = e.clientY;
	if (suggest._visible) {
		suggest.style.display = 'none';
		suggest._visible = false;
		statustext = '';
	}
	return _cursortoxy(x,y);
}

function _word(s) {
	var t = s.replace(/[.?!,:]*$/,"");
	if (t) s = t;
	t = s.replace(/[ \r\n\t]/,"");
	if (t) s = t;
	return s;
}
function _safe(s) {
	if (s.match(/^[ \r\n\t]*<.*>[ \r\n\t]*$/)) return true;
	return false;
}
function _xhttp() {
        var xmlhttp=false;
/*@cc_on @*/
/*@if (@_jscript_version >= 5)
 try {
  xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
 } catch (e) {
  try {
   xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
  } catch (E) {
   xmlhttp = false;
  }
 }
@end @*/
        if (!xmlhttp && typeof XMLHttpRequest!='undefined') {
                xmlhttp = new XMLHttpRequest();
        }
	if (!xmlhttp) return new Object(); // fake out caller
        return xmlhttp;
}

function term_setmode(n) {
	mode = n;
	lastinsert = '';
}

function term_roll_yank() {
	registers["9"] = registers["8"];
	registers["8"] = registers["7"];
	registers["7"] = registers["6"];
	registers["6"] = registers["5"];
	registers["5"] = registers["4"];
	registers["4"] = registers["3"];
	registers["3"] = registers["2"];
	registers["2"] = registers["1"];
	registers["1"] = registers["0"];

	if (lastreg == '0') {
		registers[""] = yank_buffer;
	}
	if (lastreg == "" || lastreg == "*") {
		backing._lastvalue = yank_buffer;
		backing.value = yank_buffer;
	}
	registers["0"] = yank_buffer;
}

function term_justify() {
	var y = cursory+base;
	var i;
	if (!accum) accum = 1;
	var t = (file[y]);
	file[p] = t.replace(/[ ][ ]*$/,"");
	tags[p] = tags[p].substr(0, file[p].length);
	for (i = 0; i < accum; i++) {
		var t = file[i+y+1];
		var g = tags[i+y+1];
		term_delete(i+y+1); // ignore return

		t = t.replace(/^[ ][ ]*/,"");
		g = g.substr(g.length - t.length, t.length);
		if (t != '') {
			file[y] = file[y] + " " + t;
			tags[y] = tags[y] + "\0" + g;
		}
	}
	file[y] = file[y].replace(/^[ ][ ]*/,"");
	tags[y] = tags[y].substr(tags[y].length - file[y].length, file[y].length);
	accum = 0;
}

function term_vi_bb() {
	return term_skipbackward(/[ ][^ ][^ ]*[ ]*$/);
}
function term_vi_b() {
	return term_skipbackward(/[^a-zA-Z0-9_][a-zA-Z0-9_][a-zA-Z0-9_]*[^a-zA-Z0-9_]*$/);
}
function term_vi_tt() {
	var t = (file[cursory+base]);
	var i;
	var w = term_cols;
	for (i = (cursorx+left)-1; i >= 0; i--) {
		var c = (t.substr(i, 1));
		if (c == vi_ft_reg) {
			cursorx = (i - left)+1;
			if (cursorx >= w) {
				left = 0;
				cursorx = i+1;
			}
			return true;
		}
	}
	return false;
}
function term_vi_t() {
	var t = (file[cursory+base]);
	var i;
	for (i = (cursorx+left)+1; i < t.length; i++) {
		var c = (t.substr(i, 1));
		if (c == vi_ft_reg) {
			cursorx = (i - left)-1;
			if (term_vi_flag('d') || term_vi_flag('c') || term_vi_flag('y')) cursorx++;
			if (cursorx < 0) {
				left = 0;
				cursorx = i-1;
			}
			return true;
		}
	}
	return false;
}
function term_vi_ff() {
	var t = (file[cursory+base]);
	var i;
	for (i = (cursorx+left)-1; i >= 0; i--) {
		var c = (t.substr(i, 1));
		if (c == vi_ft_reg) {
			cursorx = i - left;
			if (cursorx < 0) {
				left = 0;
				cursorx = i;
			}
			return true;
		}
	}
	return false;
}
function term_vi_f() {
	var t = (file[cursory+base]);
	var i;
	var w = term_cols;
	for (i = (cursorx+left)+1; i < t.length; i++) {
		var c = (t.substr(i, 1));
		if (c == vi_ft_reg) {
			cursorx = i - left;
			if (term_vi_flag('d') || term_vi_flag('c') || term_vi_flag('y')) cursorx++;
			if (cursorx >= w) {
				left = 0;
				cursorx = i;
			}
			return true;
		}
	}
	return false;
}
function term_vi_eof() {
	cursorx = 0;
	left = 0;
	base = 0;
	if (accum) {
		cursory = accum-1;
		return false;
	} else {
		base = file.length - (term_rows-1);
		cursory = term_rows-1;
		if (base < 0) {
			base = 0;
			cursory = file.length-1;
		}
	}
	term_redraw();
	return true;
}
function term_vi_top() {
	cursorx = 0;
	base = 0;
	left = 0;
	if (accum) {
		cursory = accum-1;
		return false;
	} else {
		cursory = 0;
	}
	return true;
}
function term_vi_h() { cursorx--; term_scrollto(); return true; }
function term_vi_j() { cursory++; term_scrollto(); return true; }
function term_vi_k() { cursory--; term_scrollto(); return true; }
function term_vi_l() {
	cursorx++;
	// hack
	var a = mode;
	mode = 1;
	term_scrollto();
	mode = a;
	return true;
}
function term_vi_ll() {
	cursory = term_rows-2;
	return true;
}
function term_vi_mm() {
	cursory = parseInt((term_rows-2) / 2);
	cursorx = 0; left = 0;
	return true;
}
function term_vi_hh() {
	cursory = 0;
	return true;
}
function term_vi_ob() {
	cursory--;
	return term_skipreverse2(/^[ ]*$/, 0);
}
function term_vi_cb() {
	cursory++;
	return term_skipforward(/^[ ]*$/, 0);
}
function term_vi_ww() {
	return term_skipforward(/[ ][^ ]/, 0);
}
function term_vi_w() {
	return term_skipforward(/[^a-zA-Z0-9_(){}<>][a-zA-Z0-9_(){}<>]/, 0);
}

function term_vi_flag(f) {
	return (viflags.indexOf(f) == -1) ? false : true;
}
function term_vi_unset(f) {
	var j = viflags.indexOf(f);
	if (j == -1) return;
	viflags = viflags.substr(0, j) + viflags.substr(j+1, (viflags.length-j)-1);
}
function term_vi_set(f) {
	if (viflags.indexOf(f) == -1) viflags += ''+f;
}
function term_vi_bounce() {
	var y = cursory+base;
	var t = (file[y]);
	var x = cursorx+left;
	var z1 = '[{()}]';
	var z2 = ']})({[';
	while (x < t.length) {
		var z = z1.indexOf(t.substr(x,1));
		if (z == -1) {
			x++;
			continue;
		}
		var d = (z > 2) ? -1 : 1;
		var c=z2.substr(z,1);
		while (y >= 0 && y < file.length) {
			while (x > 0 && x < t.length) {
				if (t.substr(x,1) == c) {
					cursorx = x-left;
					cursory = y;
					base = 0;
					term_scrollto();
					return true;
				}
				x += d;
			}
			if (d == -1) {
				y--;
				t = file[y];
				x = (t.length-1)
			} else {
				y++;
				t = file[y];
				x = 0;
			}
		}
	}
	return false;
}
function term_vi_eol() {
	var t = (file[cursory+base]);
	cursorx = (t.length)-left;
	if (cursorx < 0) {
		left = 0;
		cursorx = (t.length);
	}
	return true;
}
function term_vi_line() {
	var t = (file[cursory+base]);
	left = 0;
	cursorx = t.length+1;
	return true;
}
function term_vi_ee() {
	return term_skipforward(/[^ ][ ]/, 1);
}
function term_vi_e() {
	if (term_skipforward(/[a-zA-Z0-9_(){}<>][^a-zA-Z0-9_(){}<>]/, 1)) {
		if (term_vi_flag('d') || term_vi_flag('c') || term_vi_flag('y')) cursorx++;
		return true;
	}
	return false;
}

function term_vi_v() {
	cursorx = vselx - left;
	if (cursorx < 0) {
		left = 0;
		cursorx = vselx;
	}
	cursory = vsely - base;
	if (cursory < 0) {
		base = 0;
		cursory = vsely;
	}
}
function term_vi_vv() {
	term_vi_v();
	term_vi_line();
}

function term_select() {
	if (vselm == 1) {
		term_ex_motion = term_vi_v;
	} else if (vselm == 2) {
		term_ex_motion = term_vi_vv;
		cursorx = 0;
		left = 0;
	}
}
function term_indent(y,amount) {
	if (file[y] == undefined)  {
		file[y] = '';
		tags[y] = '';
	}
	file[y] = _mxs(amount*4,32)+file[y];
	tags[y] = _mxs(amount*4,tagstyle)+tags[y];
}
function term_unindent(y,amount) {
	amount*=4;
	while (amount > 0 && file[y].substr(0, 1) == ' ') {
		file[y] = file[y].substr(1, file[y].length-1);
		amount--;
	}
}

function term_operate() {
	term_save_undo();

	var fa = accum;
	if (!fa) fa = 1;
	var sx = cursorx+left;
	var sy = cursory+base;
	while (fa > 0) {
		var t = file[base+cursory];
		if (t == undefined) break;
		if (fa > 1 && ((cursorx+left) >= t.length)) {
			cursory++;
			cursorx = 0;
			left = 0;
		}

		term_ex_motion();
		fa--;
	}
	fa = accum;
	if (!fa) fa = 1;
	accum = 0;
	var ex = cursorx+left;
	var ey = cursory+base;
	var i;
	if (ey < sy) {
		i = ey;
		ey = sy;
		sy = i;
	}
	if (ex < sx) {
		i = ex;
		ex = sx;
		sx = i;
	}
	var t = file[ey];
	var g = tags[ey];
	var restore = false;
	if (term_vi_flag('c')) term_vi_set('d');
	if (vselm != 2 && ey == sy && ex <= t.length) {
		if (vselm) ex++;
		if (ex != sx) {
			if (term_vi_flag('F')) {
				// styling
				tags[ey] = (g.substr(0, sx)) + _mxs(ex-sx, tagstyle) + (g.substr(ex, g.length-ex));
			} else if (term_vi_flag('d') || term_vi_flag('y')) {
				yank_buffer = _rtf(t.substr(sx, ex-sx),
						g.substr(sx,ex-sx));
			}
			if (term_vi_flag('d')) {
				file[ey] = (t.substr(0, sx)) + (t.substr(ex, t.length-ex));
				tags[ey] = (g.substr(0, sx)) + (g.substr(ex, g.length-ex));
				if (lastreg != '_') {
					registers[lastreg] = yank_buffer;
					term_roll_yank();
				}
			} else if (term_vi_flag('y')) {
				registers[lastreg] = yank_buffer;
				term_roll_yank();
			}
			if (term_vi_flag('>')) {
				term_indent(ey,fa);
			} else if (term_vi_flag('<')) {
				term_unindent(ey,fa);
			}
		}
	} else if (vselm == 1) {
		if (term_vi_flag('d') || term_vi_flag('y') || term_vi_flag('F')) {
			yank_buffer = '';
			var al, bl;
			for (i = sy; i <= ey; i++) {
				t = file[i];
				g = tags[i];
				if (i == sy) {
					if ((sy == vsely && sx == vselx) || (sy != vsely && sx != vselx)) {
						al = sx;
					} else {
						al = ex;
					}
					bl = t.length;
				} else if (i == ey) {
					al = 0;
					if ((sy == vsely && sx == vselx) || (sy != vsely && sx != vselx)) {
						al = ex;
					} else {
						al = sx;
					}
				} else {
					al = 0;
					bl = t.length;
				}
				yank_buffer += _rtf(t.substr(al, bl-al),
						g.substr(al,bl-al));
				if (sy != ey || vselm == 2) yank_buffer += "\n";
				if (term_vi_flag('d')) {
					file[i] = t.substr(0, al) + t.substr(bl, t.length-bl);
					tags[i] = g.substr(0, al) + g.substr(bl, g.length-bl);
				} else if (term_vi_flag('F')) {
					tags[i] = g.substr(0, al) + _mxs(bl-al, tagstyle)
						 + g.substr(bl, g.length-bl);
				}
				if (term_vi_flag('>')) {
					term_indent(i,fa);
				} else if (term_vi_flag('<')) {
					term_unindent(i,fa);
				}
			}
			if (lastreg != '_' && !term_vi_flag('F')) {
				registers[lastreg] = yank_buffer;
				term_roll_yank();
			}
		}
	} else {
		if (term_vi_flag('F')) {
			for (i = sy; i <= ey; i++) {
				tags[i] = _mxs(file[i].length, tagstyle);
			}
		} else if (term_vi_flag('d')) {
			yank_buffer = '';
			for (i = sy; i <= ey; i++) {
				yank_buffer += term_delete(sy);
			}
			if (lastreg != '_') {
				registers[lastreg] = yank_buffer;
				term_roll_yank();
			}
		} else if (term_vi_flag('y')) {
			yank_buffer = '';
			for (i = sy; i <= ey; i++) {
				yank_buffer += _rtfl(sy) + "\n";
			}
			registers[lastreg] = yank_buffer;
			term_roll_yank();
		} else if (term_vi_flag('>')) {
			for (i = sy; i <= ey; i++) {
				term_indent(i,fa);
			}
		} else if (term_vi_flag('<')) {
			for (i = sy; i <= ey; i++) {
				term_unindent(i,fa);
			}
		}
	}

	if (term_vi_flag('d') || term_vi_flag('F') || term_vi_flag('c')) {
		_term_update_printer();
	}
	if (term_vi_flag('d')) {
		term_vi_unset('d');
		lastcommand = 'd';
		lastmotion = term_ex_motion;
		restore = true;
	}
	if (term_vi_flag('y')) {
		term_vi_unset('y');
		restore = true;
	}
	if (term_vi_flag('F')) {
		term_vi_unset('F');
		restore = true;
	}
	lastaccum = accum;
	if (restore) {
		cursorx = sx - left;
		if (cursorx < 0) {
			cursorx = sx;
			left = 0; 
		}
		cursory = sy - base;
		if (cursory < 0) {
			cursory = sy;
			base = 0;
		}
		term_scrollto();
	}
	if (term_vi_flag('c')) {
		term_vi_unset('c');
		term_setmode(1);
	}
	accum = 0;
}

function term_save_undo_line() {
	if ((base+cursory) != undoy) {
		undoy = base+cursory;
		undoline = _rtfl(undoy);
	}
}
function term_save_undo() {
	undoset = term_freeze();
}

function term_delete(i) {
	if (i > file.length) return '';
	var j;
	var z = file[i];
	var g = tags[i];
	for (j = i+1; j < file.length; j++) {
		file[j-1] = file[j];
		tags[j-1] = tags[j];
	}
	file=_pop(file);
	return _rtf(z,g) + "\n";
}

function term_skipreverse2(re, fuzz) {
	var y = cursory+base;
	var x = (cursorx+left)+(1+fuzz);
	for (;;) {
		var t = file[y];
		if (t == undefined) {
			// beep
			cursory = y - base;
			return false;
		}
		if (fuzz) t += " "; else t = " " + t;
		t = (t.substr(x, t.length-x));
		var aa = re.exec(t);
		if (!aa) {
			y--;
			x = 0;
		} else {
			x += _rel(re,t,aa).length;
			cursorx = x - left;
			cursory = y - base;
			return true;
		}
	}
	return false;
}
function term_skipforward(re, fuzz) {
	var y = cursory+base;
	var x = (cursorx+left)+(1+fuzz);
	for (;;) {
		var t = file[y];
		if (t == undefined) {
			// beep
			cursory = y - base;
			return false;
		}
		if (fuzz) t += " "; else t = " " + t;
		t = (t.substr(x, t.length-x));
		var aa = re.exec(t);
		if (!aa) {
			y++;
			x = 0;
		} else {
			x += _rel(re,t,aa).length;
			cursorx = x - left;
			cursory = y - base;
			return true;
		}
	}
	return false;
}
function term_skipbackward(re) {
	var y = cursory+base;
	var x = (cursorx+left)+1;
	for (;;) {
		var t = file[y];
		if (t == undefined) {
			// beep
			cursory = 0;
			cursorx = 0;
			return false;
		}
		t = " " + t.substr(0, x-1);
		if (t == '') {
			y--;
			t = file[y];
			if (t == undefined) continue;
			x = (t.length);
			continue;
		}
		var aa = re.exec(t);
		if (!aa) {
			left = 0;
			cursorx = 0;
			cursory = y - base;
			return true;
		} else {
			x = _rel(re,t,aa).length;
			cursorx = x - left;
			cursory = y - base;
			return true;
		}
	}
	return false;
}

function term_search(s, top, start, bottom) {
	var re = new RegExp(s.substr(1));
	var i;
	if (s.substr(0, 1) == '/') {
		statustext='';
		re.lastIndex = cursorx+left+1;
		for (i = start; i < bottom; i++) {
			var t = (file[i]);
			if (i == start) {
				t = t.substr(cursorx+left+1, t.length-(cursorx+left+1));
			}
			aa = re.exec(t);
			if (!aa) continue;
			var tx = _rel(re,t,aa).length;
			if (i == start) {
				tx += cursorx+left+1;
			}
			left = 0;
			base = 0;
			cursorx = tx;
			cursory = i;
			term_scrollto();
			return true;
		}
		statustext = 'search hit BOTTOM, continuing at TOP';
		for (i = top; i <= start; i++) {
			var aa = re.exec(file[i]);
			if (!aa) continue;
			left = 0;
			base = 0;
			cursorx = _rel(re,file[i],aa).length;
			cursory = i;
			term_scrollto();
			return true;
		}
		statustext = 'Pattern not found: ' + s.substr(1);
	} else {
		statustext='';
		for (i = start; i >= top; i--) {
			var t = file[i];
			if (t == undefined) continue;
			var tail = 0;
			if (i == start) {
				tail = (cursorx+left);
			} else {
				tail = t.length;
			}
			var right = tail;
			while (tail > 0) {
				tail--;
				var xj = t.substr(tail, right-tail);
				var aa = re.exec(xj);
				if (!aa) continue;

				var tx = tail+_rel(re,xj,aa).length;
				left = 0;
				base = 0;
				cursorx = tx;
				cursory = i;
				term_scrollto();
				return true;
			}
		}
		statustext = 'search hit TOP, continuing at BOTTOM';
		for (i = bottom; i >= start; i--) {
			var t = file[i];
			if (t == undefined) continue;
			var tail = t.length;
			while (tail > 0) {
				tail--;
				var xj = t.substr(tail, t.length-tail);
				var aa = re.exec(xj);
				if (!aa) continue;

				cursorx = tail+_rel(re,xj,aa).length;
				cursory = i;
				left = 0;
				base = 0;
				term_scrollto();
				return true;
			}
		}
		statustext = 'Pattern not found: ' + s.substr(1);
	}
	return false;
}
function term_rsearch(s, top, start, bottom) {
	var cx = s.substr(0, 1);
	cx = (cx == '/') ? '?' : "/";
	return term_search(cx+s.substr(1,s.length-1), top, start, bottom);
}

function _pop(q) {
	var a = new Array();
	var i;
	for (i = 0; i < q.length-1; i++) {
		a[i] = q[i];
	}
	return a;
}
function _addr(q) {
	if (q == '.') {
		return cursory+base;
	}
	if (q == '$') {
		return file.length-1;
	}
	if (q.substr(0, 1) == "'") {
		return marks[ q.substr(1, 1) ];
	}
	if (q == "\\/" || q == "\\&") {
		var a=cursory;
		var b=base;
		term_search(lastsearch, 0, cursory+base, file.length);
		var c=cursory+base;
		cursory=a;
		base=b;
		return c;
	}
	if (q == "\\?") {
		var a=cursory;
		var b=base;
		term_rsearch(lastsearch, 0, cursory+base, file.length);
		var c=cursory+base;
		cursory=a;
		base=b;
		return c;
	}
	if (q.substr(0, 1) == "/" || q.substr(0,1) == "?") {
		var a=cursory;
		var b=base;
		term_search(q, 0, cursory+base, file.length);
		var c=cursory+base;
		cursory=a;
		base=b;
		return c;
	}
	q=parseInt(q)-1;
	if (q >= file.length-1) q=file.length-1;
	if (q < 0) q=0;
	return q;
}
function term_command(s) {
	var top, start,bottom;
	if (s && s.length > 0 && s.substr(0,1) == ':') {
		s = s.substr(1, s.length-1);
		top = cursory+base;
		start = top;
		bottom = top;
	} else {
		top = 0;
		start = cursory+base;
		bottom = file.length;
	}

	// okay, this is kind of tricky
	var i;
	var tok = '';
	var tc = 0;
	var ng = new Array();
	var lastre = undefined;
	var nf = false;
	/// xxx todo implement ! with nf
	for (i = 0; i < s.length; i++) {
		var c = s.substr(i, 1);
		if ((tc==0 || tc==1) && "0123456789".indexOf(c) > -1) {
			tc = 1;
			tok = ''+tok+''+c;
			continue;

		} else if (tc == 1) {
			tc = 0;
			ng[ng.length] = parseInt(tok)-1;
			tok = '';
		}

		if (c == '%') {
			top = 0;
			bottom = file.length;
			start = cursory+base;
		} else if (c == '!') {
			nf = !nf;
		} else if (c == ',') {
			// do nothing
			while (ng.length > 2) {
				ng=_pop(ng);
			}
		} else if (c == ';') {
			start = ng[ng.length-1];
			ng = _pop(ng);
			cursory=start;
			base=0;
			ng = _pop(ng);
		} else if (c == '$') {
			ng[ng.length] = file.length;
		} else if (c == '.') {
			ng[ng.length] = cursory+base;
		} else if (c == "'") {
			// mark
			ng[ng.length] = marks[s.substr(i+1,1)];
			i++;

		} else if (c == "\\") {
			i++;
			c = s.substr(i, 1);
			var qq;
			if (c == '?') {
				qq=term_rsearch;
			} else {
				qq=term_search;
			}
			if (ng.length == 1) {
				top = ng[0];
				ng = _pop(ng);
			} else if (ng.length >= 2) {
				top = ng[ng.length-2];
				bottom = ng[ng.length-1];
				ng = _pop(_pop(ng));
			}
			if (!qq(lastsearch,top,start,bottom)) {
				return;
			}
			ng[ng.length] = cursory+base;
		} else if (c == "/" || c == "?") {
			var j = i;
			for (i++; i < s.length; i++) {
				var tc = s.substr(i, 1);
				if (tc == "\\") i++;
				else if (tc == c) break;
			}
			lastre = s.substr(j, i-j);
			if (ng.length == 1) {
				top = ng[0];
				ng = _pop(ng);
			} else if (ng.length >= 2) {
				top = ng[ng.length-2];
				bottom = ng[ng.length-1];
				ng = _pop(_pop(ng));
			}
			if (!term_search(lastre,top,start,bottom)) {
				return;
			}
			ng[ng.length] = cursory+base;
		} else if (c == " " || c == "\t") {
			continue;
		} else {
			break;
		}
	}
	if (tc == 1) {
		ng[ng.length] = parseInt(tok)-1;
		tok = '';
		i++;
	}
	if (ng.length == 1) {
		top = ng[0];
		bottom = ng[0];
	} else if (ng.length >= 2) {
		top = ng[ng.length-2];
		bottom = ng[ng.length-1];
	}
	if (lastre != undefined) {
		lastsearch = lastre;
		registers["/"] = lastsearch.substr(1, lastsearch.length-1);
	}

	var cmd2 = s.substr(i,2);
	var cmd = s.substr(i, 1);

	if (cmd2 == 'wq' || cmd == 'x') {
		editor_disable(true);
	} else if (cmd == '=') {
		statustext = '' + bottom;
		return;
	} else if (cmd2 == 'ha') {
		window.print();
		return;
	} else if (cmd == 'w') {
		var zx = term_freeze();
		if (term._formelement) term._formelement.value=zx;
		statustext = '"/tmp/mess4XbCXM" ' + file.length + 'L, '
				+ zx.length + 'C written';

	} else if (!emacsen && s.substr(i,(s.length-i)) == 'emacs') {
		statustext = 'EMACS mode enabled. Press M-x vi to use vi mode';
		emacsen = true;
		mode = 1;

	} else if (emacsen && cmd2 == 'vi') {
		statustext = 'VI mode enabled. Press ESC :emacs to use EMACS mode';
		mode = 0;
		emacsen = false;

	} else if (cmd == 'e' && term._formelement) {
		var zx = term_freeze();
		if (cmd2 != 'e!') {
			if (cmd2 == 'e?') {
				if (!confirm("Your changes will be lost\nAre you sure?")) {
					return;
				}
			} else if (term._formelement.value != zx) {
				statustext = 'No write since last change (use ! to override)';
				return;
			}
		}
		term_thaw(term._formelement.value);
	} else if (cmd == 'f') {
		var zx = term_freeze();
		statustext = '"/tmp/mess4XbCXM"';
		if (term._formelement.value != zx) {
			statustext += ' [Modified]';
		}
		statustext += ' line ' + (cursory+base+1) + ' of '
			+ file.length + ' col ' + (cursorx+left+1);

	} else if (cmd == 'h' || s.substr(i,5) == 'about') {
		statustext = "jsvi \xa9 2006 Internet Connection, Inc";

	} else if (s.substr(i,4) == 'kwak') {
		term.style.backgroundImage = 'url(ducky.jpg)';
		statustext = 'kwak kwak kwak...';
	} else if (s.substr(i,3) == 'moo') {
		statustext = 'This editor does not have Super Cow Powers';

	} else if (cmd == 'b') {
		// only one buffer

	} else if (cmd == 'n' || cmd == 'N') {
		statustext = 'There is only one file to edit';

	} else if (cmd == 'q') {
		var zx = term_freeze();
		if (cmd2 != 'q!') {
			if (term._formelement.value != zx) {
				if (cmd2 == 'q?') {
					if (confirm("Your changes will be lost\nAre you sure?")) {
						editor_disable(false);
						return;
					} else {
						return;
					}
				}
				statustext = 'No write since last change (use ! to override)';
				return;
			}
		}
		editor_disable(false);
	} else if (cmd == 'd') {
		// delete lines
		yank_buffer = term_delete(top);
		while (top < bottom) {
			yank_buffer += term_delete(top);
			bottom--;
		}
		if (lastreg != '_') {
			registers[lastreg] = yank_buffer;
			term_roll_yank();
		}
		term_scrollto();
	} else if (cmd == 'u') {
		var z = term_freeze();
		term_thaw(undoset);
		undoset = z;

	} else if (cmd == 'y') {
		yank_buffer = '';
		for (i = top; i < bottom; i++) {
			yank_buffer += (file[i])+"\n";
		}
		registers[lastreg] = yank_buffer;
		term_roll_yank();

	} else if (cmd == 'F') {
		// styling!
		var y;
		var tadd = 0;
		var tsub = 0;
		var tset = undefined;
		var otc = tagstyle;
		var tg = '=';
		for (y = i+1; y < s.length; y++) {
			var cy = s.substr(y, 1);
			if (cy == '=' || cy == '+' || cy == '-' || cy == '!') {
				tg = cy;
			} else {
				var fl = 0;
				if (cy == 'b') {
					fl = 1;
				} else if (cy == 'i') {
					fl = 16;
				} else if (cy == 'u') {
					fl = 2;
				} else if (cy == 'o') {
					fl = 4;
				} else {
					statustext = 'Unrecognized formatting specifier: ' + cy;
					return;
				}
				if (tg == '!') {
					if (tset != undefined) tagstyle = tset;
					tagstyle = tagstyle ^ fl;
				} else if (tg == '=') {
					if (tset == undefined) tset = 0;
					tset = tset + fl;
				} else if (tg == '+') {
					tadd |= fl;
				} else if (tg == '-') {
					tsub |= fl;
				}
			}
		}
		if (tset == undefined) {
			tagstyle = ((tagstyle | tadd) | tsub) ^ tsub;
		} else {
			tagstyle = tset;
		}
		// okay, we've set tagstyle
		if (i != 0) {
			// if this happened, then we were given a range(!)
			for (y = top; y <= bottom; y++) {
				if (file[y] == undefined) continue;
				tags[y] = _mxs(file[y].length, tagstyle);
			}
			tagstyle = otc;

		} else if (vselm) {
			term_select();
			term_vi_unset('d');
			term_vi_unset('y');
			term_vi_unset('c');
			term_vi_set('F');
			term_operate();
			tagstyle = otc;
		}


	} else if (cmd == 'g' || cmd == 'v') {
		// okay then
		var y;
		var ng = s.substr(i+1,(s.length-i)-1);
		if (cmd == 'v') ng = '!' + ng;
		for (y = 0; y < file.length; y++) {
			base = 0;
			cursory = y;
			term_command(ng);
		}

	} else if (cmd == 't' || cmd2 == 'co') {
		// copy- need address
		var t = s.substr(i, s.length-i).replace(/^[a-z]*[ ]*/);
		var x;
		yank_buffer = "";
		for (x = top; x <= bottom; x++) {
			if (file[x] != undefined) {
				yank_buffer += (file[x]) + "\n";
			}
		}
		var a = cursory;
		var b = base;
		base = 0;
		cursorx = 0;
		left = 0;
		cursory = _addr(t);
		if (cursory < 0) cursory = 0;
		term_paste(false, yank_buffer);
		cursory = a;
		base = b;

	} else if (cmd == 'm') {
		// move- need address
		i++;
		if (s.substr(i, 3) == 'ove') {
			i += 3;
		}
		var t = s.substr(i, s.length-i);
		yank_buffer = term_delete(top);
		while (top < bottom) {
			yank_buffer += term_delete(top);
			bottom--;
		}
		var a = cursory;
		var b = base;
		base = 0;
		cursorx = 0;
		left = 0;
		cursory = _addr(t);
		if (cursory < 0) cursory = 0;
		term_paste(false, yank_buffer);
		cursory = a;
		base = b;

	} else if (cmd == 's') {
		// substitute
		i++;
		// extract regex
		var q = s.substr(i,1);
		while (q == ' ') {
			i++;
			q = s.substr(i,1);
		}
		var sep = s.substr(i,1);
		i++;

		var lr, ls, lf;
		if (sep == '') {
			if (!lastsearch || !lastsubst) {
				statustext = 'No previous substitute regular expression';
				return;
			}
			lr = lastsearch.substr(1, lastsearch.length-1);
			ls = lastsubst;
			lf = lastflags;
		} else {
			var jj = i;
			var zj;
			for (; i < s.length; i++) {
				zj = s.substr(i,1);
				if (zj == "\\") {
					i++;
				} else if (zj == sep) {
					break;
				}
			}
			lastsearch = "/" + s.substr(jj, i-jj);
			registers["/"] = lastsearch.substr(1, lastsearch.length-1);
			i++; // sep
			jj=i;
			for (; i < s.length; i++) {
				zj = s.substr(i,1);
				if (zj == "\\") {
					i++;
				} else if (zj == sep) {
					break;
				}
			}
			lastsubst = s.substr(jj, i-jj);
			lastflags = '';
			i++;
			var count = -1;
			for (; i < s.length; i++) {
				zj = s.substr(i,1);
				if (zj == 'i' || zj == 'g') {
					lastflags += zj;
				} else {
					count = parseInt(s.substr(i,s.length-i));
					if (count > 0) {
						break;
					} else {
						statustext = "Trailing characters";
						return;
					}
				}
			}
			var re = new RegExp;
			re.compile(lastsearch.substr(1, lastsearch.length-1),
					(lastflags.indexOf('i') > -1) ? 'i' : '');
			var hit = false;
			for (i = top; i < bottom; i++) {
				var t = file[i];
				var g = tags[i];
				var aa;
				var st = t;
				aa = re.exec(t);
				if (!aa || aa.length == 0) continue;
				file[i] = '';
				tags[i] = '';
				// okay got a hit, do this vi style
				for (;;) {
					t = _rer(re,st,aa);
					var lt = _rel(re,st,aa);
					var lg = _resubst(lastsubst,aa);
					file[i] += lt + lg;
					tags[i] += g.substr(0, lt.length) + _zeros(lg.length);

					if (lastflags.indexOf('g') > -1) {
						st = t;
						aa = re.exec(t);
						if (aa && aa.length > 0) continue;
					}
					file[i] += t;
					tags[i] += g.substr(g.length - t.length, t.length);
					break;
				}
				hit = true;
				if (count > -1) {
					count--;
					if (count == 0) break;
				}
			}
			if (!hit) {
				statustext = 'Pattern not found: ' + lastsearch.substr(1, lastsearch.length-1);
			}
		}

	} else if (cmd == '' && ng.length > 0) {
		base = 0;
		cursory = top;
	} else {
		statustext = "Not an editor command: " + s.substr(i,s.length-i);
	}

}
function _resubst(s, aa) {
	var i;
	var out = '';
	for (i = 0; i < s.length; i++) {
		var zq = s.substr(i, 1);
		if (zq == "\\") {
			zq = s.substr(i, 2);
			if (zq == "\\1") {
				zq = aa[1];
			} else if (zq == "\\2") {
				zq = aa[2];
			} else if (zq == "\\3") {
				zq = aa[3];
			} else if (zq == "\\4") {
				zq = aa[4];
			} else if (zq == "\\5") {
				zq = aa[5];
			} else if (zq == "\\6") {
				zq = aa[6];
			} else if (zq == "\\7") {
				zq = aa[7];
			} else if (zq == "\\8") {
				zq = aa[8];
			} else if (zq == "\\9") {
				zq = aa[9];
			} else {
				zq = s.substr(i+1, 1);
			}
			i++;
		} else if (zq == "&") {
			zq = aa[0];
		}
		out += zq;
	}
	return out;
}
function _calcy(zx, x, g) {
	if (zx && cursor._lasty != cursory) {
		cursor._lasty = cursory;
		var nh = 0;
		while (zx && zx != document.body) {
			nh += zx.offsetTop;
			zx = zx.offsetParent;
		}
		cursor.style.top = nh + 'px';
	}

	var z = x.substr(cursorx, 1);
	var q = g.substr(cursorx, 1).charCodeAt(0);
	if (cursorx >= x.length || z == undefined || z == "\240" || z == '')
		z = ' ';
	
	if (cursor._lastch != z || cursor._lastgh != q) {
		if (z == ' ') {
			z = "\240";
			q = 0;
		}
		while (cursor.firstChild)
			cursor.removeChild(cursor.firstChild);
		cursor.appendChild(document.createTextNode(z));

		cursor._lastch = z;
		cursor._lastgh = q;

		if (q & 1) {
			cursor.style.fontWeight = 'bold';
		} else {
			cursor.style.fontWeight = 'normal';
		}
		if (q & 2) {
			cursor.style.textDecoration = 'underline';
		} else {
			cursor.style.textDecoration = 'none';
		}
		if (q & 16) {
			cursor.style.fontStyle = 'italic';
		} else {
			cursor.style.fontStyle = 'normal';
		}
	}
}
function term_calcy() {
	// fixup character inside... burrr
	var xx = file[cursory+base];
	var xg = tags[cursory+base];
	var zleft = left;
	if (cursory == (term_rows-1)) {
		xx = command + " ";
		zleft = commandleft;
		xg = _mxs(xx.length+1,0);
	}
	var gg = term.childNodes;
	if (gg.length > cursory) {
		gg = term.childNodes[cursory];
	} else {
		gg = undefined;
	}
	_calcy(gg, xx.substr(zleft, xx.length-zleft), xg.substr(zleft, xg.length-zleft));
}
function term_calcx() {
	if (cursorx != cursor._lastx) {
		cursor.style.left = (cursorx * (term_cur_width)) + 'px';
		cursor._lastx = cursorx;
		term_calcy();
	}
}
function term_scrollto() {

	var h = term_rows;
	var w = term_cols;
	var x = cursorx+left;
	var y = cursory+base;
	var t = file[y];

	if (command == '') h--;

	var ex = parseInt((w/8));
	if (ex < 4) ex = 4;
	var ey = parseInt((h/8));
	if (ey < 4) ey = 4;

	while (t == undefined && y > 0) {
		y--;
		t = file[y];
	}
	if (t == undefined) t = '';
	if (x >= t.length) {
		if (mode) x = t.length;
		else x = t.length-1;
	}
	if (x < 0) x = 0;
	if (y < 0) y = 0;

	if (x < left) {
		left = (x - ex);
		cursorx = ex;
		if (left < 0) {
			left = 0;
			cursorx = 0;
		}
	} else if (x >= left+w) {
		left = (x - w) + ex;
		cursorx = w - ex;
	} else {
		cursorx = x - left;
	}
	if (y < base) {
		base = (y - ey);
		cursory = ey;
		if (base < 0) {
			base = 0;
			cursory = 0;
		}
	} else if (y >= base+h) {
		base = ((y - h) + ey);
		cursory = (h - ey);
	} else {
		cursory = y - base;
	}
	term_calcx();
	term_calcy();
}

function term_insert(y, str) {
	var z = file.length;
	file[z] = '';
	tags[z] = '';
	var i;
	for (i = z; i > y; i--) {
		file[i] = (file[i-1]);
		tags[i] = (tags[i-1]);
	}
	file[y] = '';
	tags[y] = '';
}
function term_paste(after, ign) {
	if (ign != undefined) {
		yank_buffer = ign;
	} else {
		registers['.'] = lastinsert;
		registers[':'] = oldcommand;
		registers['%'] = "/tmp/mess4XbCXM";
		registers['#'] = "";
		yank_buffer = registers[lastreg];
	}
	if (yank_buffer == undefined) return false;
	if (yank_buffer.indexOf("\n") > -1) {
		// insert after this line
		if (after) cursory++;
		var nq = yank_buffer.split("\n");
		var nj;
		for (nj = 0; nj < nq.length; nj++) {
			if (nj == (nq.length-1)) {
				if (nq[nj] == undefined) break;
				if (nq[nj] == '') break;
				// handled specially
				var aa = _hra(nq[nj]);
				file[cursory+base+nj] = aa[0] + (file[cursory+base+nj]);
				tags[cursory+base+nj] = aa[1] + (tags[cursory+base+nj]);
				break;
			}
			term_insert(cursory+base+nj);
			var aa = _hra(nq[nj]);
			file[cursory+base+nj] = aa[0];
			tags[cursory+base+nj] = aa[1];
		}
	} else {
		var t = (file[cursory+base]);
		var g = (tags[cursory+base]);
		var aa = _hra(yank_buffer);
		if (after) cursorx++;
		file[cursory+base] = t.substr(0, cursorx+left)
			+ aa[0] + t.substr(cursorx+left, t.length-(cursorx+left));
		tags[cursory+base] = g.substr(0, cursorx+left)
			+ aa[1] + g.substr(cursorx+left, g.length-(cursorx+left));
	}
	return true;
}
function term_keyfix(e) {
	if (!e) e = window.event;

	var ch = e.keyCode;
	if (!ch) ch = e.which;

	if (e.DOM_VK_UP) {
		if (e.DOM_VK_UP == ch) ch = 57373;
		else if (e.DOM_VK_DOWN == ch) ch = 57374;
		else if (e.DOM_VK_LEFT == ch) ch = 57375;
		else if (e.DOM_VK_RIGHT == ch) ch = 57376;
	}

	if (ch == 8 || ch == 9 || ch == 37 || ch == 39
	|| ch == 38 || ch == 40 || ch == 127
	|| ch == 33 || ch == 34 || ch == 36
	|| ch == 35 || ch == 45 || ch == 46
	|| ch == 57373
	|| ch == 57374
	|| ch == 57375
	|| ch == 57376) {
		if (e.preventDefault) e.preventDefault();
		if (e.stopPropagation) e.stopPropagation();
		term_keypress_inner(e, true);
		e.cancelBubble=true;
		return false;
	} else {
		e.cancelBubble=false;
		return true;
	}

}
function term_keypress(e) {
	if (!e) e = window.event;
	if (e.preventDefault) e.preventDefault();
	if (e.stopPropagation) e.stopPropagation();
	if (suggest._visible) {
		suggest.style.display = 'none';
		suggest._visible = false;
	}
	e.cancelBubble=true;
	term_keypress_inner(e, false);
	return false;
}
function term_keypress_inner(e, synth) {
	var k = e.which;
	var kc;
	if (e.charCode) {
		if (e.charCode == 27 || e.charCode == 13 || e.charCode == 10
				|| e.charCode == 8
				|| e.charCode == 9) {
			k = e.charCode;
			kc = String.fromCharCode(e.charCode);
		} else if (e.charCode == 63232) {
			k = 57373;
		} else if (e.charCode == 63233) {
			k = 57374;
		} else if (e.charCode == 63234) {
			k = 57375;
		} else if (e.charCode == 63235) {
			k = 57376;
		} else {
			if (e.charCode == 191) return; // wtf?
			kc = String.fromCharCode(e.charCode);
			k = 0;
		}
	} else if (e.keyCode) {
		k = e.keyCode;
		if (e.DOM_VK_UP) {
			if (e.DOM_VK_UP == k) k = 57373;
			else if (e.DOM_VK_DOWN == k) k = 57374;
			else if (e.DOM_VK_LEFT == k) k = 57375;
			else if (e.DOM_VK_RIGHT == k) k = 57376;
		} else {
			kc = String.fromCharCode(e.keyCode);
		}
		if (k == 191) return; // unicode i think
	} else {
		if (!k || k == 191) return;
		kc = String.fromCharCode(k);
		var i;
	}
	var mod;
	if (e.modifiers) mod = e.modifiers; else mod = 0;
	var ctrl = e.ctrlKey | (mod & 2);
	var shift = e.shiftKey | (mod & 4);
	var meta = e.altKey | e.metaKey | (mod & 1);
	var lk = lastkey;
	lastkey = kc;

	if (kc == undefined) kc = '';

	if (!emacsen && mode == 0) {
		if (kc == 'U') {
			if ((base+cursory) == undoy) {
				var aa = _hra(undoline);
				file[undoy] = aa[0];
				tags[undoy] = aa[1];
			}
		} else if (kc == 'u' && undoset) {
			var z = term_freeze();
			term_thaw(undoset);
			undoset = z;
		}

		if (kc == 'u' || kc == 'U') {
			term_scrollto();
			term_redraw();
			lastkey = undefined;
			return;
		}
	}

	var fakemode = false;

	// emacsen
	if (emacsen && meta && (kc == 'x' || kc == 'X')) {
		kc = ':'
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 't' || kc == 'T')) {
		kc = '?'
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 's' || kc == 'S')) {
		kc = '/'
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 'k' || kc == 'K')) {
		term_command(':d');
		lastkey = undefined;
		return;
	} else if (emacsen && meta && (kc == 'd' || kc == 'D')) {
		kc = 'D';
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 'a' || kc == 'A')) {
		kc = '0';
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 'd' || kc == 'D')) {
		if (emacsen) {
			kc = 'x';
		} else {
			// err...
			if (!accum) accum=term_rows+1;
			cursory += parseInt(accum/2)+2;
			accum=0;
			term_scrollto();
			term_redraw();
			lk = undefined;
			lastkey = undefined;
			return;
		}
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 'g' || kc == 'G')) {
		term_command(':f');
		lastkey = undefined;
		return;
	} else if (ctrl && (kc == 'e' || kc == 'E')) {
		if (emacsen) {
			kc = '$';
		} else {
			if (!accum) accum = 1;
			cursory += accum;
			accum = 0;
			term_scrollto();
			term_redraw();
			lk = undefined;
			lastkey = undefined;
			return;
		}
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (emacsen && meta && (kc == 'b' || kc == 'B')) {
		kc = 'b';
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (emacsen && meta && (kc == 'l' || kc == 'L')) {
		kc = 'e';
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (emacsen && meta && (kc == 'f' || kc == 'F')) {
		kc = 'w';
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 'f' || kc == 'F')) {
		if (emacsen) {
			kc = 'l';
		} else {
			// vi pagedown
			if (!accum) accum = 0;
			cursory += (term_rows*accum);
			accum = 0;
			term_scrollto();
			term_redraw();
			lk = undefined;
			lastkey = undefined;
			return;
		}
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 'y' || kc == 'Y')) {
		if (emacsen) {
			term_command(':y');
			lastkey = undefined;
			return;
		} else {
			if (!accum) accum = 1;
			cursory -= accum;
			accum = 0;
			term_scrollto();
			term_redraw();
			lk = undefined;
			lastkey = undefined;
			return;
		}
	} else if (ctrl && (kc == 'l' || kc == 'L')) {
		term_redraw();
		lk = undefined;
		lastkey = undefined;
		return;
	} else if (ctrl && (kc == 'u' || kc == 'U')) {
		if (emacsen) {
			// emacs undo
			kc = 'u';
		} else {
			// vi pageup
			if (!accum) accum=term_rows+1;
			cursory -= parseInt(accum/2)+2;
			accum=0;
			term_scrollto();
			term_redraw();
			lk = undefined;
			lastkey = undefined;
			return;
		}
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	} else if (ctrl && (kc == 'w' || kc == 'W')) {
		// vim uses this for window control; this is actually useful
		fakemode = true;
		term_vi_set('d');
		kc = 'b';
		lk = undefined;
		lastkey = undefined;

	} else if (ctrl && (kc == 'b' || kc == 'B')) {
		if (emacsen) {
			kc = 'h';
		} else {
			// vi pageup
			if (!accum) accum=1;
			cursory -= (term_rows*accum);
			accum=0;
			term_scrollto();
			term_redraw();
			lk = undefined;
			lastkey = undefined;
			return;
		}
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
	}

	if (k >= 57373 && k <= 57376 && !synth) {
		// bail
		return
	} else if (!synth && (k < 57373 || k > 57376)) {
		// no touching...
	} else if (k == 31 || k == 40 || k == 57374) { // down
		if (!synth) return;
		fakemode = true;
		kc = 'j';
		lk = undefined;
		lastkey = undefined;
	} else if (k == 30 || k == 38 || k == 57373) { // up
		if (!synth) return;
		fakemode = true;
		kc = 'k';
		lk = undefined;
		lastkey = undefined;
	} else if (k == 28 || k == 37 || k == 57375) { // left
		if (!synth) return;
		fakemode = true;
		kc = ctrl ? 'B' : 'h';
		lk = undefined;
		lastkey = undefined;
	} else if (k == 29 || k == 39 || k == 57376) { // right
		if (!synth) return;
		fakemode = true;
		kc = ctrl ? 'W' : 'l';
		lk = undefined;
		lastkey = undefined;
	} else if (k == 33) { // pageup
		cursory -= term_rows;
		term_scrollto();
		term_redraw();
		lk = undefined;
		lastkey = undefined;
		return;
	} else if (k == 34) { // pagedown
		cursory += term_rows;
		term_scrollto();
		term_redraw();
		lk = undefined;
		lastkey = undefined;
		return;
	} else if (k == 36) { // home
		if (ctrl) {
			lk = 'g';
			kc = 'g';
		} else {
			kc = '0';
		}
		fakemode = true;
		lk = undefined;
		lastkey = undefined;
		accum = 0;
	} else if (k == 35) { // end
		fakemode = true;
		accum = 0;
		if (ctrl) {
			kc = 'G';
		} else {
			kc = '$';
		}
		lk = undefined;
		lastkey = undefined;
	} else if (k == 45) { // insert
		fakemode = true;
		if (mode == 1) {
			mode = 2;
		} else if (mode == 2) {
			mode = 1;
		} else {
			term_setmode(1);
		}
		lk = undefined;
		lastkey = undefined;
		term_redraw();
		return;
	} else if (k == 46) { // delete
		fakemode = true;
		kc = 'x';
		lk = undefined;
		lastkey = undefined;
	} else if (synth && k != 8) {
		return;
	}

	term_save_undo_line();

	if (fakemode || mode == 0) {
		if (!fakemode && ctrl) return;
		if (lk == 'F' || lk == 'T' || lk == 'f' || lk == 't') {
			vi_ft_reg = kc;
			if (lk == 'F') {
				term_ex_motion = term_vi_ff;
			} else if (lk == 'T') {
				term_ex_motion = term_vi_tt;
			} else if (lk == 'f') {
				term_ex_motion = term_vi_f;
			} else if (lk == 't') {
				term_ex_motion = term_vi_t;
			}
			term_operate();
			lastkey = undefined;
			term_scrollto();
			term_redraw();
			_update_backing();
			return;
		} else if (lk == 'm') {
			// set mark
			marks[kc] = cursory+base;
			lastkey = undefined;
			accum = 0;
			return;

		} else if (lk == "'") {
			term_ex_motion = function() {
				cursory = marks[kc];
				base = 0;
				term_scrollto();
				term_redraw();
				return true;
			};
			if (!accum) accum = 1;
			term_operate();
			return;

		} else if (lk == '"') {
			// set last register
			lastreg = kc;
			lastkey = undefined;
			accum = 0;
			return;

		} else if (lk == 'r') {
			var p = cursorx + left;
			var t = (file[cursory+base]);
			if (!accum) accum = 1;
			var ng = '';
			var i;
			for (i = 0; i < accum; i++) ng += kc;
			term_save_undo();
			file[cursory+base] = (t.substr(0, p))
				+ (ng) + (t.substr(p+accum, t.length-(p+accum)));
			// tags remains unchanged (same length)
			accum = 0;
			lastkey = undefined;
			term_scrollto();
			term_redraw();
			_update_backing();
			_term_update_printer();
			return;
		}

		if (kc == ':' || kc == '/' || kc == '?') {
			command = kc;
			commandleft = 0;
			savex = cursorx;
			savey = cursory;
			cursorx = 1;
			cursory = term_rows-1;
			mode=1;
			term_redraw();
			term_calcx();
			return;
		} else if (kc == "'") {
			// jump to mark (ick)
		} else if (kc == '"') {
			// do nothing for now

		} else if (kc == '.') {
			term_vi_set(lastcommand);
			term_ex_motion = lastmotion;
			term_operate();

		} else if (kc == '$') {
			term_ex_motion = term_vi_eol;
			term_operate();

		} else if (kc == '%') {
			if (accum <= 0) {
				term_ex_motion = term_vi_bounce;
				term_operate();
			} else if (file.length > 0) {
				base = 0;
				cursorx = 0;
				left = 0;
				cursory = parseInt(accum * (term_rows / (file.length+1.0)));
				accum = 0;
			}

		} else if (kc == '0') {
			if (accum) {
				accum *= 10;
			} else {
				cursorx = 0;
				left = 0;
			}
		} else if (kc == '1') {
			accum *= 10; accum++;
		} else if (kc == '2') {
			accum *= 10; accum += 2;
		} else if (kc == '3') {
			accum *= 10; accum += 3;
		} else if (kc == '4') {
			accum *= 10; accum += 4;
		} else if (kc == '5') {
			accum *= 10; accum += 5;
		} else if (kc == '6') {
			accum *= 10; accum += 6;
		} else if (kc == '7') {
			accum *= 10; accum += 7;
		} else if (kc == '8') {
			accum *= 10; accum += 8;
		} else if (kc == '9') {
			accum *= 10; accum += 9;
		} else if (kc == 'A') {
			var t = (file[cursory+base]);
			cursorx = t.length; // will be fixed up...
			term_setmode(1);
			term_save_undo();
		} else if (kc == 'a') {
			term_setmode(1);
			cursorx++;
			term_save_undo();
		} else if (kc == 'B') {
			term_ex_motion = term_vi_bb;
			term_operate();
		} else if (kc == 'b') {
			term_ex_motion = term_vi_b;
			term_operate();
		} else if (kc == 'c') {
			if (term_vi_flag('c')) {
				term_vi_set('d');
				term_vi_unset('c');
				savex = cursorx+left;
				savey = cursory+base;
				cursorx = 0; left = 0;
				term_ex_motion = term_vi_line;
				term_operate();
				cursorx = savex-left;
				cursory = savey-base;
				term_setmode(1);
			} else {
				term_vi_set('c');
			}
		} else if (kc == 'C') {
			term_ex_motion = term_vi_eol;
			term_vi_set('d');
			term_operate();
			term_setmode(1);
		} else if (kc == 'D') {
			term_ex_motion = term_vi_eol;
			term_vi_set('d');
			term_operate();
		} else if (kc == 'd') {
			if (vselm) {
				term_vi_set('d');
				term_vi_unset('y');
				term_select();
				term_operate();
				vselm = 0;
			} else if (term_vi_flag('d')) {
				accum++;
				savex = cursorx+left;
				savey = cursory+base;
				cursorx = 0; left = 0;
				term_ex_motion = term_vi_line;
				term_operate();
				cursorx = savex-left;
				cursory = savey-base;
			} else {
				term_vi_set('d');
				term_vi_unset('y');
			}
		} else if (kc == '>' || kc == '<') {
			if (vselm) {
				term_vi_unset('<');
				term_vi_unset('>');
				term_vi_set(kc);
				term_vi_unset('d');
				term_vi_unset('y');
				term_operate();
				vselm = 0;
			} else if (term_vi_flag(kc)) {
				accum++;
				savex = cursorx+left;
				savey = cursory+base;
				cursorx = 0; left = 0;
				term_ex_motion = term_vi_line;
				term_operate();
				cursorx = savex-left;
				cursory = savey-base;
				term_vi_unset('<');
				term_vi_unset('>');
			} else {
				term_vi_unset('<');
				term_vi_unset('>');
				term_vi_set(kc);
				term_vi_unset('d');
				term_vi_unset('y');
			}

		} else if (kc == 'E') {
			term_ex_motion = term_vi_ee;
			term_operate();
		} else if (kc == 'e') {
			term_ex_motion = term_vi_e;
			term_operate();

		} else if (kc == 'F' || kc == 'f') {
			// does nothing here
		} else if (kc == 'G') {
			term_ex_motion = term_vi_eof;
			term_operate();

		} else if (kc == 'g' && lk == 'g') {
			term_ex_motion = term_vi_top;
			term_operate();

		} else if (kc == 'H') {
			term_ex_motion = term_vi_hh;
			term_operate();

		} else if (kc == 'h') {
			term_ex_motion = term_vi_h;
			term_operate();

		} else if (kc == 'I') {
			term_save_undo();
			if (vselm) {
				term_vi_set('d');
				term_vi_unset('y');
				term_select();
				term_operate();
				vselm = 0;
			}
			term_setmode(1);
			cursorx = 0;
			left = 0;
		} else if (kc == 'i') {
			term_save_undo();
			if (vselm) {
				term_vi_set('d');
				term_vi_unset('y');
				term_select();
				term_operate();
				vselm = 0;
			}
			term_setmode(1);
		} else if (kc == 'J') {
			term_save_undo();
			term_justify();
		} else if (kc == 'j') {
			term_ex_motion = term_vi_j;
			term_operate();
		} else if (kc == 'K') {
			// err..
		} else if (kc == 'k') {
			term_ex_motion = term_vi_k;
			term_operate();
		} else if (kc == 'L') {
			term_ex_motion = term_vi_ll;
			term_operate();
		} else if (kc == 'l') {
			term_ex_motion = term_vi_l;
			term_operate();
		} else if (kc == 'M') {
			term_ex_motion = term_vi_mm;
			term_operate();
		} else if (kc == 'm') {
			// set mark
		} else if (kc == 'N') {
			if (lastsearch == '') {
				statustext = 'No previous regular expression';
			} else {
				if (!accum) accum = 1;
				var sl = lastsearch;
				var cx = lastsearch.substr(0, 1);
				cx = (cx == '?') ? '/' : '?';
				var i;
				for (i = 0; i < accum; i++) {
					term_command(cx+(sl.substr(1, sl.length-1)));
				}
				lastsearch = sl;
				accum = 0;
			}
		} else if (kc == 'n') {
			if (lastsearch == '') {
				statustext = 'No previous regular expression';
			} else {
				if (!accum) accum = 1;
				var i;
				for (i = 0; i < accum; i++)
					term_command(lastsearch);
				accum = 0;
			}
		} else if (kc == 'O') {
			cursorx = 0;
			left = 0;
			term_insert(cursory+base);
			term_setmode(1);
		} else if (kc == 'o') {
			cursory++;
			cursorx = 0;
			left = 0;
			term_insert(cursory+base);
			term_setmode(1);
			term_save_undo();
		} else if (kc == 'P' || kc == 'p') {
			term_save_undo();
			term_paste(kc == 'P' ? false : true);
			accum = 0;

		} else if (kc == 'R') {
			term_save_undo();
			if (vselm) {
				term_vi_set('d');
				term_vi_unset('y');
				term_select();
				term_operate();
				vselm = 0;
			}
			term_setmode(2);

		} else if (kc == 'S') {
			term_vi_set('d');
			term_vi_unset('c');
			savex = cursorx+left;
			savey = cursory+base;
			cursorx = 0; left = 0;
			term_ex_motion = term_vi_line;
			term_operate();
			cursorx = savex-left;
			cursory = savey-base;
			term_setmode(1);

		} else if (kc == 's') {
			term_vi_set('d');
			term_vi_unset('c');
			savex = cursorx+left;
			savey = cursory+base;
			term_ex_motion = term_vi_l;
			term_operate();
			cursorx = savex-left;
			cursory = savey-base;
			term_setmode(1);

		} else if (kc == 'T' || kc == 't') {
			// nothing here
		} else if (kc == 'V' || kc == 'v') {
			if (vselm) {
				vselm = 0;
				vselx = undefined;
				vsely = undefined;
			} else {
				vselm = (kc == 'v') ? 1 : 2;
				vselx = cursorx+left;
				vsely = cursory+base;
			}

		} else if (kc == 'W') {
			term_ex_motion = term_vi_ww;
			term_operate();
		} else if (kc == '{') {
			term_ex_motion = term_vi_ob;
			term_operate();
		} else if (kc == '}') {
			term_ex_motion = term_vi_cb;
			term_operate();
		} else if (kc == 'w') {
			term_ex_motion = term_vi_w;
			term_operate();
		} else if (kc == 'x' || kc == 'X') {
			if (term_vi_set('d')) {
				term_vi_unset('d');
			} else {
				term_vi_set('d');
				if (kc == 'x') {
					term_ex_motion = term_vi_l;
				} else {
					term_ex_motion = term_vi_h;
				}
				term_operate();
			}
		} else if (kc == 'y') {
			if (vselm) {
				term_vi_set('y');
				term_vi_unset('d');
				term_select();
				term_operate();
				vselm = 0;
			} else if (term_vi_flag('y')) {
				accum++;
				savex = cursorx+left;
				savey = cursory+base;
				cursorx = 0; left = 0;
				term_ex_motion = term_vi_line;
				term_operate();
				cursorx = savex-left;
				cursory = savey-base;
			} else {
				term_vi_set('y');
				term_vi_unset('d');
			}
		} else if (kc ==  'Z' && lk == 'Z') {
			editor_disable(true);
			accum = 0;
		} else if (k == 27 || (k == 91 && ctrl)) { // escape or ^[
			vselm = 0;
			statustext = '';
			mode = 0;
		} else {
			accum = 0;
		}
		term_scrollto();
	} else if ((k == 27 || (k == 91 && ctrl))) { // escape or ^[
		vselm = 0;
		statustext = '';
		if (command != '') {
			cursorx = savex;
			cursory = savey;
		} else {
			if (mode) _term_update_printer();
			if (accum > 1) {
				var i, j;
				j = lastreg;
				lastreg = '.';
				for (i = 1; i < accum; i++) {
					term_paste(false);
				}
				lastreg = j;
				accum = 0;
			}
			cursorx--;
			term_scrollto();
		}
		mode = emacsen ? 1 : 0;
		command = '';
		commandleft = 0;
	} else if (command != '') {
		if (k == 10 || k == 13) {
			// cr and execute command
			cursorx = savex;
			cursory = savey;
			if (emacsen) {
				mode = 1;
			} else {
				mode = 0;
			}
			var cy = command;

			command = '';
			commandleft = 0;

			term_command(cy);
			var cx = command.substr(0,1);
			if (cx == '/' || cx == '?') lastsearch = cy;
			else oldcommand = cy;
			// incase its needed
			term_scrollto();
		} else if (k == 8) {
			if (!synth) return;
			command = command.substr(command, command.length-1);
			cursorx--;
			if (cursorx <= 0) {
				var w = term_cols;
				commandleft -= (w-16);
				cursorx = w - 8;
				if (commandleft < 0) {
					cursorx = savex;
					cursory = savey;
					if (emacsen) {
						mode = 1;
					} else {
						mode = 0;
					}
				}
			}
		} else {
			command = command + kc;
			cursorx++;
			var w = term_cols;
			if (cursorx >= (w-8)) {
				cursorx = 8;
				commandleft += w-16;
			}
		}
		term_redraw();
		term_calcx();
		_update_backing();
		return;
	} else {
		var t = (file[cursory+base]);
		var lx = (t.substr(0, cursorx+left));
		var ly = (t.substr(cursorx+left+(mode-1)));
		var lz = (t.substr(cursorx+left));
		var g = (tags[cursory+base]);
		var gx = (g.substr(0, cursorx+left));
		var gy = (g.substr(cursorx+left+(mode-1)));
		var gz = (g.substr(cursorx+left));
		if (!lx) lx = '';
		if (k == 9) kc = '        ';
		if (k == 10 || k == 13) {
			// CR
			if (!lz) lz = '';
			file[cursory+base] = lx;
			tags[cursory+base] = gx;
			cursory++;
			cursorx=0;
			left=0;
			term_insert(cursory+base);
			file[cursory+base] = lz;
			tags[cursory+base] = gz;
			lastinsert += "\n";
		} else if (k == 8) {
			if (!synth) return;
			// backspace
			file[cursory+base] = lx.substr(0,lx.length-1)+lz;
			tags[cursory+base] = gx.substr(0,lx.length-1)+gz;
			lastinsert = lastinsert.substr(0,lastinsert.length-1);
			cursorx--;
		} else {
			if (kc == '') return;
			file[cursory+base] = lx+kc+ly;
			tags[cursory+base] = gx+String.fromCharCode(tagstyle)+gy;
			lastinsert += kc;
			cursorx+=kc.length;
		}
		term_scrollto();
	}

	term_redraw();
	_update_backing();
	return;
}

function _redraw_cursor() {
	term_draw_cursor(true);
	_update_backing();
}

function term_draw_cursor(tf) {
	// maybe use vertical bar if mode==1 hrm?
	if (!tf || !cursor._opaque) {
		cursor._opaque = true;
		cursor.style.color = palette[1];
		cursor.style.backgroundColor = palette[0];
	} else {
		cursor._opaque = false;
		cursor.style.color = palette[0];
		cursor.style.backgroundColor = palette[1];
	}
}

function _redraw_term_force() {
	while (term.firstChild) term.removeChild(term.firstChild);
}
function _redraw_term() {

	var h = term_rows;
	var w = term_cols;

	var ka, kb;
	var tospell = 0;
	var osp = '';
	var y;
	var tago = new Array();
	var isurl = new Array();
	var ca, cb;
	var sa, sb;
	var qp;
	if (vselm) {
		sa = vsely-base;
		sb = cursory;
		if (sa > sb) {
			zx = sa;
			sa = sb;
			sb = zx;
		}
		ca = vselx-left;
		cb = cursorx;
		if (ca > cb) {
			zx = ca;
			ca = cb;
			cb = zx;
		}
	}
	for (y = 0; y < h; y++) {
		ka = ''; kb = '';
		var x = file[y+base];
		var g;

		var zleft = 0;
		var cx;
		var j, vj;
		if (y == (h-1)) {
			if (cursory == y) {
				zleft = commandleft;
				x = command;
				cx = 0;
				statustext = '';
			} else if (emacsen) {
				x = '[' + (mode == 1 ? 'Ins' : 'Ovr') + '] ' + statustext;
				while (x.length < w) {
					x += ' ';
				}
				cx = 4;
			} else if (vselm == 1) {
				cx = 1; x = '-- VISUAL --';
				statustext = '';
			} else if (vselm == 2) {
				cx = 1; x = '-- VISUAL LINE --';
				statustext = '';
			} else if (mode == 0) {
				x = statustext; 
				cx = 16;
			} else if (mode == 1) {
				cx = 1; x = '-- INSERT --';
				statustext = '';
			} else if (mode == 2) {
				cx = 1; x = '-- REPLACE --';
				statustext = '';
			}
			g = _mxs(x.length, cx);
		} else if (x == undefined) {
			x = '~';
			g = "\010";
		} else {
			zleft = left;
			g = tags[y+base];
			// do spellchecking
			var p = 0;
			vj = x.split(/[ ,;]+/);
			for (j = 0; j < vj.length; j++) {
				var vx = vj[j];
				var vm = _word(vx);
				if (j != 0) p++;

				if (vx.match(/^(https?|ftp):\/\//)) {
					g = g.substr(0, p)
						+ _mxo(g.substr(p, vx.length), ((1+tago.length)*256))
						+ g.substr(p+vx.length);
					isurl[tago.length] = true;
					tago[tago.length] = vx;

				} else if (brokenwords[vm] && !safewords[vm]) {
					g = g.substr(0, p)
						+ _mxo(g.substr(p, vx.length), ((1+tago.length)*256))
						+ g.substr(p+vx.length);
					isurl[tago.length] = false;
					tago[tago.length] = vx;
				} else {
					if (vm.length > 3 && !_safe(vm) && !safewords[vm] && !spelling) {
						tospell++;
						osp += escape("c"+tospell) + "="
							+ escape(vm) + "&";
						spellcheck[tospell] = vm;
					}
				}
				p += vx.length;
			}
		}
		if (x == undefined) {
			x = '';
			g = '';
		}

		var zx;
		vx = 0;

		// truncate as necessary
		x = x.substr(zleft, x.length-zleft);
		g = g.substr(zleft, g.length-zleft);
		if (x.length >= w) {
			x = x.substr(0, w);
			g = g.substr(0, w);
		}

		if (vselm) {
			if (vselm == 1 && sa == sb && sa == y) {
				// middle of line between ca->cb is selected
				g = g.substr(0,ca) + _mxo(g.substr(ca,(cb-ca)+1), 4) + g.substr(cb,(g.length-cb)-1);
			} else if ((sa < y && sb > y) || (vselm == 2 && (sa <= y && sb >= y))) {
				// entire line selected
				g = _mxo(g, 4);
			} else if (sa < y && sb == y) {
				// beginning of line selected (up to q)
				// if (sb is cursory) then q = cursorx otherwise vselx
				qp = (sb == cursory) ? cursorx : (vselx-left);
				g = _mxo(g.substr(0, qp+1), 4) + g.substr(qp, (g.length-qp)-1);
			} else if (sa == y && sb > y) {
				// end of line selected (beginning at q)
				// if (sa is cursory) then q = cursorx otherwise vselx
				qp = (sa == cursory) ? cursorx : (vselx-left);
				g = g.substr(0, qp) + _mxo(g.substr(qp, g.length-qp), 4);
			}
		}

		vj = 0;
		g += "\377"; // terminate
		x += " ";
		x = x.replace(/ /g, "\240");

		if (term.childNodes.length > y) {
			zx = term.childNodes[y];
			if (zx._cachex == x && zx._cacheg == g) {
				if (y == cursory) _calcy(zx, x, g);
				continue;
			}

			// as a last ditch effort- to accelerate deletions...
			// and inserts...
			if (term.childNodes.length > (y+1)) {
				var zy = term.childNodes[y+1];
				if (zy._cachex == x && zy._cacheg == g) {
					// okay then, so the NEXT line is the winner
					// copy its nodes
					term.removeChild(zy);
					term.replaceChild(zy, zx);
					if (zy.nextSibling) {
						term.insertBefore(zx, zy.nextSibling);
					} else {
						term.appendChild(zx);
					}
					if (y == cursory) _calcy(zy, x, g);
					continue;
				}
			}

			// update
			while (zx.firstChild) zx.removeChild(zx.firstChild);
		} else {
			zx = document.createElement('PRE');
			zx.style.display='block';
			zx.style.fontFamily = 'monospace';
			zx.style.fontSize = '100%';
			_zmp(zx);
			zx.style.marginBottom = '1px';
		}

		cx = 255;
		var ax = zx;

		for (j = 0; j < x.length; j++) {
			var gx = g.charCodeAt(j);

			if (gx != cx) {
				if (j != vj && ax) {
					var t = x.substr(vj, (j-vj));
					if (!t) t  = '';
					ax.appendChild(document.createTextNode(t));
					if (zx != ax) zx.appendChild(ax);
					vj = j;
				}

				if (gx > 255) {
					var wx = parseInt(gx / 256)-1;

					ax = document.createElement('A');
					if (isurl[wx]) {
						ax.style.borderBottom = '1px double blue';
						ax.href = tago[wx];
						ax.target = '_new';
						ax.ondblclick = _openurl;
					} else {
						ax.style.borderBottom = '1px dashed red';
						ax.href = 'javascript:void(0)';
						ax.ondblclick = _suggest;
					}
					ax._term = _word(tago[wx]);
					ax._len = tago[wx].length;
					ax._row = y+base;
					ax._col = j+zleft;
					ax.onclick = _subclick;
				} else {
					ax = document.createElement('SPAN');
				}
				if (gx == 255) gx = 0;
				if (gx & 1) {
					ax.style.fontWeight = 'bold';
				} else {
					ax.style.fontWeight = 'normal';
				}
				if (gx & 2) {
					ax.style.textDecoration = 'underline';
				} else {
					ax.style.textDecoration = 'none';
				}
				if (gx & 4) { // reverse video
					ax.style.color = palette[1];
					ax.style.backgroundColor = palette[0];
				} else {
					ax.style.color = palette[0];
					ax.style.backgroundColor = palette[1];
				}
				if (gx & 8) { // unselectable
					ax.unselectable = true;
					if (ax.setAttribute) ax.setAttribute('unselectable', 'on');
					ax.style.color = palette[0];
					ax.style.backgroundColor = palette[1];
					ax.style.userSelect = 'none';
					ax.style['-moz-user-select'] = 'none';
				}
				if (gx & 16) {
					ax.style.fontStyle = 'italic';
				} else {
					ax.style.fontStyle = 'normal';
				}
				cx = gx;
			}
		}
		if (j != vj) {
			var t = x.substr(vj, (j-vj)-1);
			ax.appendChild(document.createTextNode(t));
			if (zx != ax) zx.appendChild(ax);
			vj = j;
		}
		ax.appendChild(document.createTextNode("\240"));
		zx._cachex = x;
		zx._cacheg = g;
		if (term.childNodes.length <= y) {
			term.appendChild(zx);
		}

		if (y == 1) {
			var qx = zx;
			var nh = 0;
			while (qx && qx != document.body) {
				nh  += qx.offsetTop;
				qx = qx.offsetParent;
			}
			if (nh != line_height) {
				line_height = nh;
				term_resize();
			}
		}

		if (y == cursory) {
			_calcy(zx, x, g);
		}

		ax = undefined; // break;
	}
	while (term.childNodes.length > h) {
		term.removeChild(term.lastChild);
	}
	zx = undefined; // break

	if (!spelling && tospell > 0) {
		spelling = true;
		var xh = _xhttp();
		osp=osp.substr(0,osp.length-1);
		xh.open("GET", "spell.cgi?"+osp, true);
		xh.onreadystatechange = function() {
			if (xh.readyState == 4) {
				var j;
				var a = xh.responseText.split("\n");
				for (j = 0; j < a.length; j++) {
					var kp = a[j].split("=", 2);
					var k, v;
					if (kp.length == 2) {
						k = kp[0];
						v = kp[1];
					} else if (kp.length == 1) {
						k = kp[0];
						v = '';
					} else {
						k = a[j];
						v = '';
					}
					if (k.substr(0,1) != 'c') continue;
					k = k.substr(1, k.length-1);
					var term = spellcheck[k];
					if (v == undefined || v == '') {
						brokenwords[term] = true;
						suggestions[term] = new Array();
					} else if (v == term) {
						safewords[term] = true;
					} else {
						safewords[v] = true;
						if (!suggestions[term]) {
							suggestions[term] = new Array();
						}
						suggestions[term][ suggestions[term].length ] = v;
						brokenwords[term] = true;
					}
				}
				spelling=false;
				window.setTimeout(term_redraw,10);
				xh = undefined; // break (deferred)
			}
		};
		xh.send(undefined);
	}
	if (cursory == (h-1)) {
		tools.style.display = 'none';
	} else {
		tools.style.display = 'block';
	}
	_update_backing();
}

function _redraw_term_back() {
	drawiv = undefined;
	_redraw_term();
	term_draw_cursor();
}
function term_redraw() {
	if (drawiv) window.clearTimeout(drawiv);
	drawiv = window.setTimeout(_redraw_term_back, 10);
}

function term_resize() {
	var h = term.offsetHeight;
	var r = line_height;
	if (!line_height) r = cursor.offsetHeight-1; // 1 px overlap
	var nh = (h/r);
	term_rows = parseInt(nh);
	term_win_height = h;
	
	h = term.offsetWidth;
	r = (term_cur_width+1); // 1 px padding
	nh = (h/r);
	term_cols = parseInt(nh);
	term_win_width = h;

	term_redraw();
}
function editor_disable(sav) {
	if (cursoriv) {
		window.clearInterval(cursoriv);
		cursoriv = undefined;
	}

	_cbrestore();

	if (term._formelement) {
		if (sav) term._formelement.value = term_freeze();

		// disconnect
		term._formelement = undefined;
	}

	if (backing.removeEventListener) {
		backing.removeEventListener('DOMAttrModified',_backing_paste,false);
		backing.removeEventListener('Input',_backing_paste,false);
		backing.removeEventListener('input',_backing_paste,false);
	}
	backing.oninput = undefined;
	backing.onInput = undefined;

	document.body.removeChild(suggest);
	document.body.removeChild(term);
	document.body.removeChild(printer);
	document.body.removeChild(tools);
	document.body.removeChild(cursor);

	var z;
	for (z = document.body.firstChild; z; z = z.nextSibling) {
		if (z.tagName && z._flipe) z.style.display = z._orige;
	}

	// bug in firefox: can't remove this
	//document.body.removeChild(backing);
	if (backing.blur) backing.blur();
	backing.style.display = 'none';
	if (document.body.focus) document.body.focus();
	if (document.focus) document.focus();

	document.body.style.overflow = '';
}
function _cursor_fix() {
	term_cur_width = cursor.offsetWidth;
}
function _zmp(o) {
	o.style.marginTop='0px';
	o.style.marginLeft='0px';
	o.style.marginRight='0px';
	o.style.marginBottom='0px';
	o.style.paddingTop='0px';
	o.style.paddingLeft='0px';
	o.style.paddingRight='0px';
	o.style.paddingBottom='0px';
}
function editor(t) {
	if (term && term._formelement && term._formelement != t) {
		editor_disable(false);
	}

	// okay, find EVERYTHING inside body and display none it
	var z;
	for (z = document.body.firstChild; z; z = z.nextSibling) {
		if (z.tagName) {
			z._orige = z.style.display;
			z._flipe = true;
			z.style.display = 'none';
		}
	}

	if (!term) {
		term = document.createElement('DIV');
		printer = document.createElement('DIV');
		suggest = document.createElement('DIV');
		backing = document.createElement('TEXTAREA');
		tools = document.createElement('DIV');
		cursor = document.createElement('DIV');
	}

//	if (document.documentElement) {
//		_zmp(document.documentElement);
//		document.documentElement.height = '100%';
//		_zmp(document.body);
//		document.body.height = '100%';
//	}

	printer.className = 'print';
	cursor.className = 'editorcursor';
	term.className = 'editor';

	suggest.style.position = 'absolute';
	suggest.style.display = 'none';

	backing.tabIndex = -1;
	backing.style.position = 'absolute';
	backing.style.bottom = '0px';
	backing.style.right = '0px';
	backing.style.width = '1px';
	backing.style.height = '1px';
	backing.style.visibility = 'hidden';
	backing.oninput = _backing_paste;
	backing.onInput = _backing_paste;
	if (backing.addEventListener) {
		backing.addEventListener('DOMAttrModified',_backing_paste,false);
		backing.addEventListener('Input',_backing_paste,false);
		backing.addEventListener('input',_backing_paste,false);
	}
	if (window.addEventListener) {
		window.addEventListener('DOMMouseScroll',_mousescroll,false);
	}
	tools.className = 'editortools';
	tools.style.position = 'absolute';
	tools.style.right = '0px';
	tools.style.bottom = '0px';
	tools.innerHTML = ''
		+ '<input tabindex="-1" type="button" value="B" style="font-weight:bold;" onClick="term_command(\':F!b\');" />'
		+ '<input tabindex="-1" type="button" value="I" style="font-style:italic;" onClick="term_command(\':F!i\');" />'
		+ '<input tabindex="-1" type="button" value="U" style="text-decoration:underline;" onClick="term_command(\':F!u\');" />'
		+ '&nbsp;'
		+ '<input tabindex="-1" type="button" value="Print" onClick="term_command(\':ha\');" />'
		+ '&nbsp;'
		+ '<input tabindex="-1" type="button" value="Abort" onClick="term_command(\':q?\');" />'
		+ '<input tabindex="-1" type="button" value="Save and Close" onClick="term_command(\':wq\');" />'
	cursor.onclick = _pass_click;
	cursor.ondblclick = _pass_dblclick;

	document.body.appendChild(suggest);
	document.body.appendChild(term);
	document.body.appendChild(printer);
	document.body.appendChild(tools);
	// firefox bug
	if (once) document.body.appendChild(backing);
	document.body.appendChild(cursor);

	cursoriv = window.setInterval(_redraw_cursor, 300);

	term.style.position = 'absolute';
	term.style.top = '0px';
	term.style.left = '0px';
	term.style.display = 'block';
	term.style.overflow = 'hidden';
	term.style.width = '100%';
	term.style.height = '100%';
	term.style.cursor = 'default';
	term.style.fontFamily = 'monospace';
	term.style.fontSize = '100%';
	_zmp(term);
	term._formelement = t;
	document.body.style.overflow = 'hidden';
	tools.style.display = 'block';

	_cbd('select', _cancel_ev);
	_cbd('selectstart', _cancel_ev);
	_cbd('keydown', term_keyfix);
	_cbd('keypress', term_keypress);
	_cbd('paste', _msie_paste);
	_cbd('click', _mouseclick);
	_cbd('mousedown', _mousedown);
	_cbd('mousemove', _mousemove);
	_cbd('mouseup', _mouseup);
	_cbd('mousewheel', _mousescroll);

	vselm = 0;
	vseld = false;
	vselx = undefined;
	vsely = undefined;

	t.blur();
	cursorx = 0;
	cursory = 0;
	cursor.style.position = 'absolute';
	cursor.style.top = 0;
	cursor.style.left = 0;
	cursor.style.fontFamily = 'monospace';
	cursor.style.fontSize = '100%';
	cursor.style.width = 'auto';
	cursor.style.cursor = 'default';
	_zmp(cursor);
	cursor.style.overflow = 'hidden';
	cursor.innerHTML = 'X';
	cursor._opaque = false;
	cursor._lasty = -1;
	cursor._lastx = -1;
	cursor._lastch = '-xyz-';
	cursor._lastgh = 0;
	palette = undefined;

	if (document.defaultView && document.defaultView.getComputedStyle) {
		palette = new Array();
		var cs = document.defaultView.getComputedStyle(term, null);
		palette[0] = cs.color;
		palette[1] = cs.backgroundColor;
	} else if (window.getComputedStyle) {
		palette = new Array();
		var cs = window.getComputedStyle(term, null);
		palette[0] = cs.color;
		palette[1] = cs.backgroundColor;
	} else if (term.currentStyle) {
		palette = new Array();
		palette[0] = term.currentStyle.color;
		palette[1] = term.currentStyle.backgroundColor;
	}

	if (emacsen) {
		mode = 1;
	} else {
		mode = 0;
	}

	once = false;

	backing._lastvalue = '';
	backing.value = '';
	backing.defaultValue = '';
	suggest._visible = false;
	suggest.display = 'none';

	tools.style.backgroundColor = palette[0];
	_dfx(tools);

	// degrading...
	file = new Array();
	tags = new Array();
	var st = t.value.split("\n");
	var j;
	for (j = 0; j < st.length; j++) {
		if (st[j].substr(st[j].length-1, 1) == "\r") {
			st[j] = st[j].substr(0, st[j].length-1);
		}
		var aa = _hra(st[j]);
		file[j] = aa[0];
		tags[j] = aa[1];
	}
	// fix
	t.value = term_freeze();
	_term_update_printer();

	cursor.style.display = 'inline';
	_cursor_fix();
	window.setTimeout(term_redraw,1);
	term_resize();

	_cbw('resize', term_resize);
	_cbw('beforeprint', _term_update_printer);
	_update_backing();
}