From 185027f893fd78e1da3c634e877e50767a56406c Mon Sep 17 00:00:00 2001
From: Paul van Tilburg <p.ja.v.tilburg@tue.nl>
Date: Tue, 18 May 2010 15:42:54 +0200
Subject: [PATCH] Added inline stylesheet support.

---
 anne-survey.rb | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/anne-survey.rb b/anne-survey.rb
index dfae489..96329bc 100644
--- a/anne-survey.rb
+++ b/anne-survey.rb
@@ -119,6 +119,15 @@ module Anne::Controllers
     end
   end
 
+  class Style < R '/style\.css'
+    STYLE = File.read(__FILE__).gsub(/.*__END__/m, '')
+
+    def get
+      @headers['Content-Type'] = 'text/css; charset=utf-8'
+      STYLE
+    end
+  end
+
 end
 
 
@@ -128,6 +137,8 @@ module Anne::Views
     xhtml_strict do
       head do
         title "Anne's hippe enqueteshizzle"
+        link :rel => "stylesheet", :type => "text/css",
+             :media => "screen", :href => "/style.css"
       end
       body do
         div.header! do
@@ -207,3 +218,6 @@ end
 def Anne.create
   Anne::Models.create_schema
 end
+
+__END__
+/* Style sheet for the Anne Survey Camping app */