unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / tangle / sandbox / sandbox.factor

diff --git a/tangle/sandbox/sandbox.factor b/tangle/sandbox/sandbox.factor
new file mode 100644 (file)
index 0000000..6939131
--- /dev/null
+++ b/tangle/sandbox/sandbox.factor
@@ -0,0 +1,18 @@
+USING: continuations db db.sqlite http.server io.files kernel namespaces semantic-db tangle tangle.path ;
+IN: tangle.sandbox
+
+: db-path "tangle-sandbox.db" temp-file ;
+: sandbox-db db-path sqlite-db ;
+: delete-db db-path ?delete-file ;
+
+: make-sandbox ( tangle -- )
+    [
+        init-semantic-db
+        ensure-root "foo" create-file "First Page" create-node swap has-filename
+    ] with-tangle ;
+
+: new-sandbox ( -- )
+    development? on
+    delete-db sandbox-db f <tangle>
+    [ make-sandbox ] [ <tangle-dispatcher> ] bi
+    main-responder set ;