Added support for log stored in CMS_STORAGE.

Added support for custom value stored in CMS_STORAGE.
Added optional css classes addition to CMS_BLOCK output.
Refactored storage, to manage node from node module code only (or mostly).

TODO: improved view for a cms node, for now hardcoded.

library/model/src/content/cms_content_type.e

@@ -1,39 +0,0 @@
-note
-	description: "[
-			Interface defining a CMS content type.
-		]"
-	status: "draft"
-	date: "$Date$"
-	revision: "$Revision$"
-
-deferred class
-	CMS_CONTENT_TYPE
-
-feature -- Access
-
-	name: READABLE_STRING_8
-			-- Internal name.
-		deferred
-		end
-
-	title: READABLE_STRING_32
-			-- Human readable name.
-		deferred
-		end
-
-	description: detachable READABLE_STRING_32
-			-- Optional description
-		deferred
-		end
-
-feature -- Factory
-
-	new_node (a_partial_node: detachable CMS_NODE): CMS_NODE
-			-- New node based on partial `a_partial_node', or from none.
-		deferred
-		end
-
-note
-	copyright: "2011-2015, Javier Velilla, Jocelyn Fiat, Eiffel Software and others"
-	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
-end

library/model/src/log/cms_log.e

@@ -0,0 +1,127 @@
+note
+	description: "Summary description for {CMS_LOG}."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	CMS_LOG
+
+create
+	make
+
+feature {NONE} -- Initialization
+
+	make (a_category: like category; a_message: like message; a_level: like level; a_date: detachable like date)
+		do
+			category := a_category
+			message := a_message
+			set_level (a_level)
+			if a_date = Void then
+				create date.make_now_utc
+			else
+				date := a_date
+			end
+		end
+
+	make_with_id (a_id: like id; a_category: like category; a_message: like message; a_level: like level; a_date: detachable like date)
+		do
+			id := a_id
+			make (a_category, a_message, a_level, a_date)
+		end
+
+feature -- Access
+
+	id: INTEGER
+			-- Unique identifier of Current.
+
+	category: READABLE_STRING_8
+			-- Associated title (optional).
+
+	message: READABLE_STRING_8
+			-- Log message
+
+	level: INTEGER
+			-- Severity level
+
+	level_name: STRING
+		do
+			Result := level_to_string (level)
+		end
+
+	info: detachable READABLE_STRING_8
+
+	link: detachable CMS_LINK
+
+	date: DATE_TIME
+
+feature -- status report
+
+	has_id: BOOLEAN
+		do
+			Result := id > 0
+		end
+
+feature -- Change
+
+	set_id (a_id: like id)
+		require
+			not has_id
+		do
+			id := a_id
+		end
+
+	set_level (a_level: like level)
+		do
+			if a_level = 0 then
+				level := level_notice
+			else
+				level := a_level
+			end
+		end
+
+	set_link (lnk: like link)
+		do
+			link := lnk
+		end
+
+	set_info (inf: like info)
+		do
+			info := inf
+		end
+
+feature -- Constants
+
+	level_to_string (a_level: INTEGER): STRING
+		do
+			inspect a_level
+			when level_emergency then
+				Result := "emergency"
+			when level_alert then
+				Result := "alert"
+			when level_critical then
+				Result := "critical"
+			when level_error then
+				Result := "error"
+			when level_warning then
+				Result := "warning"
+			when level_notice then
+				Result := "notice"
+			when level_info then
+				Result := "info"
+			when level_debug then
+				Result := "debug"
+			else
+				Result := "level-" + a_level.out
+			end
+		end
+
+	level_emergency: INTEGER = 1
+	level_alert: INTEGER = 2
+	level_critical: INTEGER = 3
+	level_error: INTEGER = 4
+	level_warning: INTEGER = 5
+	level_notice: INTEGER = 6
+	level_info: INTEGER = 7
+	level_debug: INTEGER = 8
+
+end