% prédéfinit la feuille de style
out(A) ->
CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of
- undefined -> "css/1/euphorik.css";
+ undefined -> "styles/1/euphorik.css";
C -> C
end,
{ehtml, {link ,
<body>
<div id="container">
<erl>
- % permet de prédéfinir la "class" du logo pour un ekMaster..
+ % permet de prédéfinir la "class" du logo pour un ekMaster...
out(A) ->
Est_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),
{ehtml, {'div', [{id, "logo"}] ++ if Est_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.
<ul id="menu">
<li class="minichat">chat</li><li class="admin" style="display:none">admin</li><li class="profile"></li><li class="register">register</li><li class="logout">logout</li><li class="about">about</li>
</ul>
- <form action="" id="formMenuCss">
+ <form action="" id="formMenuCss">
<p>
<select id="menuCss">
- <option value="1" selected="selected">Retro</option>
- <option value="2">Dark</option>
+ <erl>
+ % parse les styles disponible
+ out(A) ->
+ Stlyes_dir = A#arg.docroot ++ "/styles",
+ {ok, Liste_dir} = file:list_dir(Stlyes_dir),
+ {ehtml,
+ lists:foldr(
+ fun(Dir, Acc) ->
+ case file:consult(Stlyes_dir ++ "/" ++ Dir ++ "/infos.txt") of
+ {ok, [{nom, Nom}]} ->
+ [{option, [{value, Dir}], Nom} | Acc];
+ _ ->
+ Acc
+ end
+ end,
+ [],
+ Liste_dir
+ )
+ }.
+ </erl>
+ <!-- option value="1" selected="selected">Retro</option>
+ <option value="2">Dark</option -->
</select>
</p>
</form>