note
	description: "Summary description for {ES_CLOUD_USER_PROFILE}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	ES_CLOUD_USER_PROFILE

create
	make

feature {NONE} -- Initialization

	make (a_user: CMS_USER)
		do
			cms_user := a_user
		end

feature -- Access

	cms_user: CMS_USER

	about_wikitext: detachable IMMUTABLE_STRING_32

feature -- Status report

	is_empty: BOOLEAN
			-- Is profile empty ?
		do
			Result := about_wikitext = Void
		end

feature -- Element change

	set_about_wikitext (t: detachable READABLE_STRING_GENERAL)
		do
			if t = Void then
				about_wikitext := Void
			else
				create about_wikitext.make_from_string_general (t)
			end
		end

end