args (#10)

More complete types.

Reviewed-on: #10
Co-authored-by: Craig Everett <zxq9@zxq9.com>
Co-committed-by: Craig Everett <zxq9@zxq9.com>

src/gd_gui.erl

@@ -32,7 +32,7 @@
         {wx       = none         :: none | wx:wx_object(),
          frame    = none         :: none | wx:wx_object(),
          sizer    = none         :: none | wx:wx_object(),
-         lang     = en           :: en | jp,
+         lang     = en_US        :: en_US | ja_JP,
          j        = none         :: none | fun(),
          prefs    = #{}          :: #{atom() := term()},
          accounts = []           :: [gajudesk:poa()],
@@ -84,7 +84,7 @@ start_link(Accounts) ->
 
 init(Prefs) ->
     ok = log(info, "GUI starting..."),
-    Lang = maps:get(lang, Prefs, en_us),
+    Lang = maps:get(lang, Prefs, en_US),
     Trans = gd_jt:read_translations(?MODULE),
     J = gd_jt:j(Lang, Trans),