WIP

src/clutch.erl

@@ -55,6 +55,7 @@ start(normal, _Args) ->
                 ok = tell(error, "DANGER! This node is in distributed mode!"),
                 init:stop(1)
         end,
+    ok = application:ensure_started(hakuzaru),
     ok = application:ensure_started(zxwidgets),
     gmc_sup:start_link().
 

src/gmc_con.erl

@@ -381,7 +381,7 @@ do_show_ui(Name, State = #s{tasks = Tasks, prefs = Prefs, wallet = Wallet}) ->
     end.
 
 
-do_chain(ID, State = #s{prefs = Prefs}) ->
+do_chain(_, State) ->
     tell("Would be doing chain in do_chain/2 here"),
     State.
 
@@ -522,8 +522,14 @@ do_add_node(New, State) ->
     State.
 
 
-do_set_sole_node(TheOneTrueNode, State) ->
-    tell("TheOneTrueNode: ~p", [TheOneTrueNode]),
+% FIXME: This will, of course, totally explode if anything goes wrong
+do_set_sole_node(TOTN = #node{external = none}, State) ->
+    do_set_sole_node(TOTN#node{external = 3013}, State);
+do_set_sole_node(#node{ip = Address, external = Port}, State) ->
+    ok = hz:chain_nodes([{Address, Port}]),
+    {ok, Status = #{"network_id" := NetworkID}}  = hz:status(),
+    ok = hz:network_id(NetworkID),
+    tell("Status: ~p", [Status]),
     State.