Packages
rebar3_hex
0.4.0
7.1.0
7.0.11
7.0.10
7.0.9
7.0.8
7.0.7
7.0.6
7.0.5
7.0.4
7.0.3
7.0.2
7.0.1
7.0.0
6.11.9
6.11.8
6.11.7
6.11.6
6.11.5
6.11.4
6.11.3
6.11.2
6.11.1
6.11.0
6.10.3
6.10.2
6.10.1
6.10.0
6.9.6
6.9.5
6.9.4
6.9.3
6.9.2
6.9.1
6.9.0
6.8.0
6.7.0
6.6.0
6.5.0
6.4.0
6.3.0
6.2.0
6.1.0
6.0.0
4.1.0
4.0.0
3.1.0
3.0.0
2.5.1
2.5.0
2.4.0
2.3.0
2.2.0
2.1.0
2.0.0
1.20.0
1.19.0
1.18.0
1.17.0
1.16.0
1.15.0
1.14.0
1.13.0
1.12.0
1.11.0
1.10.0
1.9.1
1.9.0
1.8.1
1.8.0
1.7.2
1.7.1
1.7.0
1.6.3
1.6.1
1.6.0
1.5.0
1.4.0
1.3.0
1.2.0
1.1.0
0.9.0
0.8.0
0.7.0
0.6.0
0.5.1
0.5.0
0.4.0
0.3.0
0.2.0
0.1.0
Hex.pm plugin for rebar3
Current section
Files
Jump to
Current section
Files
src/rebar3_hex_cut.erl
-module(rebar3_hex_cut).
-behaviour(provider).
-export([init/1,
do/1,
format_error/1]).
-include("rebar3_hex.hrl").
-include_lib("providers/include/providers.hrl").
-define(PROVIDER, cut).
-define(DEPS, [{default, app_discovery}]).
-define(ENDPOINT, "packages").
%% ===================================================================
%% Public API
%% ===================================================================
-spec init(rebar_state:t()) -> {ok, rebar_state:t()}.
init(State) ->
Provider = providers:create([
{name, ?PROVIDER},
{module, ?MODULE},
{namespace, hex},
{bare, false},
{deps, ?DEPS},
{example, "rebar3 hex cut"},
{short_desc, "."},
{desc, ""},
{opts, [{increment, i, "increment", string, "Type of semver increment: major, minor or patch"}]}
]),
State1 = rebar_state:add_provider(State, Provider),
{ok, State1}.
-spec do(rebar_state:t()) -> {ok, rebar_state:t()} | {error, string()}.
do(State) ->
{Args, _} = rebar_state:command_parsed_args(State),
case proplists:get_value(increment, Args, undefined) of
undefined ->
Apps = rebar3_hex_utils:select_apps(rebar_state:project_apps(State)),
lists:foldl(fun(App, {ok, StateAcc}) ->
do_(App, StateAcc)
end, {ok, State}, Apps);
Type ->
case string_to_bump(Type) of
error ->
{error, {?MODULE, {bad_increment, Type}}};
Bump ->
Apps = rebar3_hex_utils:select_apps(rebar_state:project_apps(State)),
lists:foldl(fun(App, {ok, StateAcc}) ->
do_(Bump, App, StateAcc)
end, {ok, State}, Apps)
end
end.
-spec format_error(any()) -> iolist().
format_error({bad_increment, Type}) ->
io_lib:format("Increment must be major, minor or patch. ~s is not valid.", [Type]);
format_error(Error) ->
io_lib:format("~p", [Error]).
%% ===================================================================
%% Public API
%% ===================================================================
do_(App, State) ->
Version = rebar_app_info:original_vsn(App),
Type = get_increment(Version),
do_(Type, App, State).
do_(Type, App, State) ->
Version = rebar_app_info:original_vsn(App),
NewVersion = increment(Type, ec_semver:parse(Version)),
update_app_src(App, NewVersion),
rebar3_hex_pkg:publish(rebar_app_info:original_vsn(App, NewVersion), State).
update_app_src(App, Version) ->
AppSrcFile = rebar_app_info:app_file_src(App),
AppSrc = rebar_file_utils:try_consult(AppSrcFile),
[{application, Name, Details}] = AppSrc,
NewDetails = lists:keyreplace(vsn, 1, Details, {vsn, binary_to_list(Version)}),
Spec = io_lib:format("~p.\n", [{application, Name, NewDetails}]),
ok = rebar_file_utils:write_file_if_contents_differ(AppSrcFile, Spec).
get_increment(Version) ->
ec_talk:say("Select semver increment or other (Current ~s):", [Version]),
ec_talk:say("1) patch", []),
ec_talk:say("2) minor", []),
ec_talk:say("3) major", []),
ec_talk:say("4) other", []),
case ec_talk:ask("[1-4] ", number) of
4 ->
ec_talk:ask("New Versions ", []);
Type ->
int_to_bump(Type)
end.
increment(patch, {{Maj, Min, Patch}, {_, _}}) ->
erlang:iolist_to_binary(ec_semver:format({{Maj, Min, Patch+1}, {[], []}}));
increment(minor, {{Maj, Min, _Patch}, {_, _}}) ->
erlang:iolist_to_binary(ec_semver:format({{Maj, Min+1, 0}, {[], []}}));
increment(major, {{Maj, _Min, _Patch}, {_, _}}) ->
erlang:iolist_to_binary(ec_semver:format({{Maj+1, 0, 0}, {[], []}}));
increment(Version, _) when is_list(Version) ->
ec_cnv:to_binary(Version).
int_to_bump(1) -> patch;
int_to_bump(2) -> minor;
int_to_bump(3) -> major;
int_to_bump(_) -> error.
string_to_bump("patch") -> patch;
string_to_bump("minor") -> minor;
string_to_bump("major") -> major;
string_to_bump(_) -> error.