From 5a4f6c059573ca11cd3fa0f760f197211e095068 Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Thu, 27 May 2021 01:06:49 +0200
Subject: [PATCH] Fix tag category color field

The category name was not rendered
---
 modules/webapp/src/main/elm/Comp/UiSettingsForm.elm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/modules/webapp/src/main/elm/Comp/UiSettingsForm.elm b/modules/webapp/src/main/elm/Comp/UiSettingsForm.elm
index eb3141a5..6a59ed87 100644
--- a/modules/webapp/src/main/elm/Comp/UiSettingsForm.elm
+++ b/modules/webapp/src/main/elm/Comp/UiSettingsForm.elm
@@ -463,9 +463,13 @@ update sett msg model =
 tagColorViewOpts2 : Texts -> Comp.ColorTagger.ViewOpts
 tagColorViewOpts2 texts =
     { renderItem =
-        \( _, v ) ->
-            span [ class (" label " ++ Data.Color.toString2 v) ]
-                [ text (texts.colorLabel v) ]
+        \( name, v ) ->
+            span [ class "flex inline-flex items-center" ]
+                [ span [ class "mr-2" ] [ text name ]
+                , span [ class (" label " ++ Data.Color.toString2 v) ]
+                    [ text (texts.colorLabel v)
+                    ]
+                ]
     , colorLabel = texts.colorLabel
     , label = texts.chooseTagColorLabel
     , description = Just texts.tagColorDescription