+ <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 -->