Add German translation for home page

modules/webapp/src/main/elm/Comp/ItemDetail/MultiEditMenu.elm

@@ -46,7 +46,7 @@ import Styles as S
 import Task
 import Throttle exposing (Throttle)
 import Time
-import Util.Folder exposing (mkFolderOption)
+import Util.Folder
 import Util.List
 import Util.Maybe
 import Util.Tag
@@ -765,7 +765,7 @@ renderEditForm2 texts flags cfg settings model =
                             , ( "hidden", isFolderMember model )
                             ]
                         ]
-                        [ Markdown.toHtml [] texts.folderNotOwnerWarning
+                        [ Markdown.toHtml [] texts.basics.folderNotOwnerWarning
                         ]
                     ]
               }

modules/webapp/src/main/elm/Comp/SourceForm.elm

@@ -442,7 +442,7 @@ view2 flags texts settings model =
                     ]
                 , class S.message
                 ]
-                [ Markdown.toHtml [] texts.folderForbiddenText
+                [ Markdown.toHtml [] texts.basics.folderNotOwnerWarning
                 ]
             ]
         , div [ class "mb-4" ]

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

@@ -121,5 +121,5 @@ de =
     , queue = Messages.Page.Queue.gb
     , userSettings = Messages.Page.UserSettings.gb
     , manageData = Messages.Page.ManageData.gb
-    , home = Messages.Page.Home.gb
+    , home = Messages.Page.Home.de
     }

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

@@ -36,6 +36,7 @@ type alias Texts =
     , concerning : String
     , customFields : String
     , direction : String
+    , folderNotOwnerWarning : String
     }
 
 
@@ -71,6 +72,12 @@ gb =
     , concerning = "Concerning"
     , customFields = "Custom Fields"
     , direction = "Direction"
+    , 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.
+                      """
     }
 
 
@@ -106,4 +113,11 @@ de =
     , concerning = "Betreffend"
     , customFields = "Benutzer-Felder"
     , direction = "Richtung"
+    , folderNotOwnerWarning =
+        """
+Du bist *kein* Mitglied dieses Ordners. Dokumnte, welche durch diese
+URL hochgeladen werden, sind für dich in der Suche *nicht* sichtbar.
+Nutze lieber einen Ordner, dem Du als Mitglied zugeordnet bist. Diese
+Nachricht verschwindet dann.
+                      """
     }

modules/webapp/src/main/elm/Messages/Comp/CustomFieldInput.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.CustomFieldInput exposing (Texts, gb)
+module Messages.Comp.CustomFieldInput exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 
 type alias Texts =
@@ -16,3 +20,12 @@ gb =
     , errorNoAmount = "No amount given"
     , errorNotANumber = \str -> "Not a number: " ++ str
     }
+
+
+de : Texts
+de =
+    { errorNoValue = "Bitte gebe einen Wert an"
+    , errorNoNumber = "Keine Zahl angegeben"
+    , errorNoAmount = "Kein Betrag angegeben"
+    , errorNotANumber = \str -> "Keine Zahl: " ++ str
+    }

modules/webapp/src/main/elm/Messages/Comp/CustomFieldMultiInput.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.CustomFieldMultiInput exposing (Texts, gb)
+module Messages.Comp.CustomFieldMultiInput exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Messages.Comp.CustomFieldInput
 
@@ -12,3 +16,9 @@ gb : Texts
 gb =
     { customFieldInput = Messages.Comp.CustomFieldInput.gb
     }
+
+
+de : Texts
+de =
+    { customFieldInput = Messages.Comp.CustomFieldInput.de
+    }

modules/webapp/src/main/elm/Messages/Comp/ExpandCollapse.elm

@@ -1,5 +1,6 @@
 module Messages.Comp.ExpandCollapse exposing
     ( Texts
+    , de
     , gb
     )
 
@@ -15,3 +16,10 @@ gb =
     { showMoreLabel = "Show More …"
     , showLessLabel = "Show Less …"
     }
+
+
+de : Texts
+de =
+    { showMoreLabel = "Mehr …"
+    , showLessLabel = "Weniger …"
+    }

modules/webapp/src/main/elm/Messages/Comp/FolderSelect.elm

@@ -1,5 +1,6 @@
 module Messages.Comp.FolderSelect exposing
     ( Texts
+    , de
     , gb
     )
 
@@ -15,3 +16,9 @@ gb : Texts
 gb =
     { expandCollapse = Messages.Comp.ExpandCollapse.gb
     }
+
+
+de : Texts
+de =
+    { expandCollapse = Messages.Comp.ExpandCollapse.de
+    }

modules/webapp/src/main/elm/Messages/Comp/ItemCard.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.ItemCard exposing (Texts, gb)
+module Messages.Comp.ItemCard exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Data.Direction exposing (Direction)
 import Messages.Basics
@@ -32,3 +36,17 @@ gb =
     , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.English
     , directionLabel = Messages.Data.Direction.gb
     }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , dueOn = "Fällig am"
+    , new = "Neu"
+    , openAttachmentFile = "Öffne Anhang"
+    , gotoDetail = "Gehe zur Detail-Ansicht"
+    , cycleAttachments = "Gehe durch Anhänge"
+    , formatDateLong = Messages.DateFormat.formatDateLong Messages.UiLanguage.German
+    , formatDateShort = Messages.DateFormat.formatDateShort Messages.UiLanguage.German
+    , directionLabel = Messages.Data.Direction.de
+    }

modules/webapp/src/main/elm/Messages/Comp/ItemCardList.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.ItemCardList exposing (Texts, gb)
+module Messages.Comp.ItemCardList exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Messages.Comp.ItemCard
 
@@ -12,3 +16,9 @@ gb : Texts
 gb =
     { itemCard = Messages.Comp.ItemCard.gb
     }
+
+
+de : Texts
+de =
+    { itemCard = Messages.Comp.ItemCard.de
+    }

modules/webapp/src/main/elm/Messages/Comp/ItemDetail/MultiEditMenu.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.ItemDetail.MultiEditMenu exposing (Texts, gb)
+module Messages.Comp.ItemDetail.MultiEditMenu exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
@@ -15,7 +19,6 @@ type alias Texts =
     , confirm : String
     , unconfirm : String
     , changeTagMode : String
-    , folderNotOwnerWarning : String
     , dueDateTab : String
     }
 
@@ -32,11 +35,21 @@ gb =
     , confirm = "Confirm"
     , unconfirm = "Unconfirm"
     , changeTagMode = "Change tag edit mode"
-    , 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.
-                      """
     , dueDateTab = "Due Date"
     }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , customFieldMultiInput = Messages.Comp.CustomFieldMultiInput.de
+    , tagModeAddInfo = "Tags werden zu gewählten Dokumenten *hinzugefügt*."
+    , tagModeRemoveInfo = "Tags werden von gewählten Dokumenten *entfernt*."
+    , tagModeReplaceInfo = "Tags *ersetzen* die der gewählten Dokumente."
+    , chooseDirection = "Wähle eine Richtung…"
+    , confirmUnconfirm = "Bestätige/Widerrufe Metadaten"
+    , confirm = "Bestätige"
+    , unconfirm = "Widerufe Betätigung"
+    , changeTagMode = "Wechsel den Änderungs-Modus für Tags"
+    , dueDateTab = "Fälligkeits-Datum"
+    }

modules/webapp/src/main/elm/Messages/Comp/SearchMenu.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.SearchMenu exposing (Texts, gb)
+module Messages.Comp.SearchMenu exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
@@ -63,3 +67,33 @@ gb =
     , sourceTab = "Source"
     , searchInItemSource = "Search in item source…"
     }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , customFieldMultiInput = Messages.Comp.CustomFieldMultiInput.de
+    , tagSelect = Messages.Comp.TagSelect.de
+    , folderSelect = Messages.Comp.FolderSelect.de
+    , chooseDirection = "Wähle eine Richtung…"
+    , choosePerson = "Wähle eine Person…"
+    , chooseEquipment = "Wähle ein Zubehör"
+    , inbox = "Eingang/Neu"
+    , fulltextSearch = "Volltext Suche"
+    , searchInNames = "Suche in Namen"
+    , switchSearchModes = "Zwischen den Such-Modi wechseln"
+    , contentSearch = "Volltext Suche…"
+    , searchInNamesPlaceholder = "Suche in Namen…"
+    , fulltextSearchInfo = "Volltext Suche in Dokument Inhalt and Notizen."
+    , nameSearchInfo = "Sucht in Namen von Korrespondent/Betreffend, Dokument and Notizen."
+    , tagCategoryTab = "Tag Kategorien"
+    , chooseOrganization = "Wähle eine Organisation"
+    , createCustomFieldTitle = "Neues Benutzer-Feld erstellen"
+    , from = "Von"
+    , to = "Zu"
+    , dueDateTab = "Fälligkeits-Datum"
+    , dueFrom = "Fällig von"
+    , dueTo = "Fällig bis"
+    , sourceTab = "Quelle"
+    , searchInItemSource = "Suche in Dokument Quelle…"
+    }

modules/webapp/src/main/elm/Messages/Comp/SearchStatsView.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.SearchStatsView exposing (Texts, gb)
+module Messages.Comp.SearchStatsView exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 
 type alias Texts =
@@ -20,3 +24,14 @@ gb =
     , min = "Min"
     , max = "Max"
     }
+
+
+de : Texts
+de =
+    { items = "Dokumente"
+    , count = "Anzahl"
+    , sum = "Summe"
+    , avg = "Durchschnitt"
+    , min = "Minimum"
+    , max = "Maximum"
+    }

modules/webapp/src/main/elm/Messages/Comp/SourceForm.elm

@@ -18,7 +18,6 @@ type alias Texts =
     , metadata : String
     , metadataInfoText : String
     , folderInfo : String
-    , folderForbiddenText : String
     , tagsInfo : String
     , fileFilter : String
     , fileFilterInfo : String
@@ -41,13 +40,6 @@ gb =
             ++ "through this source, unless it is overriden in the upload request meta data. "
             ++ "Tags from the request are added to those defined here."
     , folderInfo = "Choose a folder to automatically put items into."
-    , folderForbiddenText =
-        """
-You are **not a member** of this folder. Items created through this
-link will be **hidden** from any search results. Use a folder where
-you are a member of to make items visible. This message will
-disappear then.
-                      """
     , tagsInfo = "Choose tags that should be applied to items."
     , fileFilter = "File Filter"
     , fileFilterInfo = """
@@ -78,13 +70,6 @@ de =
             ++ "Quelle hochgeladen wurde. Es kann im Upload-Request direkt nochmals überschrieben "
             ++ "oder (bei Tags) erweitert werden."
     , folderInfo = "Wähle einen Ordner; Dokumente werden automatisch damit verknüpft."
-    , folderForbiddenText =
-        """
-Du bist *kein* Mitglied dieses Ordners. Dokumnte, welche durch diese
-URL hochgeladen werden, sind für dich in der Suche *nicht* sichtbar.
-Nutze lieber einen Ordner, dem Du als Mitglied zugeordnet bist. Diese
-Nachricht verschwindet dann.
-"""
     , tagsInfo = "Wähle Tags, die automatisch angefügt werden sollen."
     , fileFilter = "Datei Filter"
     , fileFilterInfo = """

modules/webapp/src/main/elm/Messages/Comp/TagSelect.elm

@@ -1,4 +1,8 @@
-module Messages.Comp.TagSelect exposing (Texts, gb)
+module Messages.Comp.TagSelect exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Messages.Comp.ExpandCollapse
 
@@ -18,3 +22,12 @@ gb =
     , showEmpty = "Show empty"
     , filterPlaceholder = "Filter …"
     }
+
+
+de : Texts
+de =
+    { expandCollapse = Messages.Comp.ExpandCollapse.de
+    , hideEmpty = "Leere ausblenden"
+    , showEmpty = "Leere anzeigen"
+    , filterPlaceholder = "Filter …"
+    }

modules/webapp/src/main/elm/Messages/Data/Direction.elm

@@ -1,4 +1,7 @@
-module Messages.Data.Direction exposing (gb)
+module Messages.Data.Direction exposing
+    ( de
+    , gb
+    )
 
 import Data.Direction exposing (Direction(..))
 
@@ -11,3 +14,13 @@ gb dir =
 
         Outgoing ->
             "Outgoing"
+
+
+de : Direction -> String
+de dir =
+    case dir of
+        Incoming ->
+            "Eingehend"
+
+        Outgoing ->
+            "Ausgehend"

modules/webapp/src/main/elm/Messages/Page/Home.elm

@@ -1,4 +1,8 @@
-module Messages.Page.Home exposing (Texts, gb)
+module Messages.Page.Home exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Messages.Basics
 import Messages.Comp.ItemCardList
@@ -51,3 +55,27 @@ gb =
     , resetSearchForm = "Reset search form"
     , exitSelectMode = "Exit Select Mode"
     }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , itemCardList = Messages.Comp.ItemCardList.de
+    , searchStatsView = Messages.Comp.SearchStatsView.de
+    , sideMenu = Messages.Page.HomeSideMenu.de
+    , contentSearch = "Volltext Suche…"
+    , searchInNames = "Suche in Namen…"
+    , selectModeTitle = "Auswahl-Modus"
+    , fullHeightPreviewTitle = "Vorschau in voller Höhe"
+    , fullWidthPreviewTitle = "Vorschau in voller Breite"
+    , powerSearchPlaceholder = "Such query …"
+    , reallyReprocessQuestion = "Wirklich die gewählten Dokumente neu verarbeiten? Die Metadaten von nicht-bestätigten Dokumenten kann sich dabei ändern."
+    , reallyDeleteQuestion = "Wirklich alle gewählten Dokumente löschen?"
+    , editSelectedItems = \n -> "Ändere " ++ String.fromInt n ++ " gewählte Dokumente"
+    , reprocessSelectedItems = \n -> "Neu-Verarbeitung von " ++ String.fromInt n ++ " gewählten Dokumenten"
+    , deleteSelectedItems = \n -> "Lösche " ++ String.fromInt n ++ " gewählte Dokumente"
+    , selectAllVisible = "Wähle alle Dokumente in der Liste"
+    , selectNone = "Wähle alle Dokumente ab"
+    , resetSearchForm = "Such-Formular zurücksetzen"
+    , exitSelectMode = "Auswahl-Modus verlassen"
+    }

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

@@ -1,4 +1,8 @@
-module Messages.Page.HomeSideMenu exposing (Texts, gb)
+module Messages.Page.HomeSideMenu exposing
+    ( Texts
+    , de
+    , gb
+    )
 
 import Messages.Comp.ItemDetail.MultiEditMenu
 import Messages.Comp.SearchMenu
@@ -25,3 +29,15 @@ gb =
     , multiEditInfo = "Note that a change here immediatly affects all selected items on the right!"
     , close = "Close"
     }
+
+
+de : Texts
+de =
+    { searchMenu = Messages.Comp.SearchMenu.de
+    , multiEdit = Messages.Comp.ItemDetail.MultiEditMenu.de
+    , editMode = "Änderungs-Modus"
+    , resetSearchForm = "Such-Formular zurücksetzen"
+    , multiEditHeader = "Mehre Dokumente ändern"
+    , multiEditInfo = "Beachte, dass eine Änderung hier direkt auf alle gewählten Dokumente angwendet wird!"
+    , close = "Schließen"
+    }

modules/webapp/src/main/elm/Page/Home/View2.elm

@@ -196,7 +196,7 @@ defaultMenuBar texts _ settings model =
                         texts.fullHeightPreviewTitle
 
                     else
-                        texts.fullHeightPreviewTitle
+                        texts.fullWidthPreviewTitle
                 , inputClass =
                     [ ( btnStyle, True )
                     , ( "hidden sm:inline-block", False )