Camping.goes :Nuts

module Nuts::Models
	class Page < Base
	end
	# Always place models before migrations
	class BasicFields < V 1.0
		def self.up
			create_table Page.table_name do |t|
				t.string :title
				t.text   :content
				# This gives us created_at and updated_at
				t.timestamps
			end
		end

		def self.down
			drop_table Page.table_name
		end
	end
end

module Nuts::Controllers

	class Pages < R '/'
		def get
			# Only fetch the titles of the pages.
			@pages = Page.all(:select => "title")
			render :list
		end
	end
	
	class PageX
		def get(title)
			if @page = Page.find_by_title(title)
				render :view
			else
				redirect PageXEdit, title
			end
		end
	
		def post(title)
			@page = Page.find_or_initialize_by_title(title)
			@page.content = @input.content
			@page.save
			redirect PageX, title
		end
	end

	class PageXEdit
		def get (title)
			@page = Page.find_or_initialize_by_title(title)
			render :edit
		end
	end
end

module Nuts::Views
	def list
		h1 "All pages"
		ul do
			@pages.each do |page|
				li do
					a page.title, :href => R(PageX, page.title)
				end
			end
		end
	end
	
	def view
		h1 @page.title
		self << @page.content
		p "updated: #{page.updated_at}"
		p "created: #{page.created_at}"
	end
	
	def edit
		h1 @page.title
		form :action => R(PageX, @page.title), :method => :post do
			textarea @page.content, :name => :content,
				:rows => 10, :cols => 50
			br
			input :type => :submit, :value => "Submit!"
		end
	end
end

def Nuts.create
	Nuts::Models.create_schema
end

# working example from the tutorial at:
# http://stuff.judofyr.net/camping-docs/book/02_getting_started.html

# to check results of the irb session from the tutorial on the database:
# cd to the directory containing camping.db (in your home dir)
# sqlite3 camping.db
# > .tables
# or just:
# > select * from nuts_pages;
# 1|Hiking|You can also set the values like this.|2009-11-01 18:26:34|2009-11-01 18:26:34
# 2|Fishing|Go fish!|2009-11-01 18:28:11|2009-11-01 18:28:11