mad up

src/mad.erl

@@ -57,6 +57,10 @@ bundle(_Cwd,_ConfigFileName,_Config,Params) ->
     Name = case Params of [] -> mad_utils:cwd(); E -> E end,
     mad_bundle:main(filename:basename(Name)).
 
+up(_Cwd,_ConfigFileName,_Config,Params) ->
+    io:format("Up Params: ~p~n",[Params]),
+    mad_deps:up(Params).
+
 app(_Cwd,_ConfigFileName,_Config,Params) ->
     io:format("Create App Params: ~p~n",[Params]),
     mad_create:app(Params).

src/mad_deps.erl

@@ -2,6 +2,12 @@
 -copyright('Sina Samavati').
 -compile(export_all).
 
+up(_) ->
+  [ begin
+    io:format("==> up: ~p~n", [F]),
+    os:cmd(io_lib:format("cd ~s && git pull",[F]))
+    end || F<- mad_repl:wildcards(["deps/*"]), filelib:is_dir(F)].
+
 fetch(_, _Config, _, []) -> ok;
 fetch(Cwd, Config, ConfigFile, [H|T]) when is_tuple(H) =:= false -> fetch(Cwd, Config, ConfigFile, T);
 fetch(Cwd, Config, ConfigFile, [H|T]) ->

src/mad_utils.erl

@@ -67,6 +67,7 @@ to_atom(X) -> X.
 atomize("static") -> static;
 atomize("com"++_) -> compile;
 atomize("rep"++_) -> repl;
+atomize("up")     -> up;
 atomize("bun"++_) -> bundle;
 atomize("dep"++_) -> deps;
 atomize("pla"++_) -> plan;