Make all new wallet names timestamps by default

This commit is contained in:
Craig Everett 2025-08-07 14:05:42 +09:00
parent cbae5fba49
commit f60b794996

View File

@ -389,10 +389,8 @@ do_wiz(State = #s{wx = WX, lang = Lang, wiz = none}) ->
wiz_noob_assist(State = #s{j = J, wiz = {Wiz, _}}) -> wiz_noob_assist(State = #s{j = J, wiz = {Wiz, _}}) ->
DefaultDir = zx_lib:path(var, "otpr", "gajudesk"), DefaultDir = zx_lib:path(var, "otpr", "gajudesk"),
{{YY, MM, DD}, {Hr, Mn, Sc}} = calendar:local_time(), Name = default_name(),
Form = "~4.10.0B-~2.10.0B-~2.10.0B_~2.10.0B-~2.10.0B-~2.10.0B", Path = filename:join(DefaultDir, Name),
Name = io_lib:format(Form, [YY, MM, DD, Hr, Mn, Sc]),
Path = filename:join(DefaultDir, Name ++ ".gaju"),
case do_new2(Path, J, Wiz) of case do_new2(Path, J, Wiz) of
ok -> ok ->
Label = J("Account 1"), Label = J("Account 1"),
@ -403,13 +401,19 @@ wiz_noob_assist(State = #s{j = J, wiz = {Wiz, _}}) ->
State State
end. end.
default_name() ->
{{YY, MM, DD}, {Hr, Mn, Sc}} = calendar:local_time(),
Form = "~4.10.0B-~2.10.0B-~2.10.0B_~2.10.0B-~2.10.0B-~2.10.0B",
Name = io_lib:format(Form, [YY, MM, DD, Hr, Mn, Sc]),
unicode:characters_to_list(Name ++ ".gaju").
do_new(State = #s{frame = Frame, j = J, prefs = Prefs}) -> do_new(State = #s{frame = Frame, j = J, prefs = Prefs}) ->
DefaultDir = maps:get(dir, Prefs, zx_lib:path(var, "otpr", "gajudesk")), DefaultDir = maps:get(dir, Prefs, zx_lib:path(var, "otpr", "gajudesk")),
Options = Options =
[{message, J("Save Location")}, [{message, J("Save Location")},
{defaultDir, DefaultDir}, {defaultDir, DefaultDir},
{defaultFile, "default.gaju"}, {defaultFile, default_name()},
{wildCard, "*.gaju"}, {wildCard, "*.gaju"},
{sz, {300, 270}}, {sz, {300, 270}},
{style, ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT}], {style, ?wxFD_SAVE bor ?wxFD_OVERWRITE_PROMPT}],