% Parse the available styles. out(A) -> Styles_dir = A#arg.docroot ++ "/styles", {ok, Liste_dir} = file:list_dir(Styles_dir), {ehtml, lists:foldr( fun(Dir, Acc) -> case file:consult(Styles_dir ++ "/" ++ Dir ++ "/infos.txt") of {ok, [{nom, Nom}]} -> [{option, [{value, Dir}], Nom} | Acc]; _ -> Acc end end, [], Liste_dir ) }.