Added ability to add/remove script

web/democode/perleditor.html

@@ -164,7 +164,7 @@ function fetchUrl(url,cm) { // fetch the contents of a URL into a CodeMirror ins
 		});
 }
 
-function makeCodeWithFn (fn,targ,ro,nodel) {
+function makeCodeWithFn (fn,targ,ro,isscript) {
 	var div = $('<div/>',{class:"codewithfn"});
 	
 	var fnfuncs = $('<div/>',{class:"fnfuncs"}).appendTo(div);
@@ -191,14 +191,16 @@ function makeCodeWithFn (fn,targ,ro,nodel) {
 	
 	var filefuncs = $('<div/>',{class:"filefuncs"}).appendTo(fnfuncs);
 	
-	if (!nodel) {
 	var conf = $('<span/>', {class:"text small"})
 		.append(
 			"&ensp;",
 			"Are you sure?",
 			"&ensp;",
 			$('<span/>',{class:"fakelink",text:"Yes"})
-					.click(function () { div.remove(); }),
+				.click(function () {
+					div.remove();
+					if (isscript) $('#addscript').show();
+				}),
 			"&ensp;",
 			$('<span/>',{class:"fakelink",text:"Cancel"})
 				.click(function () { conf.hide(); }),
@@ -209,12 +211,11 @@ function makeCodeWithFn (fn,targ,ro,nodel) {
 		});
 	conf.hide();
 	conf.appendTo(filefuncs);
-	}
 	
 	var ta = $('<textarea/>').appendTo(div);
 	targ.before(div);
 	filename.trigger('input'); // see above
-	var cm = makeCM(ta, !fn.match(/\.pl$/i), ro);
+	var cm = makeCM(ta, !(isscript||fn.match(/\.pl$/i)), ro);
 	div.data('CodeMirrorInstance', cm);
 	return {div:div,ta:ta,cm:cm};
 }
@@ -292,6 +293,7 @@ $(function () {
 	var hash = hashdata.length>0 ? JSON.parse(decodeURIComponent(hashdata)) : {};
 	
 	// script
+	var addscript = $('#addscript');
 	if ( hash["script"] || hash["script_url"] ) {
 		var fn = hash["script_fn"] ? hash.script_fn : 'script.pl';
 		var cfn = makeCodeWithFn(fn, $('#perlctrl'), 0, 1);
@@ -300,7 +302,17 @@ $(function () {
 			cfn.cm.setValue(hash.script);
 		else if (hash["script_url"])
 			fetchUrl(hash.script_url, cfn.cm);
+		addscript.hide();
 	}
+	else
+		addscript.show();
+	addscript.click(function () {
+		addscript.hide();
+		if ($('#script').length) return;
+		var cfn = makeCodeWithFn('script.pl', $('#perlctrl'), 0, 1);
+		cfn.div.attr("id", "script");
+		cfn.cm.setValue("use warnings;\nuse strict;\n\n");
+	});
 	
 	// command line
 	var argv_inp = $('#argv');
@@ -404,6 +416,8 @@ $(function () {
 	<div id="misctools">
 		Tools
 		<div id="misctools_reveal">
+			&nbsp;
+			<span id="addscript" class="fakelink" style="display:none;">Add Script</span>
 			&nbsp;
 			<span id="copyurl" class="fakelink">Copy Frame URL</span>
 		</div>