Extract tag dropdown into a separate component

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

@@ -16,6 +16,7 @@ import Messages.Basics
 import Messages.Comp.CalEventInput
 import Messages.Comp.ChannelForm
 import Messages.Comp.HttpError
+import Messages.Comp.TagDropdown
 import Messages.Data.ChannelType
 
 
@@ -24,6 +25,7 @@ type alias Texts =
     , calEventInput : Messages.Comp.CalEventInput.Texts
     , httpError : Http.Error -> String
     , channelForm : Messages.Comp.ChannelForm.Texts
+    , tagDropdown : Messages.Comp.TagDropdown.Texts
     , reallyDeleteTask : String
     , startOnce : String
     , startTaskNow : String
@@ -58,6 +60,7 @@ gb =
     , calEventInput = Messages.Comp.CalEventInput.gb
     , httpError = Messages.Comp.HttpError.gb
     , channelForm = Messages.Comp.ChannelForm.gb
+    , tagDropdown = Messages.Comp.TagDropdown.gb
     , reallyDeleteTask = "Really delete this notification task?"
     , startOnce = "Start Once"
     , startTaskNow = "Start this task now"
@@ -96,6 +99,7 @@ de =
     , calEventInput = Messages.Comp.CalEventInput.de
     , httpError = Messages.Comp.HttpError.de
     , channelForm = Messages.Comp.ChannelForm.gb
+    , tagDropdown = Messages.Comp.TagDropdown.gb
     , reallyDeleteTask = "Diesen Benachrichtigungsauftrag wirklich löschen?"
     , startOnce = "Jetzt starten"
     , startTaskNow = "Starte den Auftrag sofort"

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

@@ -14,6 +14,7 @@ module Messages.Comp.ItemDetail.EditForm exposing
 import Data.Direction exposing (Direction)
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
+import Messages.Comp.TagDropdown
 import Messages.Data.Direction
 import Messages.DateFormat as DF
 import Messages.UiLanguage
@@ -22,6 +23,7 @@ import Messages.UiLanguage
 type alias Texts =
     { basics : Messages.Basics.Texts
     , customFieldInput : Messages.Comp.CustomFieldMultiInput.Texts
+    , tagDropdown : Messages.Comp.TagDropdown.Texts
     , createNewCustomField : String
     , chooseDirection : String
     , dueDateTab : String
@@ -45,6 +47,7 @@ gb : Texts
 gb =
     { basics = Messages.Basics.gb
     , customFieldInput = Messages.Comp.CustomFieldMultiInput.gb
+    , tagDropdown = Messages.Comp.TagDropdown.gb
     , createNewCustomField = "Create new custom field"
     , chooseDirection = "Choose a direction…"
     , dueDateTab = "Due Date"
@@ -68,6 +71,7 @@ de : Texts
 de =
     { basics = Messages.Basics.de
     , customFieldInput = Messages.Comp.CustomFieldMultiInput.de
+    , tagDropdown = Messages.Comp.TagDropdown.de
     , createNewCustomField = "Erstelle neues Benutzerfeld"
     , chooseDirection = "Wähle Richtung…"
     , dueDateTab = "Fälligkeitsdatum"

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

@@ -14,12 +14,14 @@ module Messages.Comp.ItemDetail.MultiEditMenu exposing
 import Data.Direction exposing (Direction)
 import Messages.Basics
 import Messages.Comp.CustomFieldMultiInput
+import Messages.Comp.TagDropdown
 import Messages.Data.Direction
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
     , customFieldMultiInput : Messages.Comp.CustomFieldMultiInput.Texts
+    , tagDropdown : Messages.Comp.TagDropdown.Texts
     , tagModeAddInfo : String
     , tagModeRemoveInfo : String
     , tagModeReplaceInfo : String
@@ -37,6 +39,7 @@ gb : Texts
 gb =
     { basics = Messages.Basics.gb
     , customFieldMultiInput = Messages.Comp.CustomFieldMultiInput.gb
+    , tagDropdown = Messages.Comp.TagDropdown.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."
@@ -54,6 +57,7 @@ de : Texts
 de =
     { basics = Messages.Basics.de
     , customFieldMultiInput = Messages.Comp.CustomFieldMultiInput.de
+    , tagDropdown = Messages.Comp.TagDropdown.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."

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

@@ -15,12 +15,14 @@ import Http
 import Messages.Basics
 import Messages.Comp.CalEventInput
 import Messages.Comp.HttpError
+import Messages.Comp.TagDropdown
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
     , calEventInput : Messages.Comp.CalEventInput.Texts
     , httpError : Http.Error -> String
+    , tagDropdown : Messages.Comp.TagDropdown.Texts
     , reallyDeleteTask : String
     , startOnce : String
     , startNow : String
@@ -83,6 +85,7 @@ gb =
     { basics = Messages.Basics.gb
     , calEventInput = Messages.Comp.CalEventInput.gb
     , httpError = Messages.Comp.HttpError.gb
+    , tagDropdown = Messages.Comp.TagDropdown.gb
     , reallyDeleteTask = "Really delete this scan mailbox task?"
     , startOnce = "Start Once"
     , startNow = "Start this task now"
@@ -167,6 +170,7 @@ de =
     { basics = Messages.Basics.de
     , calEventInput = Messages.Comp.CalEventInput.de
     , httpError = Messages.Comp.HttpError.de
+    , tagDropdown = Messages.Comp.TagDropdown.de
     , reallyDeleteTask = "Den Auftrag wirklich löschen?"
     , startOnce = "Jetzt starten"
     , startNow = "Den Auftrag sofort starten"

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

@@ -13,11 +13,13 @@ module Messages.Comp.SourceForm exposing
 
 import Data.Language exposing (Language)
 import Messages.Basics
+import Messages.Comp.TagDropdown
 import Messages.Data.Language
 
 
 type alias Texts =
     { basics : Messages.Basics.Texts
+    , tagDropdown : Messages.Comp.TagDropdown.Texts
     , description : String
     , enabled : String
     , priority : String
@@ -38,6 +40,7 @@ type alias Texts =
 gb : Texts
 gb =
     { basics = Messages.Basics.gb
+    , tagDropdown = Messages.Comp.TagDropdown.gb
     , description = "Description"
     , enabled = "Enabled"
     , priority = "Priority"
@@ -69,6 +72,7 @@ Specify a file glob to filter files when uploading archives
 de : Texts
 de =
     { basics = Messages.Basics.de
+    , tagDropdown = Messages.Comp.TagDropdown.de
     , description = "Beschreibung"
     , enabled = "Aktiviert"
     , priority = "Priorität"

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

@@ -0,0 +1,34 @@
+{-
+   Copyright 2020 Eike K. & Contributors
+
+   SPDX-License-Identifier: AGPL-3.0-or-later
+-}
+
+
+module Messages.Comp.TagDropdown exposing
+    ( Texts
+    , de
+    , gb
+    )
+
+import Messages.Basics
+
+
+type alias Texts =
+    { basics : Messages.Basics.Texts
+    , placeholder : String
+    }
+
+
+gb : Texts
+gb =
+    { basics = Messages.Basics.gb
+    , placeholder = "Search…"
+    }
+
+
+de : Texts
+de =
+    { basics = Messages.Basics.de
+    , placeholder = "Suche…"
+    }