Highlight search menu tabs that contain data

Refs: #966
2025-06-23 10:58:26 +00:00 · 2021-08-16 22:13:53 +02:00
parent 7f6bb6994d
commit f1445e797b
5 changed files with 145 additions and 61 deletions
--- a/modules/webapp/src/main/elm/Comp/UiSettingsForm.elm
+++ b/modules/webapp/src/main/elm/Comp/UiSettingsForm.elm
@ -489,10 +489,14 @@ view2 texts flags settings model =
    let
        state tab =
            if Set.member tab.name model.openTabs then
-                Comp.Tabs.Open
+                { folded = Comp.Tabs.Open
+                , look = Comp.Tabs.Normal
+                }

            else
-                Comp.Tabs.Closed
+                { folded = Comp.Tabs.Closed
+                , look = Comp.Tabs.Normal
+                }
    in
    div [ class "flex flex-col" ]
        [ Comp.Tabs.akkordion