X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=index.yaws;h=d2954143ab37b686191e4660b76624377243eaec;hp=105694d329b0028860972e8a474a8bee03ca3753;hb=26c6a8cae7e4c5d508d77b2a2f74a77a986ce471;hpb=55b0291a691e56465277811aac749e930509fea2 diff --git a/index.yaws b/index.yaws index 105694d..d295414 100755 --- a/index.yaws +++ b/index.yaws @@ -1,73 +1,99 @@ - - - - - - euphorik.ch - - % 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 -> "styles/1/euphorik.css"; - C -> C - end, - {ehtml, {link , - [ - {id, "cssPrincipale" }, - {rel, "stylesheet"}, - {href, CSS}, - {type, "text/css"}, - {media, "screen"} - ], []} - }. - - - - - -
- - % 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}}. - - - - -
-

- -

-
-
- -
- - \ No newline at end of file + + + + + euphorik.ch + + % set the stylesheet + out(A) -> + CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of + undefined -> "styles/1/euphorik.css"; + C -> C + end, + {ehtml, {link , + [ + {id, "mainCss" }, + {rel, "stylesheet"}, + {href, CSS}, + {type, "text/css"}, + {media, "screen"} + ], []} + }. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + % To redefine the logo class for the ekMasters. + out(A) -> + Is_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)), + {ehtml, {'div', [{id, "logo"}] ++ if Is_ek_master -> [{class, "ekMaster"}]; true -> [] end}}. + + + + +
+

+ +

+
+
+ +
+ +