]> gitweb.factorcode.org Git - factor.git/commitdiff
fjsc: load bootstrap factor code on startup
authorchris.double <chris.double@double.co.nz>
Sun, 17 Dec 2006 04:19:05 +0000 (04:19 +0000)
committerchris.double <chris.double@double.co.nz>
Sun, 17 Dec 2006 04:19:05 +0000 (04:19 +0000)
apps/furnace-fjsc/resources/bootstrap.factor
apps/furnace-fjsc/resources/bootstrap.js

index a10449ec9aa92b4909a1b3e5a622f1f8957b3bff..30ac7dd0cac7deca021cd858b016a9bc2d4618b5 100644 (file)
@@ -4,11 +4,9 @@
 
 "browser-dom" in
 
-: get-element ( id -- element )
-  document { "element" } "" "getElementById" { "string" } alien-invoke ;
-
-: property ( name element -- value )
-  alien-property ;
+: $ ( string -- result )
+  #! Call JQuery's $ function
+  window { "result" } "" "$" { "string" } alien-invoke ;
+  
 
 "scratchpad" in
-"Bootstrap code loaded" alert
\ No newline at end of file
index a5e7bf41b71a2b33597ae3a52e38135bd13c9be9..026e3c931c5104760a9d6ec82793cca70ac34044 100644 (file)
@@ -530,3 +530,10 @@ factor.add_word("browser-dom", "document", "primitive", function(next) {
   factor.cont.data_stack.push(document);
   factor.call_next(next);
 });
+
+/* Run initial factor code */
+$(document).ready(function() {
+  $.get("/responder/fjsc-resources/bootstrap.factor", function(result) {
+    factor.server_eval(result, function() { });
+  });
+});