Optimize cli print
This commit is contained in:
parent
e806a96031
commit
eebc5e4b0a
|
@ -126,7 +126,7 @@ get_commands() ->
|
||||||
|
|
||||||
help() ->
|
help() ->
|
||||||
print("Usage: ~s~n", [?MODULE]),
|
print("Usage: ~s~n", [?MODULE]),
|
||||||
[begin print("~80..-s~n", [""]), Mod:Cmd(usage) end
|
[begin print("~110..-s~n", [""]), Mod:Cmd(usage) end
|
||||||
|| {_, {Mod, Cmd}, _} <- ets:tab2list(?CMD_TAB)].
|
|| {_, {Mod, Cmd}, _} <- ets:tab2list(?CMD_TAB)].
|
||||||
|
|
||||||
-spec(print(io:format()) -> ok).
|
-spec(print(io:format()) -> ok).
|
||||||
|
@ -165,7 +165,7 @@ format_usage(CmdParams, Desc) ->
|
||||||
CmdLines = split_cmd(CmdParams),
|
CmdLines = split_cmd(CmdParams),
|
||||||
DescLines = split_cmd(Desc),
|
DescLines = split_cmd(Desc),
|
||||||
lists:foldl(fun({CmdStr, DescStr}, Usage) ->
|
lists:foldl(fun({CmdStr, DescStr}, Usage) ->
|
||||||
Usage ++ format("~-48s# ~s~n", [CmdStr, DescStr])
|
Usage ++ format("~-70s# ~s~n", [CmdStr, DescStr])
|
||||||
end, "", zip_cmd(CmdLines, DescLines)).
|
end, "", zip_cmd(CmdLines, DescLines)).
|
||||||
|
|
||||||
%%--------------------------------------------------------------------
|
%%--------------------------------------------------------------------
|
||||||
|
|
Loading…
Reference in New Issue