WIP

include/gmc.hrl

@@ -60,7 +60,9 @@
 -record(tx,
         {id      = none      :: none | clutch:id(),
          amount  = 0         :: non_neg_integer(),
-         type    = spend :: spend | atom()}).
+         type    = spend     :: atom(),
+         status  = submitted :: submitted | mined | rejected | failed,
+         meta    = ""        :: string()}).
 
 
 -record(spend_tx,

src/gmc_con.erl

@@ -1,7 +1,5 @@
 %%% @doc
 %%% Clutch Controller
-%%%
-%%% This process is a in charge of maintaining the program's state.
 %%% @end
 
 -module(gmc_con).
@@ -47,7 +45,8 @@
          wallet    = none :: none | #wallet{},
          pass      = none :: none | binary(),
          prefs     = #{}  :: #{module() := term()},
-         wallets = []   :: [#wr{}]}).
+         wallets   = []   :: [#wr{}],
+         in_flight = []   :: [#tx{}]}).
 
 
 -type state()   :: #s{}.

src/gmc_gui.erl

@@ -1,9 +1,5 @@
 %%% @doc
 %%% Clutch GUI
-%%%
-%%% This process is responsible for creating the main GUI frame displayed to the user.
-%%%
-%%% Reference: http://erlang.org/doc/man/wx_object.html
 %%% @end
 
 -module(gmc_gui).

src/gmc_sup.erl

@@ -36,11 +36,11 @@ start_link() ->
 
 init([]) ->
     RestartStrategy = {one_for_one, 0, 60},
-    Clients   = {gmc_con,
+    Controller = {gmc_con,
                   {gmc_con, start_link, []},
                   permanent,
                   5000,
                   worker,
                   [gmc_con]},
-    Children  = [Clients],
+    Children  = [Controller],
     {ok, {RestartStrategy, Children}}.

src/gmc_v_devman.erl

@@ -282,14 +282,17 @@ terminate(Reason, State) ->
 clicked(State = #s{book = {Notebook, Pages}}, Name, Button) ->
     case wxNotebook:getSelection(Notebook) of
         ?wxNOT_FOUND ->
-            ok = tell("Inconcievable! No notebook page is selected!"),
+            ok = tell(warning, "Inconcievable! No notebook page is selected!"),
             State;
         Index ->
             Page = lists:nth(Index + 1, Pages),
             clicked(State, Page, Name, Button)
     end.
 
-clicked(State, #p{instances = Is, funs = {_, Funs}, builds = Builds}, {<<"init">>, call}) ->
+clicked(State,
+        #p{instances = Is, funs = {_, Funs}, builds = Builds},
+        {<<"init">>, call},
+        Button) ->
     Label = wxChoice:getStringSelection(Is),
     Build = maps:get(Label, Builds),
     #f{args = Args} = lists:keyfind(<<"init">>, #f.name, Funs),