Add the initial framework for running/developing Twist

rtyler · Feb 22, 2012 · b81e28e · b81e28e
1 parent 044b4e2
commit b81e28e
Show file tree

Hide file tree

Showing 7 changed files with 71 additions and 0 deletions.
diff --git a/Gemfile b/Gemfile
@@ -0,0 +1,5 @@
+source :gemcutter
+
+gem 'rake'
+gem 'sinatra'
+gem 'shotgun'
diff --git a/Rakefile b/Rakefile
@@ -0,0 +1,5 @@
+
+
+task :server do
+  sh "shotgun app.rb"
+end
diff --git a/app.rb b/app.rb
@@ -0,0 +1,28 @@
+require 'rubygems'
+require 'sinatra'
+
+
+set :root, File.dirname(__FILE__)
+set :public_folder, File.dirname(__FILE__)
+set :static, true
+unless ENV['RACK_ENV'] == 'production'
+  set :logging, true
+
+  # Only enable the saving mechanism in test/development
+  put '/*' do
+    puts request.path
+    unless request.body.nil?
+      path = File.join(File.dirname(__FILE__), request.path)
+      puts "Commiting changes to #{path}"
+      File.open(path, 'w') do |fd|
+        request.body.each do |line|
+          fd.write(line)
+        end
+      end
+    end
+  end
+end
+
+get '/' do
+  redirect to('/index.html')
+end
diff --git a/index.html b/index.html
@@ -0,0 +1,20 @@
+<!DOCTYPE html>
+<html>
+  <head>
+      <title>Twi.st</title>
+    <script src="./amber/js/amber.js" type="text/javascript"></script>
+    <script type="text/javascript">
+      loadAmber({
+        files: ['Twist.js'],
+        prefix: '../js/', /* This is for some reason relative to the ./amber directory */
+        ready: function() {
+        }});
+    </script>
+  </head>
+  <body>
+    <article>
+    <h1>Twi.st</h1>
+      <button onclick="smalltalk.Browser._open()">class browser</button>
+    </article>
+  </body>
+</html>
diff --git a/js/Twist.deploy.js b/js/Twist.deploy.js
@@ -0,0 +1,4 @@
+smalltalk.addPackage('Twist', {});
+smalltalk.addClass('TwistModel', smalltalk.Object, [], 'Twist');
+
+
diff --git a/js/Twist.js b/js/Twist.js
@@ -0,0 +1,4 @@
+smalltalk.addPackage('Twist', {});
+smalltalk.addClass('TwistModel', smalltalk.Object, [], 'Twist');
+
+
diff --git a/st/Twist.st b/st/Twist.st
@@ -0,0 +1,5 @@
+Smalltalk current createPackage: 'Twist' properties: #{}!
+Object subclass: #TwistModel
+	instanceVariableNames: ''
+	category: 'Twist'!
+