Updated CMS code.

Separated code to have a lib and an example.
Improved design, fixed a few issues related to folder location.

This is still experimental and require more work to be really friendly to use.

draft/application/cms/src/theme/cms_theme.e

@@ -0,0 +1,69 @@
+note
+	description: "Summary description for {WSF_CMS_THEME}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+deferred class
+	CMS_THEME
+
+inherit
+	CMS_COMMON_API
+
+
+feature {NONE} -- Access
+
+	service: CMS_SERVICE
+		deferred
+		end
+
+	base_url: detachable READABLE_STRING_8
+			-- Base url if any.
+		do
+			Result := service.server_base_url
+		end
+
+feature -- Access
+
+	name: STRING
+		deferred
+		end
+
+	regions: ARRAY [STRING]
+		deferred
+--			Result := <<"header", "content", "footer">>
+		end
+
+	page_template: CMS_TEMPLATE
+		deferred
+		end
+
+feature -- Conversion
+
+	menu_html (a_menu: CMS_MENU; is_horizontal: BOOLEAN): STRING_8
+		do
+			create Result.make_from_string ("<div id=%""+ a_menu.name +"%">")
+			if is_horizontal then
+				Result.append ("<ul class=%"horizontal%" >%N")
+			else
+				Result.append ("<ul class=%"vertical%" >%N")
+			end
+			across
+				a_menu as c
+			loop
+				if c.item.is_active then
+					Result.append ("<li class=%"active%">")
+				else
+					Result.append ("<li>")
+				end
+				Result.append ("<a href=%"" + url (c.item.location, c.item.options) + "%">" + html_encoded (c.item.title) + "</a></li>")
+			end
+			Result.append ("</ul>%N")
+			Result.append ("</div>")
+		end
+
+	page_html (page: CMS_HTML_PAGE): STRING_8
+		deferred
+		end
+
+end