Users can create new programs.

steveklabnik · steveklabnik · commit 537a1c6dee01 · 2010-07-13T18:12:32.000-04:00
Users can now make new programs. Pretty cool.
diff --git a/controllers/programs.rb b/controllers/programs.rb
@@ -0,0 +1,17 @@
+get "/programs/new" do
+	require_login!
+	haml :"programs/new"
+end
+
+post "/programs" do
+	require_login!
+	params[:program]['creator_username'] = current_user.username
+	program = Program.create(params[:program])
+	flash[:notice] = "Program created!"
+	redirect "/programs/#{program.creator_username}/#{program.slug}"
+end
+
+get "/programs/:username/:slug" do
+	@program = Program.first(:creator_username => params[:username], :slug => params[:slug])
+	haml :"programs/show"
+end
diff --git a/features/programs.feature b/features/programs.feature
@@ -0,0 +1,12 @@
+Feature: Programs
+	Scenario: I can create new programs
+		Given I'm logged in as "steve"
+		When I go to the new program page
+		And I fill in "Title" with "Hello world"
+		And I fill in "Body" with "puts 'Hello, world!'"
+		And I press "Create"
+		Then I should be on the "steve/helloworld" program page.
+		And I should see "Program created"
+		And I should see "Hello world"
+		And I should see "By steve"
+		And I should see "puts"
diff --git a/features/support/env.rb b/features/support/env.rb
@@ -12,11 +12,11 @@
 DatabaseCleaner.strategy = :truncation
 
 Sinatra::Application.app_file = app_file
-Sinatra::Application.set :environment, :test
 
 World do
   Capybara.app = Sinatra::Application
   Capybara.app.set(:environment, :test)
+  Capybara.app.set(:raise_errors, true)
   include Capybara
   include Spec::Expectations
   include Spec::Matchers
diff --git a/features/support/paths.rb b/features/support/paths.rb
@@ -40,6 +40,10 @@ def path_to(page_name)
 		"/hackers/#{$1}"
 	when /my messages page/
 		"/messages"
+	when /the new program page/
+		"/programs/new"
+	when /the "(.*)\/(.*)" program page/
+		"/programs/#{$1}/#{$2}"
 
     # Add more mappings here.
     # Here is an example that pulls values out of the Regexp:
diff --git a/models/program.rb b/models/program.rb
@@ -0,0 +1,13 @@
+class Program
+	include MongoMapper::Document
+	key :creator_username, String
+	key :title, String
+	key :slug, String 
+
+	before_save :make_slug
+ 
+	private 
+	def make_slug
+		self.slug = self.title.to_slug
+	end
+end
diff --git a/utility.rb b/utility.rb
@@ -11,3 +11,9 @@ def require_directory dirname
 		require f
 	end
 end
+
+class String
+	def to_slug
+		self.gsub(/\s/, "").downcase
+	end
+end
diff --git a/views/programs/new.haml b/views/programs/new.haml
@@ -0,0 +1,6 @@
+%form{:action => "/programs", :method => "POST"}
+  %label{:for => "program_title"} Title
+  %input{:type => "text", :id => "program_title", :name => "program[title]"} 
+  %label{:for => "program_body"} Body
+  %input{:type => "text", :id => "program_body", :name => "program[body]"} 
+  %input{:type => "submit", :value => "Create" }
diff --git a/views/programs/show.haml b/views/programs/show.haml
@@ -0,0 +1,4 @@
+%h1= @program.title
+%h2 By #{@program.creator_username}
+
+%p= @program.body
