Start setting up an Internationalisation module for #10

hilverd · Dec 1, 2023 · 80acc91 · 80acc91
1 parent 2abc93a
commit 80acc91
Show file tree

Hide file tree

Showing 6 changed files with 24 additions and 10 deletions.
diff --git a/src/Internationalisation.elm b/src/Internationalisation.elm
@@ -0,0 +1,11 @@
+module Internationalisation exposing (sandboxModeMessage)
+
+{-| User interface text in a specific language (e.g. English).
+-}
+
+import Internationalisation.Eng as I18n
+
+
+sandboxModeMessage : String
+sandboxModeMessage =
+    I18n.sandboxModeMessage
diff --git a/src/Components/Copy.elm → src/Internationalisation/Eng.elm b/src/Components/Copy.elm → src/Internationalisation/Eng.elm
@@ -1,4 +1,7 @@
-module Components.Copy exposing (sandboxModeMessage)
+module Internationalisation.Eng exposing (sandboxModeMessage)
+
+{-| User interface text in the English language.
+-}
 
 
 sandboxModeMessage : String

diff --git a/src/Pages/CreateOrEdit.elm b/src/Pages/CreateOrEdit.elm
@@ -8,7 +8,6 @@ import Browser.Dom as Dom
 import CommonModel exposing (CommonModel)
 import Components.Badge
 import Components.Button
-import Components.Copy
 import Components.DropdownMenu
 import Components.Form
 import Components.GlossaryItemCard
@@ -42,6 +41,7 @@ import Html.Attributes exposing (class, id, required, style)
 import Html.Events
 import Http
 import Icons
+import Internationalisation as I18n
 import PageMsg exposing (PageMsg)
 import QueryParameters
 import Set exposing (Set)
@@ -1085,7 +1085,7 @@ viewCreateFormFooter model =
         , Extras.Html.showIf common.enableSavingChangesInMemory <|
             div
                 [ class "mt-2 mb-2 text-sm text-gray-500 dark:text-gray-400 sm:text-right" ]
-                [ text Components.Copy.sandboxModeMessage ]
+                [ text I18n.sandboxModeMessage ]
         , div
             [ class "flex items-center" ]
             [ Components.Button.white

diff --git a/src/Pages/EditTitleAndAbout.elm b/src/Pages/EditTitleAndAbout.elm
@@ -8,7 +8,6 @@ import Browser.Dom as Dom
 import CommonModel exposing (CommonModel)
 import Components.AboutSection
 import Components.Button
-import Components.Copy
 import Components.Form
 import Components.Spinner
 import Data.AboutLink as AboutLink
@@ -30,6 +29,7 @@ import Html.Attributes exposing (class, for, id, name, placeholder, required, sp
 import Html.Events
 import Http
 import Icons
+import Internationalisation as I18n
 import PageMsg exposing (PageMsg)
 import Svg.Attributes
 import Task
@@ -559,7 +559,7 @@ viewCreateFormFooter model showValidationErrors glossaryItems =
         , Extras.Html.showIf model.common.enableSavingChangesInMemory <|
             div
                 [ class "mt-2 mb-2 text-sm text-gray-500 dark:text-gray-400 sm:text-right" ]
-                [ text Components.Copy.sandboxModeMessage ]
+                [ text I18n.sandboxModeMessage ]
         , div
             [ class "flex items-center" ]
             [ Components.Button.white

diff --git a/src/Pages/ListAll.elm b/src/Pages/ListAll.elm
@@ -35,7 +35,6 @@ import CommonModel exposing (CommonModel)
 import Components.AboutSection
 import Components.Badge
 import Components.Button
-import Components.Copy
 import Components.Dividers
 import Components.DropdownMenu
 import Components.GlossaryItemCard
@@ -75,6 +74,7 @@ import Html.Attributes exposing (class, for, href, id, readonly)
 import Html.Events
 import Http
 import Icons
+import Internationalisation as I18n
 import PageMsg exposing (PageMsg)
 import Process
 import QueryParameters
@@ -1376,7 +1376,7 @@ viewConfirmDeleteModal enableSavingChangesInMemory maybeIdOfItemToDelete deletin
             , Extras.Html.showIf enableSavingChangesInMemory <|
                 div
                     [ class "mt-5 sm:mt-4 text-sm text-gray-500 dark:text-gray-400 sm:text-right" ]
-                    [ text Components.Copy.sandboxModeMessage ]
+                    [ text I18n.sandboxModeMessage ]
             , case deleting of
                 SavingFailed errorMessage ->
                     div
@@ -1439,7 +1439,7 @@ viewMakeChangesButton showSandboxModeMessage tabbable =
         , Extras.Html.showIf showSandboxModeMessage <|
             div
                 [ class "my-4 text-sm text-gray-500 dark:text-gray-400" ]
-                [ text Components.Copy.sandboxModeMessage ]
+                [ text I18n.sandboxModeMessage ]
         ]
 
 

diff --git a/src/Pages/ManageTags.elm b/src/Pages/ManageTags.elm
@@ -7,7 +7,6 @@ import Browser exposing (Document)
 import Browser.Dom as Dom
 import CommonModel exposing (CommonModel)
 import Components.Button
-import Components.Copy
 import Components.Form
 import Components.Spinner
 import Data.Glossary as Glossary exposing (Glossary)
@@ -27,6 +26,7 @@ import Html.Attributes exposing (class, id)
 import Html.Events
 import Http
 import Icons
+import Internationalisation as I18n
 import PageMsg exposing (PageMsg)
 import Svg.Attributes
 import TagsForm as Form exposing (Row, TagsForm)
@@ -492,7 +492,7 @@ viewFooter model showValidationErrors glossaryItems =
         , Extras.Html.showIf model.common.enableSavingChangesInMemory <|
             div
                 [ class "mt-2 mb-2 text-sm text-gray-500 dark:text-gray-400 sm:text-right" ]
-                [ text Components.Copy.sandboxModeMessage ]
+                [ text I18n.sandboxModeMessage ]
         , div
             [ class "flex items-center" ]
             [ Components.Button.white