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/kernel/cms_css.e

@@ -0,0 +1,65 @@
+note
+	description: "Summary description for {CMS_CSS}."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	CMS_CSS
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make
+		do
+			create items.make (3)
+		end
+
+feature -- Access
+
+	items: ARRAYED_LIST [TUPLE [selectors: ITERABLE [CMS_CSS_SELECTOR]; style: CMS_CSS_STYLE]]
+
+feature -- Conversion
+
+	string: READABLE_STRING_8
+		local
+			s: STRING_8
+		do
+			create s.make (64)
+			append_to (s)
+			Result := s
+		end
+
+	append_to (a_target: STRING_8)
+		local
+			s: STRING_8
+			s_selectors: STRING_8
+		do
+			create s.make (64)
+			create s_selectors.make (10)
+			across
+				items as c
+			loop
+				s_selectors.wipe_out
+				across
+					c.item.selectors as cs
+				loop
+					if not s_selectors.is_empty then
+						s_selectors.append_character (',')
+					end
+					s_selectors.append (cs.item)
+				end
+				if not s_selectors.is_empty then
+					a_target.append (s_selectors)
+					a_target.append_character (' ')
+					a_target.append_character ('{')
+					a_target.append (c.item.style)
+					a_target.append_character ('}')
+					a_target.append_character ('%N')
+				end
+			end
+		end
+
+end