Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-12-26 17:38:45 +01:00
Code Releases Activity

Improve output in gen_html_doc_for_commands command

Browse Source
This commit is contained in:
Paweł Chmielowski 2023-01-19 11:45:33 +01:00
parent 648c83ea03
commit b6dde41000
1 changed files with 18 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/ejabberd_commands_doc.erl
View File

@ -33,9 +33,11 @@
-include("ejabberd_commands.hrl"). -include("ejabberd_commands.hrl").
-define(RAW(V), if HTMLOutput -> fxml:crypt(iolist_to_binary(V)); true -> iolist_to_binary(V) end). -define(RAW(V), if HTMLOutput -> fxml:crypt(iolist_to_binary(V)); true -> iolist_to_binary(V) end).
-define(TAG(N), if HTMLOutput -> [<<"<", ??N, "/>">>]; true -> md_tag(N, <<"">>) end). -define(TAG_BIN(N), (atom_to_binary(N, latin1))/binary).
-define(TAG(N, V), if HTMLOutput -> [<<"<", ??N, ">">>, V, <<"</", ??N, ">">>]; true -> md_tag(N, V) end). -define(TAG_STR(N), atom_to_list(N)).
-define(TAG(N, C, V), if HTMLOutput -> [<<"<", ??N, " class='", C, "'>">>, V, <<"</", ??N, ">">>]; true -> md_tag(N, V) end). -define(TAG(N), if HTMLOutput -> [<<"<", ?TAG_BIN(N), "/>">>]; true -> md_tag(N, <<"">>) end).
-define(TAG(N, V), if HTMLOutput -> [<<"<", ?TAG_BIN(N), ">">>, V, <<"</", ?TAG_BIN(N), ">">>]; true -> md_tag(N, V) end).
-define(TAG(N, C, V), if HTMLOutput -> [<<"<", ?TAG_BIN(N), " class='", C, "'>">>, V, <<"</", ?TAG_BIN(N), ">">>]; true -> md_tag(N, V) end).
-define(TAG_R(N, V), ?TAG(N, ?RAW(V))). -define(TAG_R(N, V), ?TAG(N, ?RAW(V))).
-define(TAG_R(N, C, V), ?TAG(N, C, ?RAW(V))). -define(TAG_R(N, C, V), ?TAG(N, C, ?RAW(V))).
-define(SPAN(N, V), ?TAG_R(span, ??N, V)). -define(SPAN(N, V), ?TAG_R(span, ??N, V)).
@ -414,9 +416,9 @@ gen_doc(#ejabberd_commands{name=Name, tags=Tags, desc=Desc, longdesc=LongDesc,
_ -> ?TAG('div', "note-down", ?RAW(Note)) _ -> ?TAG('div', "note-down", ?RAW(Note))
end, end,
[NoteEl, [?TAG(h1, atom_to_list(Name)),
?TAG(h1, atom_to_list(Name)),
?TAG(p, ?RAW(Desc)), ?TAG(p, ?RAW(Desc)),
NoteEl,
case LongDesc of case LongDesc of
"" -> []; "" -> [];
_ -> ?TAG(p, ?RAW(LongDesc)) _ -> ?TAG(p, ?RAW(LongDesc))
@ -434,14 +436,8 @@ gen_doc(#ejabberd_commands{name=Name, tags=Tags, desc=Desc, longdesc=LongDesc,
end. end.
find_commands_definitions() -> find_commands_definitions() ->
case code:lib_dir(ejabberd, ebin) of lists:flatmap(
{error, _} -> fun(Mod) ->
lists:map(fun({N, _, _}) ->
ejabberd_commands:get_command_definition(N)
end, ejabberd_commands:list_commands());
Path ->
lists:flatmap(fun(P) ->
Mod = list_to_atom(filename:rootname(P)),
code:ensure_loaded(Mod), code:ensure_loaded(Mod),
Cs = case erlang:function_exported(Mod, get_commands_spec, 0) of Cs = case erlang:function_exported(Mod, get_commands_spec, 0) of
true -> true ->
@ -450,8 +446,7 @@ find_commands_definitions() ->
[] []
end, end,
[C#ejabberd_commands{definer = Mod} || C <- Cs] [C#ejabberd_commands{definer = Mod} || C <- Cs]
end, filelib:wildcard("*.beam", Path)) end, ejabberd_config:beams(all)).
end.
generate_html_output(File, RegExp, Languages) -> generate_html_output(File, RegExp, Languages) ->
Cmds = find_commands_definitions(), Cmds = find_commands_definitions(),