Implement translations as a minimal service

Author: NelsonVides

doc/configuration/Services.md

@@ -93,6 +93,11 @@ The number of seconds between cleaning attempts of the `domain_events` table.
 
 The number of seconds after an event must be deleted from the `domain_events` table.
 
+## service_translations
+
+Enables translations for system messages.
+Support is minimal, you can check `priv/translations/` for translated messages.
+
 ## Example configuration
 
 ```toml

include/mod_vcard.hrl

@@ -16,7 +16,7 @@
 -export_type([vcard_search/0]).
 
 -define(TLFIELD(Type, Label, Var),
-        #{var => Var, type => Type, label => translate:translate(Lang, Label)}).
+        #{var => Var, type => Type, label => service_translations:do(Lang, Label)}).
 
 -define(FIELD(Var, Val),
         #{var => Var, values => [Val]}).

src/config/mongoose_config_spec.erl

@@ -732,7 +732,8 @@ services() ->
 
 configurable_services() ->
     [service_mongoose_system_metrics,
-     service_domain_db].
+     service_domain_db,
+     service_translations].
 
 %% path: (host_config[].)modules
 modules() ->

src/ejabberd_app.erl

@@ -61,7 +61,6 @@ do_start() ->
     mongoose_config:start(),
     mongoose_internal_databases:init(),
     mongoose_graphql:init(),
-    translate:start(),
     mongoose_graphql_commands:start(),
     mongoose_logs:set_global_loglevel(mongoose_config:get_opt(loglevel)),
     mongoose_deprecations:start(),

src/http_upload/mod_http_upload.erl

@@ -236,7 +236,7 @@ subdomain_pattern(HostType) ->
 
 -spec my_disco_name(ejabberd:lang()) -> binary().
 my_disco_name(Lang) ->
-    translate:translate(Lang, <<"HTTP File Upload">>).
+    service_translations:do(Lang, <<"HTTP File Upload">>).
 
 
 -spec compose_iq_reply(IQ :: jlib:iq(),

src/jlib.erl

@@ -407,7 +407,7 @@ stanza_error(Code, Type, Condition) ->
                   , Lang :: ejabberd:lang()
                   , Text :: binary()) -> exml:element().
 stanza_errort(Code, Type, Condition, Lang, Text) ->
-  Txt = translate:translate(Lang, Text),
+  Txt = service_translations:do(Lang, Text),
   #xmlel{ name = <<"error">>
        , attrs = #{<<"code">> => Code, <<"type">> => Type}
        , children = [ #xmlel{ name = Condition
@@ -432,7 +432,7 @@ stream_error(Condition) ->
                   , Lang :: ejabberd:lang()
                   , Text :: binary()) -> exml:element().
 stream_errort(Condition, Lang, Text) ->
-  Txt = translate:translate(Lang, Text),
+  Txt = service_translations:do(Lang, Text),
   #xmlel{ name = <<"stream:error">>
        , children = [ #xmlel{ name = Condition
                             , attrs = #{<<"xmlns">> => ?NS_STREAMS} }

src/mod_adhoc.erl

@@ -180,7 +180,7 @@ are_commands_visible(HostType) ->
     gen_mod:get_module_opt(HostType, ?MODULE, report_commands_node).
 
 item(LServer, Node, Name, Lang) ->
-    #{jid => LServer, node => Node, name => translate:translate(Lang, Name)}.
+    #{jid => LServer, node => Node, name => service_translations:do(Lang, Name)}.
 
 %%-------------------------------------------------------------------------
 
@@ -211,12 +211,12 @@ disco_sm_identity(Acc, _, _) ->
 ping_identity(Lang) ->
     #{category => <<"automation">>,
       type => <<"command-node">>,
-      name => translate:translate(Lang, <<"Ping">>)}.
+      name => service_translations:do(Lang, <<"Ping">>)}.
 
 command_list_identity(Lang) ->
     #{category => <<"automation">>,
       type => <<"command-list">>,
-      name => translate:translate(Lang, <<"Commands">>)}.
+      name => service_translations:do(Lang, <<"Commands">>)}.
 
 %%-------------------------------------------------------------------------
 
@@ -266,7 +266,7 @@ ping_command(empty,
                               node = Node,
                               session_id = SessionID,
                               status = completed,
-                              notes = [{<<"info">>, translate:translate(Lang, <<"Pong">>)}]});
+                              notes = [{<<"info">>, service_translations:do(Lang, <<"Pong">>)}]});
         false ->
             {error, mongoose_xmpp_errors:bad_request()}
     end,

src/mod_register.erl

@@ -302,7 +302,7 @@ process_iq_get(_HostType, From, _To, #iq{lang = Lang, sub_el = Child} = IQ, _Sou
             _ ->
                 {false, [], []}
         end,
-    TranslatedMsg = translate:translate(
+    TranslatedMsg = service_translations:do(
                       Lang, <<"Choose a username and password to register with this server">>),
     IQ#iq{type = result,
           sub_el = [#xmlel{name = <<"query">>,

src/muc/mod_muc.erl

@@ -923,7 +923,7 @@ default_host() ->
 identity(Lang) ->
     #{category => <<"conference">>,
       type => <<"text">>,
-      name => translate:translate(Lang, <<"Chatrooms">>)}.
+      name => service_translations:do(Lang, <<"Chatrooms">>)}.
 
 features() ->
     [?NS_DISCO_INFO, ?NS_DISCO_ITEMS, ?NS_MUC, ?NS_MUC_UNIQUE, ?NS_REGISTER, ?NS_RSM, ?NS_VCARD, ?NS_CONFERENCE].
@@ -1049,15 +1049,15 @@ iq_get_register_info(HostType, MucHost, From, Lang) ->
             {ok, N} ->
                 {N, [#xmlel{name = <<"registered">>}]}
         end,
-    ClientReqText = translate:translate(
+    ClientReqText = service_translations:do(
                       Lang, <<"You need a client that supports x:data to register the nickname">>),
     ClientReqEl = #xmlel{name = <<"instructions">>,
                          children = [#xmlcdata{content = ClientReqText}]},
-    EnterNicknameText = translate:translate(Lang, <<"Enter nickname you want to register">>),
-    TitleText = <<(translate:translate(Lang, <<"Nickname Registration at ">>))/binary,
+    EnterNicknameText = service_translations:do(Lang, <<"Enter nickname you want to register">>),
+    TitleText = <<(service_translations:do(Lang, <<"Nickname Registration at ">>))/binary,
                   MucHost/binary>>,
     NickField = #{type => <<"text-single">>,
-                  label => translate:translate(Lang, <<"Nickname">>),
+                  label => service_translations:do(Lang, <<"Nickname">>),
                   var => <<"nick">>,
                   values => [Nick]},
     Registered ++ [ClientReqEl, mongoose_data_forms:form(#{title => TitleText,
@@ -1136,7 +1136,7 @@ iq_get_vcard(Lang) ->
      #xmlel{name = <<"URL">>, children = [#xmlcdata{content = ?MONGOOSE_URI}]},
      #xmlel{name = <<"DESC">>,
             children = [#xmlcdata{content =
-                                  <<(translate:translate(Lang, <<"ejabberd MUC module">>))/binary,
+                                  <<(service_translations:do(Lang, <<"ejabberd MUC module">>))/binary,
                                     "\nCopyright (c) 2003-2011 ProcessOne">>}]}].
 
 -spec broadcast_service_message(muc_host(), binary() | string()) -> ok.

src/muc/mod_muc_log.erl

@@ -54,7 +54,7 @@
 -include("mod_muc_room.hrl").
 -include("mongoose_config_spec.hrl").
 
--define(T(Text), translate:translate(Lang, Text)).
+-define(T(Text), service_translations:do(Lang, Text)).
 -define(PROCNAME, ejabberd_mod_muc_log).
 
 -record(room, {jid, title, subject, subject_author, config}).