ce469b6ede
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.
53 lines
944 B
Plaintext
53 lines
944 B
Plaintext
note
|
|
description: "[
|
|
]"
|
|
|
|
class
|
|
HOME_CMS_EXECUTION
|
|
|
|
inherit
|
|
CMS_EXECUTION
|
|
|
|
create
|
|
make
|
|
|
|
feature -- Execution
|
|
|
|
process
|
|
-- Computed response message.
|
|
local
|
|
-- l_url: READABLE_STRING_8
|
|
b: STRING_8
|
|
do
|
|
set_title ("Home")
|
|
set_page_title (Void)
|
|
create b.make_empty
|
|
if attached service.storage.recent_nodes (1, 10) as l_nodes then
|
|
across
|
|
l_nodes as c
|
|
loop
|
|
b.append ("<div class=%"node-wrapper%">")
|
|
b.append (c.item.to_html (theme))
|
|
b.append ("</div>%N")
|
|
end
|
|
end
|
|
|
|
-- b.append ("<ul>%N")
|
|
-- l_url := url ("/", Void)
|
|
-- b.append ("<li><a href=%"" + l_url + "%">Home</a></li>%N")
|
|
-- l_url := url ("/info/", Void)
|
|
-- b.append ("<li><a href=%"" + l_url + "%">EWF Info</a></li>%N")
|
|
|
|
-- b.append ("</ul>%N")
|
|
|
|
debug ("cms")
|
|
if attached controller.session as sess then
|
|
b.append ("<div>Session#" + sess.uuid + "</div>%N")
|
|
end
|
|
end
|
|
|
|
set_main_content (b)
|
|
end
|
|
|
|
end
|