aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPaweł Chmielowski <pchmielowski@process-one.net>2017-06-19 15:01:34 +0200
committerPaweł Chmielowski <pchmielowski@process-one.net>2017-06-19 15:02:02 +0200
commit8e2258b16aa8b77fbd1804626adeb09def613dfe (patch)
tree6e308caba604c735b6c0ea4dcf15ab835baa35da
parentFix srg_user_add/del for non-Mnesia database backends (#1780) (diff)
Update markdown api document generator
-rw-r--r--src/ejabberd_commands_doc.erl34
1 files changed, 22 insertions, 12 deletions
diff --git a/src/ejabberd_commands_doc.erl b/src/ejabberd_commands_doc.erl
index fc921c066..4eb798c84 100644
--- a/src/ejabberd_commands_doc.erl
+++ b/src/ejabberd_commands_doc.erl
@@ -69,9 +69,9 @@ list_join_with([El|Tail], M) ->
end, [El], Tail)).
md_tag(dt, V) ->
- [<<"\n">>, V, <<"\n">>];
+ [<<"- ">>, V];
md_tag(dd, V) ->
- [<<"\n: ">>, V, <<"\n">>];
+ [<<" : ">>, V, <<"\n">>];
md_tag(li, V) ->
[<<"- ">>, V, <<"\n">>];
md_tag(pre, V) ->
@@ -324,16 +324,26 @@ gen_calls(#ejabberd_commands{args_example=Values, args=ArgsDesc,
case lists:member(<<"xmlrpc">>, Langs) of true -> ?TAG(li, ?TAG(pre, XML)); _ -> [] end,
case lists:member(<<"json">>, Langs) of true -> ?TAG(li, ?TAG(pre, JSON)); _ -> [] end])];
true ->
- [<<"\n">>, case lists:member(<<"java">>, Langs) of true -> <<"* Java\n">>; _ -> [] end,
- case lists:member(<<"perl">>, Langs) of true -> <<"* Perl\n">>; _ -> [] end,
- case lists:member(<<"xmlrpc">>, Langs) of true -> <<"* XmlRPC\n">>; _ -> [] end,
- case lists:member(<<"json">>, Langs) of true -> <<"* JSON\n">>; _ -> [] end,
- <<"{: .code-samples-labels}\n">>,
- case lists:member(<<"java">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, Java), <<"~~~\n">>]; _ -> [] end,
- case lists:member(<<"perl">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, Perl), <<"~~~\n">>]; _ -> [] end,
- case lists:member(<<"xmlrpc">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, XML), <<"~~~\n">>]; _ -> [] end,
- case lists:member(<<"json">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, JSON), <<"~~~\n">>]; _ -> [] end,
- <<"{: .code-samples-tabs}\n\n">>]
+ case Langs of
+ Val when length(Val) == 0 orelse length(Val) == 1 ->
+ [<<"\n">>,
+ case lists:member(<<"java">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, Java), <<"~~~\n">>]; _ -> [] end,
+ case lists:member(<<"perl">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, Perl), <<"~~~\n">>]; _ -> [] end,
+ case lists:member(<<"xmlrpc">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, XML), <<"~~~\n">>]; _ -> [] end,
+ case lists:member(<<"json">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, JSON), <<"~~~\n">>]; _ -> [] end,
+ <<"\n\n">>];
+ _ ->
+ [<<"\n">>, case lists:member(<<"java">>, Langs) of true -> <<"* Java\n">>; _ -> [] end,
+ case lists:member(<<"perl">>, Langs) of true -> <<"* Perl\n">>; _ -> [] end,
+ case lists:member(<<"xmlrpc">>, Langs) of true -> <<"* XmlRPC\n">>; _ -> [] end,
+ case lists:member(<<"json">>, Langs) of true -> <<"* JSON\n">>; _ -> [] end,
+ <<"{: .code-samples-labels}\n">>,
+ case lists:member(<<"java">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, Java), <<"~~~\n">>]; _ -> [] end,
+ case lists:member(<<"perl">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, Perl), <<"~~~\n">>]; _ -> [] end,
+ case lists:member(<<"xmlrpc">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, XML), <<"~~~\n">>]; _ -> [] end,
+ case lists:member(<<"json">>, Langs) of true -> [<<"\n* ">>, ?TAG(pre, JSON), <<"~~~\n">>]; _ -> [] end,
+ <<"{: .code-samples-tabs}\n\n">>]
+ end
end.
gen_doc(#ejabberd_commands{name=Name, tags=_Tags, desc=Desc, longdesc=LongDesc,