# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1376037413 25200
# Node ID 15aac5334b6414f3856f5759de0f151f85e35fce
# Parent  bf8f75b690488acba989c514f1c7db9a9c270cf8
Started work on replacing nodes with a symbol when a symbol button is clicked

diff -r bf8f75b69048 -r 15aac5334b64 editor.js
--- a/editor.js	Fri Aug 09 01:35:29 2013 -0700
+++ b/editor.js	Fri Aug 09 01:36:53 2013 -0700
@@ -350,3 +350,8 @@
 		el.webkitRequestFullscreen();
 	}
 }
+
+function create_symbol(name)
+{
+	return new symbol(name);
+}
diff -r bf8f75b69048 -r 15aac5334b64 src/editor.tp
--- a/src/editor.tp	Fri Aug 09 01:35:29 2013 -0700
+++ b/src/editor.tp	Fri Aug 09 01:36:53 2013 -0700
@@ -13,6 +13,7 @@
 getEl <- foreign: :from idx {}
 setEl <- foreign: :to idx val {}
 goFullScreen <- foreign: {}
+create_symbol <- foreign: :name {}
 
 //TP Parser
 parser <- foreign: #{
@@ -238,10 +239,14 @@
 	event stopPropagation: (foreign: undefined)
 }
 
+replaceNode:with <- :astnode domnode :newnode {
+
+}
+
 lambdaClick <- :domnode astnode event {
 	selectNode: domnode
 	popInscope: ((astnode symbols) allSymbols: (foreign: undefined)) onClick: :key {
-		console log: "foooobar!"
+		replaceNode: astnode domnode with: (create_symbol: key)
 	}
 	inner <- if: ((astnode args) length) > 0 {
 		(astnode args) getEl: 0