Externalize strings for home page

modules/webapp/src/main/elm/Messages/Basics.elm

@@ -16,6 +16,9 @@ type alias Texts =
     , backToList : String
     , searchPlaceholder : String
     , id : String
+    , ok : String
+    , yes : String
+    , no : String
     }
 
 
@@ -35,6 +38,9 @@ gb =
     , backToList = "Back to list"
     , searchPlaceholder = "Search…"
     , id = "Id"
+    , ok = "Ok"
+    , yes = "Yes"
+    , no = "No"
     }
 
 

modules/webapp/src/main/elm/Messages/HomePage.elm

@@ -0,0 +1,58 @@
+module Messages.HomePage exposing (..)
+
+import Messages.Basics
+import Messages.HomeSideMenu
+import Messages.ItemCardListComp
+import Messages.SearchStatsViewComp
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , sideMenu : Messages.HomeSideMenu.Texts
+    , itemCardList : Messages.ItemCardListComp.Texts
+    , searchStatsView : Messages.SearchStatsViewComp.Texts
+    , contentSearch : String
+    , searchInNames : String
+    , selectModeTitle : String
+    , fullHeightPreviewTitle : String
+    , fullWidthPreviewTitle : String
+    , powerSearchPlaceholder : String
+    , reallyReprocessQuestion : String
+    , reallyDeleteQuestion : String
+    , editSelectedItems : Int -> String
+    , reprocessSelectedItems : Int -> String
+    , deleteSelectedItems : Int -> String
+    , selectAllVisible : String
+    , selectNone : String
+    , resetSearchForm : String
+    , exitSelectMode : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , sideMenu = Messages.HomeSideMenu.gb
+    , itemCardList = Messages.ItemCardListComp.gb
+    , searchStatsView = Messages.SearchStatsViewComp.gb
+    , contentSearch = "Content search…"
+    , searchInNames = "Search in names…"
+    , selectModeTitle = "Select Mode"
+    , fullHeightPreviewTitle = "Full height preview"
+    , fullWidthPreviewTitle = "Full width preview"
+    , powerSearchPlaceholder = "Search query …"
+    , reallyReprocessQuestion = "Really reprocess all selected items? Metadata of unconfirmed items may change."
+    , reallyDeleteQuestion = "Really delete all selected items?"
+    , editSelectedItems = \n -> "Edit " ++ String.fromInt n ++ " selected items"
+    , reprocessSelectedItems = \n -> "Reprocess " ++ String.fromInt n ++ " selected items"
+    , deleteSelectedItems = \n -> "Delete " ++ String.fromInt n ++ " selected items"
+    , selectAllVisible = "Select all visible"
+    , selectNone = "Select none"
+    , resetSearchForm = "Reset search form"
+    , exitSelectMode = "Exit Select Mode"
+    }
+
+
+de : Texts
+de =
+    gb

modules/webapp/src/main/elm/Messages/HomeSideMenu.elm

@@ -0,0 +1,27 @@
+module Messages.HomeSideMenu exposing (..)
+
+import Messages.MultiEditComp
+import Messages.SearchMenuComp
+
+
+type alias Texts =
+    { searchMenu : Messages.SearchMenuComp.Texts
+    , multiEdit : Messages.MultiEditComp.Texts
+    , editMode : String
+    , resetSearchForm : String
+    , multiEditHeader : String
+    , multiEditInfo : String
+    , close : String
+    }
+
+
+gb : Texts
+gb =
+    { searchMenu = Messages.SearchMenuComp.gb
+    , multiEdit = Messages.MultiEditComp.gb
+    , editMode = "Edit Mode"
+    , resetSearchForm = "Reset search form"
+    , multiEditHeader = "Multi-Edit"
+    , multiEditInfo = "Note that a change here immediatly affects all selected items on the right!"
+    , close = "Close"
+    }

modules/webapp/src/main/elm/Messages/ItemCardComp.elm

@@ -0,0 +1,12 @@
+module Messages.ItemCardComp exposing (..)
+
+
+type alias Texts =
+    { folder : String
+    }
+
+
+gb : Texts
+gb =
+    { folder = "Folder"
+    }

modules/webapp/src/main/elm/Messages/ItemCardListComp.elm

@@ -0,0 +1,14 @@
+module Messages.ItemCardListComp exposing (..)
+
+import Messages.ItemCardComp
+
+
+type alias Texts =
+    { itemCard : Messages.ItemCardComp.Texts
+    }
+
+
+gb : Texts
+gb =
+    { itemCard = Messages.ItemCardComp.gb
+    }

modules/webapp/src/main/elm/Messages/MultiEditComp.elm

@@ -0,0 +1,61 @@
+module Messages.MultiEditComp exposing (..)
+
+import Messages.Basics
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , tagModeAddInfo : String
+    , tagModeRemoveInfo : String
+    , tagModeReplaceInfo : String
+    , selectPlaceholder : String
+    , chooseDirection : String
+    , confirmUnconfirm : String
+    , confirm : String
+    , unconfirm : String
+    , changeTagMode : String
+    , folderTab : String
+    , folderNotOwnerWarning : String
+    , customFieldsTab : String
+    , dateTab : String
+    , dueDateTab : String
+    , correspondentTab : String
+    , organization : String
+    , person : String
+    , concerningTab : String
+    , equipment : String
+    , directionTab : String
+    , nameTab : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , tagModeAddInfo = "Tags chosen here are *added* to all selected items."
+    , tagModeRemoveInfo = "Tags chosen here are *removed* from all selected items."
+    , tagModeReplaceInfo = "Tags chosen here *replace* those on selected items."
+    , selectPlaceholder = "Select…"
+    , chooseDirection = "Choose a direction…"
+    , confirmUnconfirm = "Confirm/Unconfirm item metadata"
+    , confirm = "Confirm"
+    , unconfirm = "Unconfirm"
+    , changeTagMode = "Change tag edit mode"
+    , folderTab = "Folder"
+    , folderNotOwnerWarning =
+        """
+You are **not a member** of this folder. This item will be **hidden**
+from any search now. Use a folder where you are a member of to make this
+item visible. This message will disappear then.
+                      """
+    , customFieldsTab = "Custom Fields"
+    , dateTab = "Date"
+    , dueDateTab = "Due Date"
+    , correspondentTab = "Correspondent"
+    , organization = "Organization"
+    , person = "Person"
+    , concerningTab = "Concerning"
+    , equipment = "Equipment"
+    , directionTab = "Direction"
+    , nameTab = "Name"
+    }

modules/webapp/src/main/elm/Messages/SearchMenuComp.elm

@@ -0,0 +1,74 @@
+module Messages.SearchMenuComp exposing (..)
+
+import Messages.Basics
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , chooseDirection : String
+    , choosePerson : String
+    , chooseEquipment : String
+    , inbox : String
+    , fulltextSearch : String
+    , searchInNames : String
+    , switchSearchModes : String
+    , contentSearch : String
+    , searchInNamesPlaceholder : String
+    , fulltextSearchInfo : String
+    , nameSearchInfo : String
+    , tagCategoryTab : String
+    , folderTab : String
+    , correspondentTab : String
+    , organization : String
+    , chooseOrganization : String
+    , person : String
+    , concerningTab : String
+    , equipment : String
+    , customFieldsTab : String
+    , createCustomFieldTitle : String
+    , dateTab : String
+    , from : String
+    , to : String
+    , dueDateTab : String
+    , dueFrom : String
+    , dueTo : String
+    , sourceTab : String
+    , searchInItemSource : String
+    , directionTab : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , chooseDirection = "Choose a direction…"
+    , choosePerson = "Choose a person"
+    , chooseEquipment = "Choose an equipment"
+    , inbox = "Inbox"
+    , fulltextSearch = "Fulltext Search"
+    , searchInNames = "Search in names"
+    , switchSearchModes = "Switch between text search modes"
+    , contentSearch = "Content search…"
+    , searchInNamesPlaceholder = "Search in various names…"
+    , fulltextSearchInfo = "Fulltext search in document contents and notes."
+    , nameSearchInfo = "Looks in correspondents, concerned entities, item name and notes."
+    , tagCategoryTab = "Tag Categories"
+    , folderTab = "Folder"
+    , correspondentTab = "Correspondent"
+    , organization = "Organization"
+    , chooseOrganization = "Choose an organization"
+    , person = "Person"
+    , concerningTab = "Concerning"
+    , equipment = "Equipment"
+    , customFieldsTab = "Custom Fields"
+    , createCustomFieldTitle = "Create a new custom field"
+    , dateTab = "Date"
+    , from = "From"
+    , to = "To"
+    , dueDateTab = "Due Date"
+    , dueFrom = "Due From"
+    , dueTo = "Due To"
+    , sourceTab = "Source"
+    , searchInItemSource = "Search in item source…"
+    , directionTab = "Direction"
+    }

modules/webapp/src/main/elm/Messages/SearchStatsViewComp.elm

@@ -0,0 +1,22 @@
+module Messages.SearchStatsViewComp exposing (..)
+
+
+type alias Texts =
+    { items : String
+    , count : String
+    , sum : String
+    , avg : String
+    , min : String
+    , max : String
+    }
+
+
+gb : Texts
+gb =
+    { items = "Items"
+    , count = "Count"
+    , sum = "Sum"
+    , avg = "Avg"
+    , min = "Min"
+    , max = "Max"
+    }