class StoryDemo < Iowa::Component

	attr_accessor :part, :link_pressed

	begin
		StoryContent
	rescue NameError
		StoryContent = <<EOT
Come and listen to a story about a man named Jed.
A poor [[mountaineer|mountaineer]], barely kept his family fed.
Then one day he was shootin' at some food,
and up through the ground came a bubblin' [[crude|oil]].

Oil that is, [[black gold|oil]], Texas tea.

Well the first thing you know, ol' Jed's
a millionaire.  Kinfolk said, "Jed, move away
from there!"  Said, "[[Californy|california]] is the place you
ought to be."  So they loaded up the truck and
moved to Beverly.

Hills that is.
Swimmin' pools. Movie Stars.

The Beverly Hillbillies!
EOT
	end

	PartRegexp = /(.*?)(\[\[([\w\s]+)\|(\w+)\]\]|$)/m unless defined?(PartRegexp)
	StoryPart = Struct.new('StoryPart', :text, :link_body, :link_keyword) unless defined?(StoryPart)

	def parts
		StoryContent.scan(PartRegexp).collect {|p| StoryPart.new(p[0],p[2],p[3])}
	end

	def new_link
		@link_pressed = @part.link_keyword
	end

end

<?
	storyList {
		item = part
		list = parts
	}
?>